Форум АНТИЧАТ - отправка прием картинки Socket Server&Client Delphi

отправка прием картинки Socket Server&Client Delphi

22.05.2008, 12:24

Flame of Soul

Участник форума

Регистрация: 25.05.2007

Сообщений: 290

Провел на форуме:
1740746

Репутация: 435

Отправить сообщение для Flame of Soul с помощью MSN

отправка прием картинки Socket Server&Client Delphi

отправляю:

PHP код:


		
			
       fs:=TMemoryStream.Create;

       Image1.Picture.Bitmap.SaveToStream(fs);

       ServerSocket1.Socket.SendStream(fs);

принимаю:

PHP код:


		
			
procedure TForm1.Button1Click(Sender: TObject);

begin

ClientSocket1.Active:=true;

end;



procedure TForm1.Button2Click(Sender: TObject);

begin

ClientSocket1.Active:=false;

end;



procedure TForm1.ClientSocket1Read(Sender: TObject;

  Socket: TCustomWinSocket);

  var

  s: string;

begin

  s:=Socket.ReceiveText;

  Reciving:=true;

  ClientSocket1.Socket.ReceiveBuf(s,DataSize);

  fs.WriteBuffer(s,DataSize);

  Image1.Picture.Bitmap.LoadFromStream(fs);

  end;

что не правильно в приеме

Похожие темы

Тема

Автор

Раздел

Ответов

Последнее сообщение

delphi smtp socket eroor 10080

anti_sec2

Болталка

09.05.2008 18:12