Bild aus XML auslesen. Wie?

[Neutral General]

Versuch einfach mal nur Image1.Picture.LoadFromFile
Musst dann ggf. "jpeg" bzw. "PNGImage" einbinden

Edit: Hat Image1.Picture nicht auch ein LoadFromStream? Dann müsstest du das Bild auch direkt aus dem dekodierten Stream laden können.

[matashen]

ich will ja nicht loadfromfile, sondern loadfromstream, und das gibts bei Picture nicht sondern nur im graphic-Adapter

Inziwschen bin ich der festen Überzeugung das es sich um JPEG handelt die hier ins XML eingebunden wurden. Zumindest wenn ich den Stream Speichere und wieder lade dann ist jpg die einzige Dateiversion wo delphi nicht meckert das der Header fehlerhaft ist. der Windows-Explorer zeigt aber alles tadellos an. Evtl wertet der den Header an sich aus und nicht anhand der Dateiendung... egal.

Problem ist noch das ich das Bild nicht direkt vom Stream in mein Image bekomme

Delphi-Quellcode:

Jpeg := TJPEGImage.Create;
Jpeg.LoadFromStream(binstream);
image1.Picture.bitmap.Assign(jpeg);

geht auch nicht. Bekomm ich einen JPEG-Fehler#42

Das einzige was geht ist als temporäre Datei abspeichern und wieder laden mit image1.picture.loadfromfile() - aber das ist ja totaler blödsinn wenn ich das schon im stream habe...
anererseits ists mir langsam schnuppe hauptsache das Ding läuft. Nachdem ich nicht weis wies die Software ablegt bin ich froh das überhaupt wieder als Bild zu bekommen. Evtl komm ich ja im laufe der Zeit noch dahinter.

Gruß Matthias

[dataspider]

IMHO erkennt TWICImage bei LoadFromStream das Format.

Delphi-Quellcode:

procedure Test;
var
  AImage: TWICImage;
  ABitMap: TBitmap;
begin
  AImage := TWICImage.Create;
  ABitMap := TBitmap.Create;
  try
    AImage.LoadFromStream(AStream);
    // Weiter entsprechend AImage.ImageFormat
    // oder in eine Bitmap...
    ABitMap.Assign(AImage);
  finally
    ABitMap.Free;
    AImage.Free;
  end;
end;

Bab es grad mal mit PNG ausprobiert:

Delphi-Quellcode:

procedure TForm11.Button1Click(Sender: TObject);
Var
  AStream: TMemoryStream;
begin
  AStream := TMemoryStream.Create;
  try
    AStream.LoadFromFile('r:\warning.png');
    ShowImageFromStream(AStream);
  finally
    AStream.Free;
  end;
end;

procedure TForm11.ShowImageFromStream(AStream: TStream);
Var
  AImage: TWICImage;
begin
  AImage := TWICImage.Create;
  try
    AImage.LoadFromStream(AStream);
    Image1.Picture.Assign(AImage);
  finally
    AImage.Free;
  end;
end;

Frank

[hsdkit111]

Hallo Matthias
Ich schreibe jetzt auch auf diesen Account!

Ich bekomme es nicht hin, das Bild aus der XML darzustellen, das Bild wir ca. 1/3 korrekt dargestellt, dann aber kommt das Bild verzerrt.
Hast Du mittlerweile eine Lösung gefunden?
Würde mich sehr interessieren, wäre auch bereit, Dir eine Aufwandenstschädigung zukommen zu lassen.

Ich würde Dir gerne eine entsprechende XML Datei zukommen lassen, allerdings ist Selbige > 100KB und somit nicht anzuhängen.

Wäre schön, wenn Du dich melden würdest, DANKE!

Danke und lieben Gruss aus der Schweiz
Hermann

[Luckie]

Nur mal zum Testen: dekodier das base64 codierte Bild in einen Stream und speichere ihn ab. Du musst natürlich wissen um welches Dateiformat es sich handelt: BMP, JPEG, Gif, ... Kommt dann alles so an, wie gewünscht?

[delnu]

Vielleicht hilft dieser Link weiter?
http://www.swissdelphicenter.ch/torr...de.php?id=1524

EDIT: Mittlerweile habe ich den im obigen Link enthaltenen BASE64-Decoder mit E-Mails getestet. Der funktioniert nicht. Aber der hier: http://www.delphipraxis.net/991-base...-decoding.html

[Mavarik]

Zitat von hsdkit111:

Ich würde Dir gerne eine entsprechende XML Datei zukommen lassen, allerdings ist Selbige > 100KB und somit nicht anzuhängen.

zippen?

[himitsu]

Zitat von matashen:

Problem ist noch das ich das Bild nicht direkt vom Stream in mein Image bekomme

Delphi-Quellcode:

Jpeg := TJPEGImage.Create;
Jpeg.LoadFromStream(binstream);
image1.Picture.bitmap.Assign(jpeg);

geht auch nicht. Bekomm ich einen JPEG-Fehler#42

In Welcher Zeile kommt der Fehler?

Ach ja, wolltest du das Jpeg nicht in das "Image" reinbekommen?
Wenn ja, warum weist du es dann dem Bitmap zu?

[Neutral General]

Zitat von matashen:

Delphi-Quellcode:

Jpeg := TJPEGImage.Create;
Jpeg.LoadFromStream(binstream);
image1.Picture.bitmap.Assign(jpeg);

geht auch nicht. Bekomm ich einen JPEG-Fehler#42

Probier es wie gesagt mal mit

Delphi-Quellcode:

Jpeg := TJPEGImage.Create;
Jpeg.LoadFromStream(binstream);
image1.Picture.Graphic := Jpeg;

Vorausgesetzt natürlich es ist auch wirklich ein JPEG.
Evtl musst du binstream.Position vorher auf 0 setzen. Bei manchen Methoden macht das Probleme wenn die Position nicht bei 0 steht.