Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi JPEG aus Zwischenablage lesen (https://www.delphipraxis.net/56047-jpeg-aus-zwischenablage-lesen.html)

faux 31. Okt 2005 09:52


JPEG aus Zwischenablage lesen
 
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 31. Okt 2005 10:33

Re: JPEG aus Zwischenablage lesen
 
OK, es funktioniert doch nicht... :?
Delphi-Quellcode:
begin
  Application.Initialize;
  JpegImage := TJpegImage.Create;
  Clipboard := TClipboard.Create;
  Bitmap := TBitmap.Create;
  Bitmap.Assign(Clipboard); //Bitmap wird Zwischenablage zugewiesen
  JpegImage.Assign(Bitmap); //Jpeg wird Bitmap zugewiesen und somit konvertiert
  Clipboard.Clear; //Zwischenablage leeren
  Clipboard.Assign(JpegImage); //Jpeg in Zwischenablage schreiben
  JpegImage.Free;
  ClipBoard.Free;
  Bitmap.Free;
  Application.Run;
end.
Ist das so ok? Es funktioniert nicht. Danach ist nämlich wieder ein Bitmap in der Zwischenablage... :roll:
Bin für jeden Hinweis dankbar.
Grüße, Faux.

toms 31. Okt 2005 13:06

Re: JPEG aus Zwischenablage lesen
 
Hallo,

Soviel ich weiss, gibt's gar kein Standard Clipboard Format fuer JPGS...

faux 31. Okt 2005 14:31

Re: JPEG aus Zwischenablage lesen
 
Zitat:

Zitat von toms
Hallo, Soviel ich weiss, gibt's gar kein Standard Clipboard Format fuer JPGS...

Aha. Was heißt das genau? :oops:

Der_Unwissende 31. Okt 2005 19:20

Re: JPEG aus Zwischenablage lesen
 
Was genau willst du eigentlich machen? Ich meine ein JPEG ist eigentlich auch nur eine komprimierte Bitmap. Und das was du anzeigst ist immer eine Bitmap.
Ansonsten solltest du dir vielleicht die Methode SaveToClipboardFormat von TJpegImage anschauen und dort weiter suchen.

Gruß Der Unwissende


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:10 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz