Форум: "Сети";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Вниз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 вся ветка
Форум: "Сети";
Текущий архив: 2003.02.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c