remot desktop

[tactools]

سلام
خدمت دوستان دلفی کار
من می خاستم ریموت دسکتاب رو با دلفی واسه برنامه کافی نت بنویسم یه کامپوننت گیر اوردم اگه کسی بلده منو کمک کنه ممنون می شم
http://www.realthinclient.com/
اگه راه دیگه ای هم بلدین به من هم بگین
مرسی

 

[lord_nemisis]

procedure ScreenShot(DestBitmap : TBitmap) ;
var
DC : HDC;
begin
DC := GetDC (GetDesktopWindow) ;
try
DestBitmap.Width := GetDeviceCaps (DC, HORZRES) ;
DestBitmap.Height := GetDeviceCaps (DC, VERTRES) ;
BitBlt(DestBitmap.Canvas.Handle,
0,
0,
DestBitmap.Width,
DestBitmap.Height,
DC,
0,
0,
SRCCOPY) ;
finally
ReleaseDC (GetDesktopWindow, DC) ;
end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin

ScreenShot(Form1.Image1.Picture.Bitmap) ;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
ScreenShot(Form1.Image1.Picture.Bitmap) ;
Form1.Image1.Repaint;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Form1.Timer1.Enabled:=Not Form1.Timer1.Enabled;
end;
end.
با این کد میتونی در هر لحظه تصویری از دسکتاپ خودت داشته باشی برای تبدیلشم میتونی اونها رو به استریم تبدیل کنی بعد فشرده کنی و برای سرور بفرستی و رو سرور این استریمها رو دیکامپرس کرده و تو یه imageنشون بدی