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