remot desktop

شروع موضوع توسط tactools ‏14 مارس 2007 در انجمن Delphi

  1. tactools

    tactools کاربر تازه وارد

    تاریخ عضویت:
    ‏20 اکتبر 2005
    نوشته ها:
    6
    تشکر شده:
    0
    سلام
    خدمت دوستان دلفی کار
    من می خاستم ریموت دسکتاب رو با دلفی واسه برنامه کافی نت بنویسم یه کامپوننت گیر اوردم اگه کسی بلده منو کمک کنه ممنون می شم
    http://www.realthinclient.com/
    اگه راه دیگه ای هم بلدین به من هم بگین
    مرسی:(
     
  2. خدمات پی پالبازدیدیار - افزایش بازدید سایت و سیگنال های برند
  3. lord_nemisis

    lord_nemisis کاربر تازه وارد

    تاریخ عضویت:
    ‏18 جولای 2006
    نوشته ها:
    9
    تشکر شده:
    0
    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نشون بدی
     
عسل طبیعی و گرده گل ایرانی