Hallo

wie kann man Form1-Screenshot erzeugen?
mit dem Code wird den gesamten Bildschirm kopiert

Bilder für Support zwar wichtig aber der User will gerne nur das Programm-Screen capture. Mehr nicht. Was auf seinem Bildschirm ist, darf man nicht sehen

zusammenfalten · markieren

Delphi-Quellcode:

 

uses JPeg, Graphics, Windows, Classes ...;

var
  B: TBitmap;
  I: TJpegImage;
  DC: hDC;
begin
  B := TBitmap.Create;
  try
    DC := GetDC(hWnd_Desktop);
    try
      B.Width := Screen.Width;
      B.Height := Screen.Height;
// Screenshot als Bitmap machen
      BitBlt(B.Canvas.Handle, 0, 0, B.Width, B.Height, DC, 0, 0, SRCCOPY);
    finally
      ReleaseDC(DC, hWnd_Desktop);
    end;
// Bitmap nach JPEG und speichern
    I := TJpegImage.Create;
    try
      I.Assign(B);
      I.SaveToFile('Filename hier.jpeg');
    finally
      I.Free;
    end;
  finally
    B.Free;
  end;
end;

ich habe versucht mit :
B.Width := Form1.Width;
B.Height := Form2.Height;

Aber das Problem ist hier in Parameter :
      BitBlt(B.Canvas.Handle, 0, 0, B.Width, B.Height, DC, 0, 0, SRCCOPY); Ich habe versucht so :
BitBlt(Result.Canvas.Handle, Form1.Left, Form1.Top, Result.Width, Result.Height, Desktop, (Form1.left+Form1.width), Form1.Top+Form1.Height, SRCCOPY);

markieren

Delphi-Quellcode:

DC := GetDC(hWnd_Desktop);
ReleaseDC(DC, hWnd_Desktop);

da solltest du das handle deinies fensters uebergeben

Und hättest beim Posten auf den Button unter dem Titel geklickt, auf dem unsinnigerweise "Ähnliche Themen" steht, hättest Du auch das hier gefunden. Und sag keinem weiter, dass das Dein eigener Thread ist!

Zitat von Die Muhkuh:

Und sag keinem weiter, dass das Dein eigener Thread ist!

So, jetzt kann ich zumindest mit einem Lächeln im Gesicht schlafen gehen... Gute Nacht!

Zitat von taktaky:

wie kann man Form1-Screenshot erzeugen?
mit dem Code wird den gesamten Bildschirm kopiert

Versuch es mal hiermit, sollte auch bei minimierten Fenstern funktionieren

zusammenfalten · markieren

Delphi-Quellcode:

Function myBMPWindowSnap(var bmp: TBitmap; windowHandle: HWND): boolean;
var rc : TRect;
    huser32 : THandle;
    F : function(Hnd: HWND; HdcBlt: HDC; nFlags: UINT): BOOL; stdcall;
begin
   Result := False;
   huser32 := GetModuleHandle(user32);
   if huser32 <> 0 then begin
     @F := GetProcAddress(huser32, 'PrintWindow');
     if @F <> nil then begin
       GetWindowRect(windowHandle, rc);
       bmp.Width := rc.Right - rc.Left;
       bmp.Height := rc.Bottom - rc.Top;
       bmp.Canvas.Lock;
       try
         Result := F(windowHandle, bmp.Canvas.Handle, 0);
       finally
         bmp.Canvas.Unlock;
         if Result and ((bmp.Width = 0) or (bmp.Height = 0))
           then Result := False;
       end;
     end;
   end;
end;

Ginge das nicht einfach mit GetFormImage ?

Zitat von DeddyH:

Ginge das nicht einfach mit GetFormImage ?

GetFormImage kopiert nur Delphi-Objekte !
d.h. wenn ich in meinen Webbrwoser eine Seite aufrufe, dann wird nicht
kopiert

Von Webbrowser hast Du ja auch nichts gesagt.

Hast schon versucht das Desktophandle gegen das Handle der Anwendung auszutauschen?