Привет!
Вот ниже приведеный код работает, когда и ClientSocket и ServerSocket находятся в одном приложении , а если клиент и сервер находятся в разных приложениях, то это не работает!



procedure TForm1.Button1Click(Sender: TObject);
var str: TMemoryStream;
s: string[4];
img: Tpicture;
begin
str := TMEmoryStream.Create;
try
s := Edit1.Text;
img := Image1.Picture;
str.Write(s, SizeOf(s));
str.Write(img, SizeOf(img));
ClientSocket1.Socket.SendBuf(str, SizeOf(str));
finally
str.Free;
end;
end;


procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var i: Integer;
img: TPicture;
s: string[4];
stream: TMemoryStream;
begin
stream := TMemoryStream.Create;
Socket.ReceiveBuf(stream, 9);
stream.Position := 0;
stream.Read(s, 4);
stream.Position := 4;
stream.Read(img, stream.Size - 4);
Image1.Picture := img;
Label1.Caption := s;
stream.Free;
end;

Ну творят люди! На это хочеться сказать одно - RTFM. А то толком принципы языка не понимают, а уже по сокетам чего-то передавать пытаются.

Намекну.
Вот это строчкой:

ClientSocket1.Socket.SendBuf(str, SizeOf(str));

Ты передаешь по соеденению указатель на объект TMemoryStream
Вот этой:

Socket.ReceiveBuf(stream, 9);

Ты этот указатель считываешь. (непонятно правда, зачем 9).

2 Fantasist

Цитата

(непонятно правда, зачем 9).

Установлено эксперементально.