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

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]

мдя..

---

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

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



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