Screenshot in Konsolenanwendung

[Pseudo]

Hallo,
ich versuche jetzt schon etwas länger einen kompletten Screenshot in einer Konsolenanwendung zu erstellen. Die Funktion GetDC kennt Lazarus nicht, und ich müsste die komplette LCL einbinden (dann könnte ich aber gleich ne Windows Forms Anwendung machen). Ich hoffe es gibt da irgendeine Windows Funktion, oder Bibliothek

Danke für die Hilfe

Pseudo

[Socke]

ich versuche jetzt schon etwas länger einen kompletten Screenshot in einer Konsolenanwendung zu erstellen. Die Funktion GetDC kennt Lazarus nicht, und ich müsste die komplette LCL einbinden (dann könnte ich aber gleich ne Windows Forms Anwendung machen). Ich hoffe es gibt da irgendeine Windows Funktion, oder Bibliothek

In einer Konsolenanwendung kannst du keinen Screenshot machen. Ein Screenshot arbeitet mit einem Pixel-Gerät. Die Konsole ist aber ein Zeichen-Gerät (das heißt du hast Zeichen/Buchstaben und keine Pixel). Daher musst du irgendwie anders den Bildschirmpuffer auslesen.

[mschnell]

Vor einiger Zeit habe ich mit Delphi das realisiert (Algorithmus von VNC gestohlen):

Code: Alles auswählen

  DesktopBitmap: TBitmap;
...
 
 wi8 := (wi+7) div 8;
  Result := wi8*hi;
  if Result > XDestsize then begin
    Result := -1;
    exit;
  end;
 
  DesktopBitmap := TBitmap.Create;
  DesktopBitmap.Width := wi;
  DesktopBitmap.Height := hi;
 
  DesktopBitmap.PixelFormat := UsePixelFormat;
 
  DesktopHandle := GetDesktopWindow;
  DesktopHDC := GetDC(DesktopHandle);
  BitBlt(DesktopBitmap.Canvas.Handle, x0dest, y0dest, wi, hi,
         DesktopHDC, x0source, y0source, SrcCopy);
  ReleaseDC(DesktopHandle, DesktopHDC);
 
  GetDIBSizes(DesktopBitmap.Handle, InfoSize, ImageSize);
  Info := AllocMem(InfoSize);
  Image := AllocMem(ImageSize);
 
  if getdib(DesktopBitmap.Handle, 0, Info^, Image^) then begin
//    Edit1.Text := 'OK';
   end else begin
//    Edit1.Text := 'Error';
    FreeMem(Image, ImageSize);
    FreeMem(Info, InfoSize);
    Result := -1;
    exit;
  end;
  DesktopBitmap.Free;
 

-Michael