Problem mit TImage und FileStream..

[Dash]

Hallo,

ich habe Bilder die keine Endung haben. Diese möchte ich nun in ein TImage reinladen, dass Problem ist natürlich das er sofort über die Dateiendung meckert. Nun habe ich es einfach mal mit einem FileStream versucht, aber ich bekomme nur ne Zugriffsverletzung ...

Delphi-Quellcode:

...
var
TestStream: TFileStream;
begin
  TestStream := TFileStream.Create('D:\Eigene Dateien\Wallpaper\Brücke.jpg' , fmOpenRead);
  Image2.Picture.Graphic.LoadFromStream(TestStream);
  TestStream.Free;
end;

Ich hoffe ihr könnt mir weiterhelfen

Grüße,
Dash

[SirThornberry]

das passiert weil Graphic nicht instanziert ist. Du musst wissen von welchem Typ deine Grafik ist.
Wenn deine Grafik zum Beispiel vom Type ".jpg" ist dann musst du das wie folgt laden:

Delphi-Quellcode:

var LJPEG: TJpegImage;
begin
  LJPEG := TJPEGImage.Create(nil);
  LJPEG.LoadFromFile('D:\Eigene Dateien\Wallpaper\Brücke.jpg');
  Image2.Picture.Graphic := LJPEG;
  LJPEG.Free;

[Dash]

Das Problem ist leider, dass die Grafiken verschiedene Typen haben und diese stehen eben nicht hinter dem Dateinamen

[Khabarakh]

Dann eben TPicture.LoadFromStream, Picture sollte automatisch initialisiert werden.

[Dash]

Dann bekomme ich nur "Cannot assign a TPicture to TImage"

[Khabarakh]

Whoops, das ist ja protected .
Aber so wie es aussieht, läuft die ganze TGraphicClass-Registrierung allein über die Erweiterung, mit TPicture wirst du also keine Chancen haben.
Maybe per GDI, Genaueres kann ich dazu leider nicht sagen.

[SirThornberry]

TPicture unterscheidet normalerweise anhand der Dateiendung um was für einen Typ es sich handelt. Wenn keine Dateiendung vorhanden ist musst du also selbst heraus finden um welchen Typ es sich handlet. Dazu könntest du die Datei als Stream öffnen und den Inhalt analysieren. Und wenn du dann weißt von welchem Typ die Datei ist kann du sie, wie von mir beschrieben laden.

[Dash]

Hm, leider habe ich keine JPEG Bilder sondern nur PNG und Gif Bilder. Leider funktioniert es aber jetzt nicht wenn ich TPNGImage schreibe, da es nur einfache Units sind.

Benutze diese Unit hier für PNG Bilder:
http://pngdelphi.sourceforge.net/

Grüße,
Dash

[Dash]

*push*