Передача скриншота

[Terran]

Уважаемые программисты! Помогите пожалуста решить проблему. Как написать код, что бы через ClientSocket можно было принимать скриншот экрана от ServerSocket и выводить его сразу в Image (без сохранения файла на диск), там где clientsocket? (Делфи)
Есле можно исходник такого кода.

Помогите пожалуста! Срочно нада!



procedure TForm1.Button1Click(Sender: TObject);
begin
ClientSocket1.Active:=true;
ClientSocket1.Socket.SendText('R');
ClientSocket1.Active:=false;
end;
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
....
begin
....
end;
------------------------------------------------------------------

Вот код получения скриншота и отправки его на ClientSocket:

procedure TForm1.ServerSocket1ClientRead(Send er: TObject;
Socket: TCustomWinSocket);
var
s: string;
ms: TMemoryStream;
bmp: Graphics.TBitmap;
DC: HDC;
begin
if Socket.ReceiveText = 'R' then
begin
ms := TMemoryStream.Create;
bmp := TBitmap.Create;
bmp.Height := Screen.Height;
bmp.Width := Screen.Width;
DC := GetDC(0);
BitBlt(bmp.Canvas.Handle, 0, 0, bmp.Width,
bmp.Height, DC, 0, 0, SRCCopy);
try
bmp.SaveToStream(ms);
ms.Position := 0;
Socket.SendText(IntToStr(ms.Size) + #0);
Socket.SendStream(ms);
except
ms.Free;
end;
bmp.Destroy;
ReleaseDC(0, DC);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
ServerSocket1.Active:=true;
end;

Заранее благодарен!
ответ был получен. предупреждение за кроспостинг. закрыто.

[BOBAH13]

Я же вроде отвечал на такое же сообщение. Что за бред ?!

Воот нашел. Опять же Вы. Зачем копируете темы ? Почему здесь не пишете http://programmersforum.ru/showthread.php?t=11033 Я же все описал !

Вы совершенно не верно подходите к проблеме! Обустройте все через пакеты

type packet = packed record ... end;

Тогда и легче будет и вообще забудете про это ..SendText. Ужас какойто )