Stream Read error

← →
malkolinge © (2002-11-13 21:33) [0]

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

procedure TServerThread.ClientExecute;
var
ServerSocketStream:TwinSocketStream;
fsDest:TFileStream;
begin

fsDest:=TFileStream.Create("d:received1.dat",fmCreate or fmShareDenyWrite);
ServerSocketStream:=TWinSocketStream.Create(ClientSocket, 20000);

while (not Terminated) and ClientSocket.Connected do begin
if ServerSocketStream.WaitForData(5000) then begin
if fsDest.CopyFrom(ServerSocketStream,150) = 0 then
break;
end;
end;
fsDest.Free;
ServerSocketStream.Free;
ClientSocket.Free;
end;

← →
malkolinge © (2002-11-13 21:45) [1]

UP !

Stream Read error Найти похожие ветки