WINSocket Как при передаче потока определить момент окончания пер [D6, Win95/98, NT4, Win2k, WinXP]
Каспер © (2003-01-09 14:56:00)
как на отправителе так и на приемнике
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then ClientSocket1.Active:=true;
end;
procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
try
Socket.SendStream(TFileStream.Create(OpenDialog1.FileName,fmOpenRead));
finally
ShowMessage("Ок");
end;
end;
И как НЕ побуферно принимать поток а цликом
Сейчас вот так принимаем
procedure TForm1.ServerSocketClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
buf:array [0..32000] of byte;
l:Integer;
begin
L:=socket.ReceiveLength;
socket.ReceiveBuf(Buf,L);
f.WriteBuffer(Buf,L);
end;
Спасибо!
Polevi (2003-01-09 15:02:00) [1]
мдя..
Наверх 
ЧАТ |
Орешник |
|
