WINSocket Как при передаче потока определить момент окончания пер

← →
Каспер © (2003-01-09 14:56) [0]

как на отправителе так и на приемнике
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) [1]

мдя..

WINSocket Как при передаче потока определить момент окончания пер Найти похожие ветки