Screenshot EAccessViolation

[Patrick]

Hallo, ich hätt da mal ein Problem, immer wenn ich dieses Script ausfürhre bekomme ich in der ZeileourImage.Width:=x; eine "EAccessViolation"-Fehlermeldung, kann mir vielleicht einer weiterhelfen?

Delphi-Quellcode:

procedure ScreenShot(var ourImage : TBitmap);
var DCPuffer, DC: HDC;
  Puffer : HBitmap;
  x, y: integer;
begin
  DC:=CreateDC('DISPLAY', nil, nil, nil);
  x:=screen.Width;
  y:=screen.height;
  DCPuffer:=CreateCompatibleDC(DC);
  Puffer:=CreateCompatibleBitmap(DC, x, y);
  SelectObject(DCPuffer,Puffer);
  BitBlt(DCPuffer, 0, 0, x, y, dc, 0, 0, srccopy);
  ourImage.Width:=x;
  ourImage.Height:=y;
  BitBlt(ourImage.canvas.Handle, 0, 0, x, y, DCPuffer, 0, 0, srcCopy);
  DeleteDC(DCPuffer);
  DeleteDC(DC);
end;

Danke im Voraus!

[edit=Daniel B]Delphi-Tags korrigiert. Mfg, Daniel B[/edit]

[sakura]

Ich vermute mal, daß in ourImage kein gülitges Bitmap ist...

ourImage := TBitmap.Create; ......

[Patrick]

Das war's, danke!

Jetzt hätte ich da noch ne Frage, und zwar wie ich mit
RegisterHotKey(Handle, 1, 0, key{vk_F10/Ord('A')}); die Taste "Print" registriere...
Ich habe auch schon Probiert mit der "HotKey-Komponente" zu arbeiten, aber diese akzeptiert auch kein Print...

Warum reagiert mein Programm eigentlich nur auf HotKeys, welche nicht im Programm, welches im Vordergrund läuft, benutzt werden? Also wenn "A" ein HotKey ist, dann reagiert mein Programm nur auf "A", wenn das Programm im Vordergrund die Taste "A" nicht benutzt...

[Alexander]

Damit die Ordnung bewahrt wird:
neue Frage neuer Thread

[Patrick]

Wie du meinst...
Dein Wunsch ist mein Befehl!