Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Netzwerke (https://www.delphipraxis.net/14-netzwerke/)
-   -   Delphi Screenshots von andrem PC im Netzwerk (https://www.delphipraxis.net/26364-screenshots-von-andrem-pc-im-netzwerk.html)

fcg 22. Jul 2004 16:06


Screenshots von andrem PC im Netzwerk
 
Hallo

wie erstelle ich einen Screenshot von einem anderen Rechner übers Netzwerk (IP bekannt). Auf meinem Rechner möchte ich den Screen dann haben..

ThänxX
fcg

Stanlay Hanks 22. Jul 2004 17:36

Re: Screenshots von andrem PC im Netzwerk
 
Hi. Indem du auf dem anderen PC eine Anwendung laufen lässt, die von deinem PC eine Nachricht erhält, dass ein Screenshot gesendet werden soll und diesen dann über das Netzwerk versendet. Also eine Client- und eine Server Anwendung. Mit einem einzelnen Programm geht das nicht, ohne dass auf dem anderen PC eine Anwendung läuft (Was auch gut so ist ;) Sonst könnte ja jeder, der meine IP hat, einen Screenshot von meinem Bildschirm machen ;) )

Man liest sich, Stanlay :hi:

NeoLuxembourg 22. Jul 2004 18:04

Re: Screenshots von andrem PC im Netzwerk
 
Im server muss du sowas haben:

Delphi-Quellcode:
function GetScreenShot: TBitmap;
var
  Desktop: HDC;
begin
  Result := TBitmap.Create;
  Desktop := GetDC(0);
  try
    try
      Result.PixelFormat := pf32bit;
      Result.Width := Screen.Width;
      Result.Height := Screen.Height;
      BitBlt(Result.Canvas.Handle, 0, 0, Result.Width, Result.Height, Desktop, 0, 0, SRCCOPY);
      Result.Modified := True;
    finally
      ReleaseDC(0, Desktop);
    end;
  except
    Result.Free;
    Result := nil;
  end;
end;
(Am besten noch eine JPEG kompression hinzufügen)

Und dann einfach einer verbindung Client Server wo du ein record vom Server zum client schicks ... und das wärs fast schon ;)


Alle Zeitangaben in WEZ +1. Es ist jetzt 08:30 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz