Grafik-Probleme mit Delphi..

Salute,
habe schon wieder mal ein Prob mit Delphi.

Wenn ich von TPicture aus ein JPG laden will, und das nicht die Endung *.jpg hat, dann geht das nicht. Ok, da habe ich in der Hilfe das hier gesehen:
TPicture.RegisterFileFormat

type TGraphicClass = class of TGraphic;
class procedure RegisterFileFormat(const AExtension, ADescription: string; AGraphicClass: TGraphicClass);

Beschreibung

Mit RegisterFileFormat können Sie ein neues Grafikdateiformat bei TPicture registrieren. Dieses Format kann anschließend in einem Öffnen- oder Speichern-Dialogfeld verwendet werden.

Der Parameter AExtension bestimmt die aus drei Zeichen bestehende DOS-Dateinamenserweiterung für die Grafikklasse (beispielsweise “BMP“ für TBitmap). Mit ADescription kann die in der Dropdown-Liste des Dialogfeldes angezeigte Beschreibung für die Grafik angegeben werden (beispielsweise “Bitmaps“ für TBitmap). Der Parameter AGraphicClass registriert die neue Grafikklasse, die dem Dateiformat zugeordnet werden soll.

Nun, darauf hin habe ich folgendes geschrieben...
image1.Picture.RegisterFileFormat
('JPG','',main_form.Nr_SpinEdit.value);

Den Wert des SpinEdit Feldes nimmt er Compiler aber nicht an, da er nicht aus der TGraphicClass stammt. Wie kann ich es schaffen, dass ich den SpinEdit Wert als Erweiterung übergeben kann.

Danke für eure Hilfe....

WEBSTER

------------------
----==WEB-MASTER OF==----
---=hot.warez.arecool.net=---

Hi Webster!

Registerfileformat ist glaub' ich nicht der richtige Weg. Bin mir nicht sicher, aber ich denke mal, dass ich schon mal was mit einer Komponente TJPEGImage gemacht habe.

Vielleicht was in der Art:

PROCEDURE ConvertBMPtoJPG (CONST BMPName: STRING; JPGName: STRING);
VAR
Bitmap: TBitmap;
JPEG : TJPEGImage;
BEGIN
Bitmap := TBitmap.Create;
JPEG := TJPEGImage.Create;
TRY
Bitmap.LoadFromFile(BMPName);
JPEG.CompressionQuality := 80;
JPEG.Assign(Bitmap);
JPEG.SaveToFile(JPGName);
FINALLY
Bitmap.Free;
JPEG.Free
END
END {ConvertBMPtoJPG};

Danke für deine Antwort. Sie hilft mir aber leider nicht weiter... Ich müßte event. eine Komponente haben, die das laden der Bilder automatisiert. Und zwar nicht nicht nach der Extension *.jpg , sonderen das Format aus dem Header der Datei erkennt. Suche schon den ganzen Tag nach so einem Prog. Habe aber auch langsam keine Lust mehr mir eine Komonente nach der anderen zu installieren , nur um zu probieren ob es klappt.
Muß aber umbedient dafür eine Lösung finden...

Vielleicht fällt dir (oder euch) ja noch etwas ein.....

WEBSTER

------------------
----==WEB-MASTER OF==----
---=hot.warez.arecool.net=---

Wenn ich dich richtig verstanden habe, hast du eine JPEG-Datei bei der du die Dateiendung verändert hast (z.B. *.fox).
Dann versuch mal:

image1.Picture.RegisterFileFormat('fox','',tjpegimage);

und nicht vergessen jpeg bei uses einzutragen.

Cu Fox99

Hmm, wenn es Dir nur um das Erkennen von "echten" JPEGs trotz anderer Extension geht, scanne doch den Header selbst. Wenn ich es richtig im Kopf habe, müßte ab Byte 6 "JFIF" als Kennung stehen...

O Love

------------------
"I will not abide disobediance!"

Salute

image1.Picture.RegisterFileFormat('fox','',tjpegimage); Hat super gelappt....

Ein grosses Lob an euch alle....

Thnx
WEBSTER

------------------
----==WEB-MASTER OF==----
---=hot.warez.arecool.net=---