| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Stream Read error [D7, WinXP]

malkolinge ©   (2002-11-13 21:33:00) 

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


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:00) [1]

UP !

---

Наверх