Hallo!
Ich wollte gerade ein Programm schreiben, dass einfach ein Bitmap aus der Zwischenablage in ein JPEG konvertiert und dann die Zwischenablage überschreibt. Dazu habe ich das gemacht:
Delphi-Quellcode:
program Project1;
uses
Forms, ClipBrd, Graphics, Jpeg;
var
Clipboard: TClipboard;
JpegImage: TJpegImage;
begin
Application.Initialize;
JpegImage := TJpegImage.Create;
Clipboard := TClipboard.Create;
JpegImage.Assign(Clipboard); //Fehler
Clipboard.Assign(JpegImage);
JpegImage.Free;
ClipBoard.Free;
Application.Run;
end.
Jedoch gibt es in der Markierten Zeile (14) einen Fehler:
Code:
TClipboard kann nicht zu TJPEGImage zugewiesen werden
Wie geht das sonst??
Bitte um Hilfe.
NACHTRAG:
Hat sich erübrigt. Danke.
Ich habe einfach das Bild zuerst in ein TBitmap gelesen und dann erst in ein JPEG gewandelt.
Grüße, Faux