Bild aus XML auslesen. Wie?

**baumina**

Schau mal in die Unit {Soap.}EncdDecd.pas, da müsste alles drin sein, was du brauchst.

Delphi-Quellcode:

			JStream := TBytesStream.Create(DecodeBase64(AString));

Jpeg := TJPEGImage.Create;

Jpeg.LoadFromStream(JStream);

**dataspider**

Ich hatte das mal mit Indy gemacht für PDF - Dateien:

zusammenfalten · markieren

Delphi-Quellcode:

			...

procedure Base64DecodeToStream(const AText: string; AStream: TMemoryStream);

...

procedure Base64DecodeToStream(const AText: string; AStream: TMemoryStream);

var

  DecodedStream: TBytesStream;

  Decoder: TIdDecoderMIME;

begin

  Decoder := TIdDecoderMIME.Create(nil);

  try

    DecodedStream := TBytesStream.Create;

    try

      Decoder.DecodeBegin(DecodedStream);

      Decoder.Decode(AText);

      Decoder.DecodeEnd;

      DecodedStream.SaveToStream(AStream);

    finally

      DecodedStream.Free;

    end;

  finally

    Decoder.Free;

  end;

end;

Frank

**matashen**

Hallo,

erstmal danke für die konkreten Codeschnipsel und brauchbaren Antworten.

Also ich hab die Enterprise, da ist alles drin - auch im Indy-Paket die IDDecoderMIME.

Ich hatte es schon fast richtig. Was mich wurmt, bei den Jedis ist keine gute Hilfe mit dabei (F1).

Der Code von frank passt super. Ganz klappts aber noch nicht
Ich hab in mal integriert und alles raus was ich ohne procedure nicht brauch und schon anderswo created und free ist

markieren

Delphi-Quellcode:

			      IDDecoderMIME1.DecodeBegin(jStream);//JStream:TBytesstream;

      IDDecoderMIME1.Decode(a);//a:string;

      IDDecoderMIME1.DecodeEnd;

      jStream.SaveToStream(binstream);//binstream:Tmemorystream;

      jstream.SaveToFile('U:\TEST1.png');//funktioniert  auch als .bmp .jpg

letzte Zeile hab ich rein um zu testen welches Bildformat zugrunde liegt, aber irgendwie checkt das Delphi selber und ich kann in jedem bliebigem Format speichern.

image1.Picture.Graphic.LoadFromStream(jstream);// funkioniert nicht! Warum?
image1.Picture.bitmap.loadfromstream(jstream); auch das funktioniert nicht

Irgendwie fehlt mir noch das Puzzle um das Bild in ein TImage zu bekommen.

Gruß Matthias

**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

markieren

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.

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

**himitsu**

Zitat von matashen:

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

markieren

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:

markieren

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

markieren

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.