Проблема с TClientSocket, TServerSocket

[PLOT_HD]

Есть переменная типа

b : TBitmap

при подключении клиента сервер должен эту картинку отправить. Для этого переменную b я записал в поток вот так :

var
s : TMemorystream;
begin
s:=tmemorystream.Create;
b.SaveToStream(s);
s.Position:=0;
server.Socket.SendStream(s);

end;

Вопрос как извлечь картинку на клиентской стороне?
Т.Е. что писать здесь :

procedure TForm1.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
begin
   //Подскажите кто знает плз...
end;

[Квэнди]

Сервер
TFileStream* str = new TFileStream("M:\\MyFile.jpg",fmOpen Read);
//ИЛИ, если мы работаем без сохранения (тогда не создается файл)
TMemoryStream* str = new TMemoryStream ();
str->Position = 0;
Image1->Picture->Bitmap->SaveToStream(str);
//и, наконец, шлем на сервер битмап
str->Position = 0;
ClientSocket1->Socket->SendStream(str);

Клиент
int ibLen = ServerSocket1->Socket->ReceiveLength();
char* buf= new char[ibLen+1];
TMemoryStream* str = new TMemoryStream();
str->Position = 0;
ServerSocket1->Socket->ReceiveBuf((void*)buf,ibLen);
str->WriteBuffer((void*)buf,ibLen);
str->Position = 0;
Image1->Picture->Bitmap->LoadFromStream(str);
//или
str->SaveToFile("M:\\MyFile.jpg");

[Master-Skull]

это ты из ФАКа скопировал, где на Борланд сях писанно...
Если не ошибаюсь, надо принимать примерно так:

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
 Len: integer;
 St: TMemoryStream;
 Buf: Pointer;
 b: TBitmap;
begin
b:=TBitmap.Create;
Len:=Socket.ReceiveLength;
GetMem(Buf, Len+1);
St:=TMemoryStream.Create;
St.Position:=0;
Socket.ReceiveBuf(Buf, Len);
St.WriteBuffer(buf, Len);
St.Position:=0;
b.LoadFromStream(st);
//Что-то вытворяешь с битмапом
st.Free;
b.Free;
FreeMem(Buf);
end;

[PLOT_HD]

Переписал исходник чтобы ни кто не думал что я за ним к Borland'u ходил..
А косяк никуда не делся
Пожалуйста помогите разобраться. Пробовал тоже самое со строками
все нормально работает, а вот для Bitmapa моя квалификация явно не
дотягивает. Мой Х..ен его знает СЕРВЕР :

procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket);
var
st : TMemoryStream;
begin
  if socket.ReceiveText = 'Get_Bitmap' then//Проверяю команду
  try
    st := TmemoryStream.Create;//Создаю поток
    st.Position := 0;
    Image1.Picture.Bitmap.SaveToStream(st);//Сохраняю Bitmap в поток
    st.Position := 0;
    ServerSocket1.Socket.SendStream(st);//Пробую отправить
  finally
  end;
end;

И еще более х... КЛИЕНТ :

procedure TForm1.Button1Click(Sender: TObject);
begin
  ClientSocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 ClientSocket1.Socket.SendText('Get_Bitmap') ;
end;


//Далее у меня косяк

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var
 Len: integer;
 St: TMemoryStream;
 Buf: Pointer;

begin
  Len:=Socket.ReceiveLength;
  GetMem(Buf, Len+1);
  St:=TMemoryStream.Create;
  St.Position:=0;
  ClientSocket1.Socket.ReceiveBuf(Buf, Len);
  St.WriteBuffer(buf, Len);
  St.Position:=0;
  Image1.Picture.Bitmap.LoadFromStream(st);
  st.Free;
  FreeMem(Buf);
end;

end;

Очень надо сделать, иначе бы не спрашивал.
Как бы там не было, все равно всем спасибо.

[Master-Skull]

Так тебе с сервера передавать, а клиенут принимать, так что ли?
Ща пойду поиграюсь с виртуалкой через сеть, если что выйдет, напишу
Кстати,

if socket.ReceiveText = 'Get_Bitmap' then//Проверяю команду
try
st := TmemoryStream.Create;//Создаю поток

в принятом и поток и текст? Помоему надо сначала при Get_Bitmap какую-нить переменную выставлять в true, а после передачи менять на false. А при ломлении проверять если не Get_Bitmap и переменная не true то послать передающего.
PS Сокеты обязательны? Я люблю всё передавать либо через Strm от NetMasters либо через Indy TCP или UPD (быстрее но файл может прийти не весь).