Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.27;
Скачать: 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 вся ветка

Текущий архив: 2003.02.27;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.021 c
3-87328
СТРАЖ
2003-02-10 17:06
2003.02.27
SQL выдает Cannot perform this operation on a closet datasen


1-87399
BurAn
2003-02-18 05:03
2003.02.27
FillRgn (SetWndRgn )


3-87334
Yagoda
2003-02-10 21:16
2003.02.27
Transfer data from xls ...


3-87336
Keeper
2003-02-05 15:43
2003.02.27
DOS-кодировка


1-87397
Lesha
2003-02-17 09:24
2003.02.27
Альтернатива TChart