gelöst: QR Code in die Zischenablage kopieren

[hausi]

Ich habe auf einem Formular eine TBarcodeQR Komponente plaziert und kann auch problemlos einen Barcode erstellen. Mein Problem, ich möchte den Barcode in die Zwischenablage kopieren und so z.B. in Word einfügen. Doch ich kriege diesen Komponente einfach nicht in die Zwischenablage. Hat mir jemand einen Tipp.

Ich habe es mit Clipoard := und auch mit Clipboard.assign(Barcodeqr1) etc. probiert.

CLipbrd ist in Uses erfasst.

Ev. noch anzumerken wäre, dass ich ein Anfänger bin.

Danke
Hausi

[wp_xyz]

Willst du den dem Barcode zugeordneten Text kopieren?

Code: Alles auswählen

  clipboard.AsText := BarcodeQR1.Text; 

Oder den Barcode als Bitmap?

Code: Alles auswählen

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.SetSize(BarcodeQR1.Width, BarcodeQR1.Height);
    bmp.Canvas.Brush.Color := clWhite;
    bmp.Canvas.FillRect(0, 0, bmp.Width, bmp.Height);
    BarcodeQR1.PaintOnCanvas(bmp.Canvas, Rect(0, 0, bmp.Width, bmp.Height));
    clipboard.Assign(bmp);
  finally
    bmp.Free;
  end;
end;

[EDIT]
Ich habe das Kopieren des Bitmaps eben in die Komponente eingebaut und ins CCR hochgeladen --> es gibt jetzt ein

Code: Alles auswählen

  BarcodeQR1.CopyToClipboard;

Optioal können Breite und Höhe des Bitmaps angegeben werden, wenn nicht, werden die Werte aus der Barcode-Instanz genommen. Und die neue Methode steht natürlich allen Nachfahren von TLazBarcodeCustomBase zur Verfügung.

[Mathias]

Gibt es bei Barcodeqr1 eine Eigenschaft, zb. Picture, Bitmap, Images etc ?
Dann müsste dies übergeben werden.

Dann würde dies etwa so aussehen.

Code: Alles auswählen

Clipboard.assign(Barcodeqr1.Bitmap);
Clipboard.assign(Barcodeqr1.Picture.Bitmap);

[hausi]

Danke für die Hilfe, die Lösung als Bitmap von wp_xyz funktioniert einwandfrei. Danke vielmals, ich hätte das niemals lösen können.

Hausi