[arman4587]

Всем привет. Народ, подскажите как поймать ошибку при обрыве связи, во время приема файла от клиента на сервер?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54

var _FileName:WideString;     _FileSize:Cardinal;     _Client:LongInt;     _BufSize: Integer;     _Buffer: PChar;     _Dummy: Cardinal; begin   if _Receiver then begin   try   _BufSize:=Socket.ReceiveLength;   _Buffer:=GetMemory(_BufSize);   try     _BufSize:=Socket.ReceiveBuf(_Buffer^, _BufSize);     WriteFile(FPipeWrite, _Buffer^, _BufSize, _Dummy, nil);   finally     FreeMemory(_Buffer);   end;   repeat    _BufSize:=GetFileSize(FPipeRead, nil);     if _BufSize = 0 then Break;     if FDataLen=0 then     begin       if _BufSize<SizeOf(DWORD) then Break;       ReadFile(FPipeRead, FDataLen, SizeOf(DWORD), _Dummy, nil);       FDataRead:=0;       FFileStream:=TFileStream.Create(_Out+_Tmp+'fc.zip', fmCreate);    end else     begin       _Buffer:=GetMemory(_BufSize);       try         ReadFile(FPipeRead, _Buffer^, _BufSize, _Dummy, nil);         FFileStream.Write(_Buffer^, _BufSize);         Inc(FDataRead, _BufSize);       finally         FreeMemory(_Buffer);       end;     end;   until        FDataRead = FDataLen;     if FDataRead = FDataLen  then  begin        FFileStream.Free;        FDataLen:=0;        Jornal('ok',Unassigned,clRed);       _Receiver:=False;     end;   except    on e:Exception do begin         _Receiver:=False;         FFileStream.Free;         FDataLen:=0;         Socket.Destroy;    Jornal(e.Message+' : '+e.ClassName,Unassigned,clRed);   end;   end;

try except не ловит из за Break-ов. а без break-ов висит

[NumLock]

Функция с ошибкой возвратится.

[arman4587]

Сообщение от NumLock

Функция с ошибкой возвратится.

можно по подробней?

[NumLock]

Return value
If the function succeeds, the return value is nonzero (TRUE).
If the function fails, or is completing asynchronously, the return value is zero (FALSE). To get extended error information, call the GetLastError function.

https://msdn.microsoft.com/en-us/lib...(v=vs.85).aspx