Screen capture ohne GUI gesucht - iB-InformatikBoard.ch

Sato · Registriert seit: 04.02.2006

Hallo und angenehme Zeit Leute

Ich suche für einen speziellen Anwendungsfall ein Screen Capture tool OHNE GUI.
Es muss sich zudem von extern über einen run_task(...)-Aufruf starten lassen ohne zusätzlich noch wieder einen Tastendruck als Startbefehl zu erwarten.

Hab mir schon ´nen "Wolf" gesucht, also bitte keine Hinweise vom Format - "Such doch mal mit Snap, ScreenGrab, PrintScreen" u.s.w.

Best regards
Sato

**zer00** · 06.02.2006, 18:25

Hi Sato
Versuchs mal im <a href="http://www.delphipraxis.net" title="Externer Link (öffnet in neuem Fenster)" target="_blank">Delphi-Praxis Forum</a> da hats bestimmt jemanden, der schon so ein Tool gebastelt hat.
Aber vielleicht könntest Du das ja auch selber in C++ proggen.

grz zer00

**DjSpock** · 07.02.2006, 13:44

Was moechtest du genau mit diesem tool machen.

Gruss Koni

**zer00** · 07.02.2006, 21:14

Hallo Sato
Ich habe da mal eine kleine Anwendung geschrieben, jetzt müsste ich nur noch ein paar zusatzinformationen von dir haben.
1. Soll die Datei immer überschrieben werden, oder soll bei jeder ausführung eine neue erstellt werden?
Ist es in Ordnung wenn die Bilddatei eine Bitmap ist und wenn diese im Verzeichnis der .exe gespeichert wird?

grz zer00

Stephan · 08.02.2006, 09:18

Zitat:

Original geschrieben von DjSpock
Was moechtest du genau mit diesem tool machen.

Gruss Koni

Evtl. jemanden überwachen, was er den so den ganzen Tag treibt?

Gruss, Stephan

**zer00** · 08.02.2006, 11:38

Zitat:

Original geschrieben von Stephan
Evtl. jemanden überwachen, was er den so den ganzen Tag treibt?

Gruss, Stephan

Da setzt man den TinyKeyLogger ein, was aber im Endeffekt genauso illegal ist.

grz zer00

08.02.2006, 12:46

Wenn es unter Windows laufen soll und in C++ ist, bietet sicher Win32-Api die Funktion Printscreen an, hoffe ich zumindest. Aber leider kann ich von der Arbeit aus nicht in der Dokumentation der Win32-Api nachsehen. Ich vermute jedoch, dass es möglich sein muss, weil Windows selber diese Funktion ja auch bietet.

Kann heute Abend zu Hause mal in der Bibel von Win32-Api nachsehen

Gruss Dorian

**zer00** · 08.02.2006, 17:45

Ich habe es so gelöst, ist aber in Delphi.

Code:

type logPal = record     // für (komplettes Fenster) erforderlich
   lpal : TLogPalette;
   dummy : array[1..255] of TPaletteEntry;
end;


procedure TForm1.takeScreenShot2;    // Var. 2 (komplettes Fenster)
var
  sysPal : logPal;
  aImage: TImage;          // Unit ExtCtrls!
  hPal: HPalette;
  aHDC: HDC;
  aCanvas: TCanvas;
  aRect: TRect;
  Datum: String;          // Dateiname = Datum
 begin

 Datum:= DateToStr(Now) + '.bmp';

 aHDC := GetWindowDC(0);
 sysPal.lPal.palVersion:=$300;
 sysPal.lPal.palNumEntries:=256;
 GetSystemPaletteEntries(aHDC,0,256,SysPal.lpal.PalpalEntry);
 hPal:=CreatePalette(sysPal.lpal);
 aCanvas := TCanvas.Create;
 aCanvas.Handle := aHDC;
 aRect := Rect(0,0,Screen.Width,Screen.Height);
 aImage:=TImage.Create(Self);

 with aImage do
  begin
    Height := Screen.DesktopHeight;
    Width := Screen.DesktopWidth;
    Canvas.CopyRect(aRect,aCanvas,aRect);
    ReleaseDC(GetDeskTopWindow,aHDC);
    Picture.Bitmap.Palette:=hPal
  end;
  aImage.Picture.SavetoFile(Datum);
  aImage.Free;
  ReleaseDC(GetDeskTopWindow, aHDC);
  ReleaseDC(aHDC, aCanvas.Handle);

end;

grz zer00

Sato · 17.02.2006, 08:19

Hallo Leute,

sorry for my late reply.

War einige Tage zu schwer mit anderen Dingen beschäftigt.

@ all
vielen dank für eure rege Nachfrage.

Ich "murkse" seit einiger Zeit mit einer veralteten Echzeit-3d-engine rum.
Die Engine verwendet eine vb-ähnliche Script-Sprache und bringt ihren eigenen Compiler mit.
Ich hab es wohl deshalb ziemlich versäumt mich gleichzeitig auch ausgiebig mit C++, oder Delphi zu beschäftigen.
Die Engine kann zur laufzeit Modelle und Texturen nachladen, erlaubt die vertex-genaue Verformung der Modelle, kann aber nicht in texturen rendern. Es sind deshalb keine Spiegelflächen möglich.

Mit dem gesuchten Tool wollte ich versuchen das "Bildmaterial" für scheinbare Wasserspiegel zur Laufzeit zu gewinnen.
Bei Textur-Mapping von der Model-Rückseite und entsprechender Verformung des Wasser-Modells sollte sich der Eindruck eines Wasserspiegels realisieren lassen.

@ zer00
Hab vielen dank für deine viele mühe. Sieht so aus als hättest du fast genau das tool geschrieben, das ich suche.

1. JA es ist sehr gut wenn die Bitmap immer im gleichen Verzeichniss wie die .exe landet. !!!
2. JA die Bitmap darf stets überschrieben werden !!!
Der Dateiname sollte dabei stets gleich lauten.

Sehr hilfreich für meinen Zweck wäre es, wenn ich das Tool aus der 3d-engine heraus starten, vor allem aber über einen beliebigen Parameter xyz zu bestimmten -aber beliebigen- Zeitpunkten veranlassen könnte, seine Arbeit zu tun. (run_task(".\tool.exe xyz")

Ich hab übrigens keinen Delphi-Compiler.

Best regards
Sato

**zer00** · 17.02.2006, 14:45

Zitat:

Original geschrieben von Sato
Hallo Leute,

sorry for my late reply.

War einige Tage zu schwer mit anderen Dingen beschäftigt.

@ all
vielen dank für eure rege Nachfrage.

Ich "murkse" seit einiger Zeit mit einer veralteten Echzeit-3d-engine rum.
Die Engine verwendet eine vb-ähnliche Script-Sprache und bringt ihren eigenen Compiler mit.
Ich hab es wohl deshalb ziemlich versäumt mich gleichzeitig auch ausgiebig mit C++, oder Delphi zu beschäftigen.
Die Engine kann zur laufzeit Modelle und Texturen nachladen, erlaubt die vertex-genaue Verformung der Modelle, kann aber nicht in texturen rendern. Es sind deshalb keine Spiegelflächen möglich.

Mit dem gesuchten Tool wollte ich versuchen das "Bildmaterial" für scheinbare Wasserspiegel zur Laufzeit zu gewinnen.
Bei Textur-Mapping von der Model-Rückseite und entsprechender Verformung des Wasser-Modells sollte sich der Eindruck eines Wasserspiegels realisieren lassen.

@ zer00
Hab vielen dank für deine viele mühe. Sieht so aus als hättest du fast genau das tool geschrieben, das ich suche.

1. JA es ist sehr gut wenn die Bitmap immer im gleichen Verzeichniss wie die .exe landet. !!!
2. JA die Bitmap darf stets überschrieben werden !!!
Der Dateiname sollte dabei stets gleich lauten.

Sehr hilfreich für meinen Zweck wäre es, wenn ich das Tool aus der 3d-engine heraus starten, vor allem aber über einen beliebigen Parameter xyz zu bestimmten -aber beliebigen- Zeitpunkten veranlassen könnte, seine Arbeit zu tun. (run_task(".\tool.exe xyz")

Ich hab übrigens keinen Delphi-Compiler.

Best regards
Sato

Hi Sato

Wenn Du mir per PN deine email-Add durch gibst kann ich dir die Exe mailen, du kannst mir ja dann noch mitteilen welche Funktionen du noch brauchst.
Also mein Tool macht zur Zeit wirklich nix anderes als beim Ausführen, was man ja über den Taskplaner(Schtasks) erledigen kann, einen Screenshot des gesamten Desktop's.

grz zer00

Sato · 17.02.2006, 22:13

@all
Ich grüße euch, habt einen angenehmen Abend.

@zer00
ich habe dir ´ne PN gesandt.
Schonmal vorab, hab wirklich vielen Dank für deine Hilfe.

Best regards
Sato