ANTICHAT - Показать сообщение отдельно - Delphi. Отправка файла на гейт.

2 Hellsp@wn если бы да кабы. По хорошему нужно обрабатывать что разорвалась связь с серваком, а также что не удалось считать файл. итд итп. А друг юзверь вообще комп ребутнул. 4 кила полюбому уйдут в ядро, и send вернет это кол-во. другое дело, что не факт что они по сети передадутся.

хотя по хорошему достаточно просто подправить: Но всё равно это лишнее.

Код:

 
  wb := 0;
  error_flag := false;
  while wb < rb do
  begin
     len := send(sock, pointer(dword(@buf[0]) + wb)^, rb - wb, 0);    
     if len < 1 then
     begin
       error_flag := true;
       break;
     end;
     wb := wb + len;
   end;
 if error_flag then break;