Image in den Zwischenspeicher

[Hospi]

Zitat:

Du erzeugst ein Bitmap, zeichnest drauf und packst es dann in das Image, hier ein Beispiel:

Delphi-Quellcode:

 procedure TForm1.Button1Click(Sender: TObject); 
var 
  fBmp: TBitmap; //wird zum Zeichnen genutzt 
begin 
  //Instanz anlegen 
  fBmp := TBitmap.Create; 
  try 
    //Breite und Höhe der des Image anpassen 
    fBmp.Width := Image1.Width; 
    fBmp.Height := Image1.Height; 
    //Pixelformat setzen 
    fBmp.PixelFormat := pf32Bit; 

    //hier kommen deine ganzen Zeichenfunktionen 
    fBmp.Canvas.MoveTo(1, 1); 
    fBmp.Canvas.LineTo(100, 100); 
    //... 

    //Bitmap ins Image kopieren 
    Image1.Picture.Bitmap.Assign(fBmp); 
  finally 
    //Instanz wieder freigeben 
    fBmp.Free; 
  end; 
end;

Ähm ... joa.

Ich habe diese Procedure ausprobiert und es kommt immer noch der Access Violation Fehler.

Was muss denn noch zusätzlich eingefügt werden???? Die ClipBrd habe ich in Uses drin und Clipboard als vom Typ TClipboard deklariert (Als Globale Variable). Fehlt da noch was oder könnte es vieleicht an meiner Delphi-Version liegen (Version 6.00)?

Wenn ich den Quellcode von Catbytes ausprobiere:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
  MyFormat : Word; 
  AData : THandle; 
  APalette : HPalette; 
begin 
  Image1.Picture.SaveToClipBoardFormat(MyFormat,AData,APalette); 
  ClipBoard.SetAsHandle(MyFormat,AData); 
end;

und ClipBoard.SetAsHandle(MyFormat,AData); weg lasse kommt kein Fehler (Das Bild wird natürlich auch nicht in den Zwischenspeicher geladen).
Folge: Entweder stimmt was nicht mit meinem Delphi nicht oder ich habe einfach etwas beim Einbinden/Deklaration vergessen.