Forum: Multimedia
Delphi
by Zacherl,
18. Jun 2010
Danke ich habe es nun hinbekommen ein Bitmap zu erstellen und zu speichern. Ein Problem gibt es allerdings noch, wenn ich bei der Farbtiefe auf unter 16 Bits gehe. Dann kann das Bild gespeicherte Bild nicht dargstellt werden und im Hexeditor sieht das Farbarray auch komplett anders aus. :?
function PixelFormatToBitCount(Format: TPixelFormat): Integer;
begin
Result := 0;
case Format of
...
Forum: Multimedia
Delphi
by Zacherl,
17. Jun 2010
Hey,
ich habe eine Funktion, mit der ich einen Screenshot des kompletten Desktops erstellen kann:
procedure TScreenCaptureThread.CreateBitmapScreenShot(Bitmap: TBitmap;
Format: TPixelFormat; Ratio: TResolutionRatio);
var
C: TCanvas;
R: TRect;
Width, Height: Integer;
B: TBitmap;