[VisualCLX] JPGEG unter CLX

kj · Hält's aus hier Beiträge: 11

Hallo,

Jetzt habe ich schon wieder ein Problem:

Unter VCL ist

Quelltext

1:	TImage.Picture.Bitmap.Canvas.draw(0,0,TJpegImage)

zulässig !

Unter CLX behauptet er daß TGraphic und TJpegImage inkompatibel sind! In der Source von Jpeg.pas ist jedoch schon eine Kompilerdirektive für CLX mit drin!

Any Comments ?

Moderiert von Tino: Code-Tags hinzugefügt.

_________________
great_signature

wulfskin · Verfasst: So 09.03.03 00:18

Hallo kj!

Wenn ich ehrlich bin, habe ich noch nie mit Cross Platform gearbeitet, deshalb kann ich dir auch nur einen geringeren Tipp geben: Versuch das Jpeg mit Hilfe von Bitmap.Assign in ein Bitmap umzuwandeln. Ist zwar etwas umständlich, aber falls du nachher noch mehr mit dem Bild machen möchtest, brauchst du das sowieso.

Gruß wulfskin!

_________________
Manche antworten um ihren Beitragszähler zu erhöhen, andere um zu Helfen.

kj · Hält's aus hier Beiträge: 11

Das klappt leider aus dem gleichen Grund nicht:

markieren

Quelltext

1:	image.Picture.Bitmap.assign(JpegImage)

führt zur Laufzeit zu folgender Exception:

Zitat:

TJpegImage kann nicht zu TBitmap zugewiesen werden !

Da haben die wohl auch Mist gebaut und in der Jpeg.pas das Objekt TJpegimage nicht abhängig von der verwendeten VCL/CLX als Nachfahre des betreffenden VCL.TImage/CLX.TImage abgeleitet.

Es ist ein Drama !

Aber trotzdem Danke für den Tip !

Moderiert von Tino: Code- & Quote-Tags hinzugefügt.

_________________
great_signature

mth · Beiträge: 34

kj hat folgendes geschrieben:

Unter CLX behauptet er daß TGraphic und TJpegImage inkompatibel sind!
In der Source von Jpeg.pas ist jedoch schon eine Kompilerdirektive für
CLX mit drin!
Any Comments ?

CLX und die jpeg.pas sind nicht kompatibel. QT kann von Haus aus mit JPEG Dateien umgehen. Die jpeg.pas ist unnötig.

kj · Hält's aus hier Beiträge: 11

Das stimmt so aber nicht !! die Dateierweiterungs-Unterstützung ist In QGraphics folgendermaßen definiert:

markieren

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

constructor TFileFormatsList.Create;
begin
  inherited Create;
  Add('ico', SVIcons, 0, TIcon);
  Add('xpm', SvPixmaps, 0, TBitmap);
  Add('png', SVPNGs, 0, TBitmap);
  Add('bmp', SVBitmaps, 0, TBitmap);
  Add('ddw', SDrawings, 0, TDrawing);
{$IFDEF LINUX}
  Add('jpg', SVJpegs, 0, TBitmap);
{$ENDIF}
end;

=> unter Linux werden sie standardmäßig unterstützt aber unter Windows ist man aufgeschmissen, da eine Exception geraist wird -> Wrongfileformat. Wie bekomme ich das unter Windows in den Griff ????

Thanx im Voraus!

Moderiert von Klabautermann: Code-Tags hizugefügt.
Moderiert von Tino: Absätze entfernt.

_________________
great_signature

rr · Hält's aus hier Beiträge: 1

bei mir gings mit:

markieren

Quelltext

1:
2:

Image1.Picture.RegisterFileFormat('jpg; *.jpeg','JPEG',TBitmap);
Image1.Picture.Bitmap.LoadFromFile(ExePath + 'name.jpg');

Moderiert von Tino: Code-Tags hinzugefügt.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme