Einzelnen Beitrag anzeigen

Benutzerbild von faux
faux

Registriert seit: 18. Apr 2004
Ort: Linz
2.044 Beiträge
 
Turbo Delphi für Win32
 
#1

JPEG aus Zwischenablage lesen

  Alt 31. Okt 2005, 09:52
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
  Mit Zitat antworten Zitat