Форум АНТИЧАТ - Показать сообщение отдельно - отправка прием картинки 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;

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