Hallo Wissende,

Ich habe gerade mal eine kurze Frage, habe bei der Suchfunktin nicht das richtige gefunden.

Ich programmiere gerade an einem Programm, dass 25 Screenshots pro Sekunde erstellen soll. Und in ein bestimmtes Verzeichnis speichern soll. Eigentlich ja ganz einfach glaube ich. Doch leider kenne ich den Befehl zum erstellen eines Screenshots nicht. Ich hoffe ihr könnt mir da weiterhelfen.

Screenshot

Hi,
auch wenn dir jmd. schon die Lösung rausgesuch hat (und ich mich hier "namentlich" ausgeschlossen fühle), für's nächste Mal (oder ale Erklärung für Florians Ergebnisse), schränke die Suche auf die Code-Lib (Code Bibliothek in der Suche genannt) ein. Da findest du dann fertigen Code!

Gruß Der Unwissende

schon mal vielen Dank, werde ich mir aufjeden Fall angucken...

So habs mir mal angeguckt, hab aber noch ne Frage:

Ich habe mir jetzt eine Prozedure rausgesucht...

zusammenfalten · markieren

Delphi-Quellcode:

procedure ScreenToFile(aFileName: string);
var
  Bitmap: TBitmap;
  Canvas: TCanvas;
begin
  Canvas := TCanvas.Create;
  try
    Canvas.Handle := GetWindowDC(0);
    try
      Bitmap := TBitmap.Create;
      try
        Bitmap.Width := Screen.DesktopWidth;
        Bitmap.Height:= Screen.DesktopHeight;
        Bitmap.PixelFormat := pfDevice;
(*
        Bitmap.Canvas.CopyRect(Screen.DesktopRect, Canvas, Screen.DesktopRect);

  Anstatt der folgenden Zeile, kann auch die CopyRect Funktion genutzt werden.
  Die CopyRect-Funktion nutzt zusätzlich ein paar Schutzmechanismen, welche für
  ScreenShots nicht notwendig sind. Ausserdem greift die CopyRect-Funktion auf
  StretchBlt-Funktion zurück, welche langsamer als BitBlt ist.
*) 
        BitBlt(Bitmap.Canvas.Handle, 0, 0, Pred(Screen.DesktopWidth), Pred(
            Screen.DesktopHeight), Canvas.Handle, Screen.DesktopLeft,
            Screen.DesktopTop, Bitmap.Canvas.CopyMode);
        Bitmap.SaveToFile(aFileName);
      finally
        Bitmap.Free;
      end;
    finally
      ReleaseDC(0, Canvas.Handle);
    end;
  finally
    Canvas.Free;
  end;
end;

... und rufe die hiermit auf...

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
screentofile('testscreen');
end;

...aber wo speichert die Anwendung den Screenshot jetzt hin ????


EDIT: Ach habs schon rausgefunden...war mal wieder zu blöd...

Die Aufrufprozedure muss so heißen...

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
screentofile('D:\testscreen.bmp');
end;

Du musst nicht nur einen Namen sondern den ganzen Pfad angeben:

markieren

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
screentofile('C:\testscreen.bmp');
end;

gruss

http://www.h-soft.info/downloads/sim...een/index.html

Hallo Gemeinde,

ja, das Thema ist schon ein paar Tage alt, aber irgendwie stelle ich mich etwas dusselig an.

Ich habe herausgefunden, wie ich einen Screenshot eines ganzen Desktops machen kann, auch kann ich einen Screenshot der aktiven Anwendung machen, allerdings habe ich nicht herausgefunden, wie ich nur einen Teil des Desktops oder einer Anwendung als Screenshot aufnehmen kann. Vielleicht kann mir dazu jemand einen Tipp geben?

Hintergrund: Ich möchte kopierten Text auslesen, diesen in eine Maske aufbereiten und diese Maske soll dann als Screenshot (Grafik) weiter verarbeitet werden.

LG Micha (DieFliege)

Wieso hat niemand gesagt, wie er den Screenshot macht?

Es gibt tausende Wege.

Zitat:

wie?

Du nimmst deinen ganzen Screenshot und schneidest anschließend das Gewünschte aus?



Oder du suchst das gewünschte Fenster (HWND) und machst von dessen DC das Foto, anstatt vom DC des Desktops.

Zitat von himitsu:

Wieso hat niemand gesagt, wie er den Screenshot macht?

Ich habe in keinem Wort gefragt "wie" ein Screenshot gemacht wird - Das war mir schon klar

Zitat von himitsu:

Du nimmst deinen ganzen Screenshot und schneidest anschließend das Gewünschte aus?

Das hatte ich bisher nicht bedacht, danke für den Tipp!

Zitat von himitsu:

Oder du suchst das gewünschte Fenster (HWND) und machst von dessen DC das Foto, anstatt vom DC des Desktops.

Genau das war mein eigentlicher Gedanke. Den Schritt, die Grafik zu arbeiten, kommt mir da eher als "Plan B" vor. Mal gucken, was ich zu "DC" finden kann
Vielen Dank erst mal für deine Hilfe!

LG Micha (DieFliege)