Передача изображения по сети.

[Stilet]

Всем доброго. Понадобилось сделать легкую программу передачи скриншота экрана по сети. Решил пойти самым легким путем - передавать скриншот по FTP через INDY.
Вот так формирую скрин:

procedure TForm1.IdFTPServer1RetrieveFile(ASender: TIdFTPServerContext;
  const AFileName: string; var VStream: TStream);
var b:TBitmap; sdc:hdc; shw:hwnd;
begin
 b:=TBitmap.Create;
 shw:=GetDesktopWindow;
 sdc:=GetDC(shw);
 b.Width:=Screen.Width; b.Height:=Screen.Height;
 BitBlt(b.Canvas.Handle,0,0,b.Width,b.Height,sdc,0,0,SRCCOPY);
 VStream:=TMemoryStream.Create;
 b.SaveToStream(VStream);
 VStream.Position:=0;
 ReleaseDC(shw,sdc);
 b.Free;
end;

В сервере FTP

Вот так запрашиваю на клиенте:

procedure TForm1.FormClick(Sender: TObject);
var ms:TMemoryStream;b:TBitmap;  
begin
 IdFTP1.Host:='localhost';
 IdFTP1.Username:='1';
 IdFTP1.Password:='1';
 IdFTP1.Connect;
 if IdFTP1.Connected then begin
   ms:=TMemoryStream.Create;
   idftp1.Get('',ms);
   b:=TBitmap.Create;      b.Width:=Screen.Width; b.Height:=Screen.Height;
   b.LoadFromStream(ms);{}
   //ms.SaveToFile('d:\1\q.bmp');
   if not StretchBlt(Canvas.Handle,0,0,Width,Height,b.Canvas.Handle,0,0,b.Width,b.Height,SRCCOPY)
   then RaiseLastOSError;
   b.Free;
   Caption:=IntToStr(ms.Size);
   ms.Free;
   IdFTP1.Disconnect;
 end else ShowMessage('no');
end;

Передача проходит успешно, принимается картинка полностью (если раскоментировать ms.SaveToFile то получаю BMP файл со скриншотом, который открывается любыми графическими вьюверами нормально)
Но вот StretchBlt почему-то на форме картинку не отображает.
Понимаю что где-то туплю, но не могу понять где.

Что в этом коде может мешать отрисовке на канве формы?

[BDA]

Скорее всего, ошибаюсь, но попробуйте дописать:

ms.position:=0;
b.LoadFromStream(ms);

Проверил - мне помогло. Ваш код сработал.

UPD
Пожалуйста

[Stilet]

Блин, ну точно
Говорил же что туплю...
Спасибо, жаль в репу стукнуть не могу портал не дает.