https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=248309 Wed, 19 Nov 2003 10:21:03 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=248309 Song Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=248232 Wed, 19 Nov 2003 08:43:25 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=248232 Mass : array of char;
]]> KIL Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=248129 Wed, 19 Nov 2003 05:55:47 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=248129 Song Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247986 Tue, 18 Nov 2003 19:39:46 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247986
Добавлено в 18.11.03, 19:46
Нет Write тоже пишет "0"..

Есть у кого пример? ]]> KIL Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247914 Tue, 18 Nov 2003 17:31:34 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247914 Song Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247906 Tue, 18 Nov 2003 17:20:41 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247906 Guest Delphi: Сетевое программирование https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247899 Tue, 18 Nov 2003 17:11:33 +0000 https://forum.sources.ru/index.php?showtopic=38275&view=findpost&p=247899
procedure TForm1.Button1Click(Sender: TObject);
var
str : TFileStream;
begin
clientsocket1.Active:=true;
str := TFileStream.Create('C:\1.exe',fmOpenRead);
str.Position := 0;
ClientSocket1.Socket.SendStream(str);

clientsocket1.Active:=false;
ClientSocket1.Close;
end;


/////////Сервер

procedure TForm1.ServerSocket1ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var
ibLen : integer;
buf : Mass;
str : TMemoryStream;
begin
ibLen := ServerSocket1.Socket.ReceiveLength;
SetLength(buf,ibLen+1);
showmessage(inttostr(iblen));
str := TMemoryStream.Create;
str.Position := 0;
// Showmessage(Socket.ReceiveText); - вот здесь всегда ноль!!!
Socket.ReceiveBuf(buf,ibLen);
str.WriteBuffer(buf,ibLen);
str.Position := 0;
str.SaveToFile('c:\2.txt');
SetLength(buf,0);
str.Free;
end;


ЧТО НЕТАК??? ]]> KIL Delphi: Сетевое программирование