Image in den Zwischenspeicher

[Hospi]

Zitat:

direkt auf das Bitmap im Image

Wie ist das gemeint?

[Catbytes]

Hallo,

was spricht gegen diesen Code?

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;

ClipBrd in Uses nicht vergessen...

[Pr0g]

Zitat von Hospi:

Wie ist das gemeint?

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;

Nun kannst das Bitmap auch mit
Clipboard.Assign(Image1.Picture.Bitmap); in die Zwischenablage kopieren.

[Hospi]

Zitat:

was spricht gegen diesen Code?

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;

Wie wird MyFormat, AData, APalette belegt?

[Pr0g]

Zitat von Hospi:

Wie wird MyFormat, AData, APalette belegt?

Warum nimmst du nicht die Methode, die ich beschrieben hatte. Um das Bitmap im Image wirst du sowieso nicht herumkommen, denn vom direkten Zeichnen auf das ImageCanvas ohne Bitmap kann ich nur abraten.

[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.

[Pr0g]

Wo genau kommt der Fehler? Wenn das Bild im Image ist kannst du es doch einfach per
Clipboard.Assign(Image1.Picture.Bitmap); in die Zwischenablage packen.

[Catbytes]

Zitat von Hospi:

Clipboard als vom Typ TClipboard deklariert (Als Globale Variable).

Warum machst Du das? Clipboard ist schon von TClipboard abgeleitet.

Lade Dir mal das runter.

Das klappt bei mir einwandfrei...

[Hospi]

Super, vielen Dank, es funktioniert! (Beide Varianten)
Mein Problem lag wahrscheinlich bei der Daklaration:

Delphi-Quellcode:

var
  Form1: TForm1;
  clipboard:Tclipboard;

implementation
                  
{$R *.dfm}

das wars also. ich gedachte, dass ich clipboard noch mal(so wie oben) daklarieren müsste.

Bis denn
Sven

[Pr0g]

Mal als Hinweis für spätere Codes. Deklarier die Variablen nicht gloabl, wie in deinem Beispiel, sondern in dem "private", bzw. "public" Abschnitt der Form.