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
Faux Manuel
Wer weiß, dass er nichts weiß, weiß mehr, als der der nicht weiß, dass er nichts weiß.
GoTrillian