Hallo Leute,
ich habe ein Problem das ich einfach nicht verstehe, ich möchte im Grunde nichts anders tun als ein JPEG als BMP speichern.
Dazu habe ich diese Prozedure verwendet:
Code:
procedure TForm1.JPEGtoBMP(const FileName: TFileName);
var
jpeg: TJPEGImage;
bmp: TBitmap;
begin
jpeg := TJPEGImage.Create;
try
jpeg.CompressionQuality := 100;
jpeg.LoadFromFile(FileName);
bmp := TBitmap.Create;
try
bmp.Assign(jpeg);
bmp.SaveTofile(ChangeFileExt(FileName, '.bmp'));
finally
bmp.Free
end;
finally
jpeg.Free
end;
end;
Und aufrufen tu ichs so:
Code:
Jpeg2Bmp(Label5.Caption);
Das Probelm ist aber das bei mir TBitmap nivht von der Klasse Graphics abgeleitet wirds sonder von der aus Windows.
Ich habe also keine Methoden zur verfügung, kein create, assign, safetofile.
Was kann ich tun damit das vom richtigen Type abgewandelt wird, und vor allem warum ist das so, ist das vielleicht normal?
Ich habe viel gegooglet und gesucht aber irgendwie scheine ich der einzige zu sein der diesews Problem hat.
Mein lösungsversuch war dann vor der Procedure den Typ zu definieren, das hab ich so gemacht:
Code:
type TBitmap = class (Graphics.TGraphic);
Dann wird der richtige Typ verwendt, aber das is doch nicht normal oder?
Weiters bekomme ich dann immer eine Fehlermeldung: TJPEGImage kann nicht zu TBitmap zugewiesen werden.
Wäre für Hilfe sehr dankbar, ich komme selber nicht drauf.
Danke
SM