Was kann Paint, was ich nicht kann? ( Clipboard pasten )

[Garfield]

Vielleicht hilft dies: http://www.swissdelphicenter.ch/de/showcode.php?id=1981

[Elvis]

Hast du neben deiner 2005PE nch eine "richtige" SKU einer früheren Delphi Version?
Wenn ja würde ich das ganz mal durch die VCL Sourcen debuggen. Irgendwo wird dir schon der nay-sayer äh nil-pointer begegnen.

[SirThornberry]

Ich vermute es liegt schlicht weg an dem Bitmapformat. Ich hab ein Programm das unter windows95 pefekt funktionierte. Wenn ich im Windows einen Screenshot mache und diesen einfügen will knallts und das Programm ist zu. Wenn ich den Screenshot ist in Paint einfüge, und von dort aus erneut in die Zwischenablage kopiere dann klappt es da Paint vermutlich das unkomprimierte Format in die Zwischenablage legt.

[DGL-luke]

@Elvis: Sorry, bin da nicht so bestückt... ich werd aber heute noch die D2006 Pro SSL bestellen.
(D3 Professional hab ich noch...)
(btw: SKU?)

@Muetze1: Ich hab aber keine Ahnung, wo die AV herkommt. Die Breakpoints wollen nämlich irgendwie nicht, deshalb auch das showmessage-zeugs. Ich poste hier noch mal die komplette routine:

Delphi-Quellcode:

procedure TFMain.SBPasteClick(Sender: TObject);
var pic: TPicture;
    b: TBitmap;
    h: HBITMAP;
begin
  pic := TPicture.Create;
  b := TBitmap.Create;

 if Clipboard.HasFormat(CF_BITMAP) then
    begin
      Showmessage('CF_BITMAP');
      h := Clipboard.GetAsHandle(CF_BITMAP);
      b.Handle := h;  // Ich glaube, die AV kommt hier. Eventuell muss man dem bitmap ja noch sagen, es soll ein WinAPI-Handle jetzt bekommen?!
    end
  else
   Exit;

  LoadImage(pic);
  pic.Free;
end;

@SirT: Ja, vermute ich auch... allerdings funktionierts mit einem Windows-Screenshot.

[DGL-luke]

ich pushe hier nochmal...

[Neutral General]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var pic: TPicture;
    h: HBITMAP;
begin
  pic := TPicture.Create;

  if Clipboard.HasFormat(CF_BITMAP) then
    begin
      h := Clipboard.GetAsHandle(CF_BITMAP);
      Pic.Bitmap.LoadFromClipboardFormat(CF_BITMAP,h,CF_PALETTE);
    end
  else
   Exit;

  Image1.Picture := Pic;
  pic.Free;
end;

Also DAS funktioniert bei mir!

Gruß
Neutral General

[3_of_8]

Ich weiß nur, dass die Fehlermeldung immer dann kommt, wenn man versucht, eine jpeg Datei zu öffnen für die Delphis JPEG Unit zu dummdie Delphis JPEG Unit nicht unterstützt. Da hilft dann immer mit GIMP öffnen und neu abspeichern.

[DGL-luke]

@Neutral General: Auch wenn du die Zwischenablage mit GIMP füllst?

Bei mir nicht....

@all: Wie würde man denn das auf reiner WinAPI-Basis machen?

[DGL-luke]

Hmm... hab eine GDI+-Kapselung im Internet gefunden. Und die kanns auch nicht.

[franktron]

Sgat mal kann das sein das Gimp ein OS2 BMP erzeugt hat ???? und kein Windows BMP,
wiel Paint kann komischerweise OS2 BMP.