Скачать: CL | DM;

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 !

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.012 c