(Bild-)Dateien und Text datentreu speichern

[Florian H]

Aloha,

ich möchte der TidHTTP-Komponente eine Postanfrage übermitteln, welche unter anderem mehrere Bilder enthält, welche in meinem Programm nur im Speicher (als TJPEGImage) vorliegen, nicht aber als Datei.

Jetzt möchte ich aus diesen Bilddateien soetwas machen:

Code:

--XXXXXXXXXXXX
Content-Type: image/jpeg

blubberblaBILDDATEN_ALS_JPG_CODE
--XXXXXXXXXXXX
Content-Type: image/jpeg

blubberbla_NOCH_MEHR_BILDDATEN_ALS_JPG_CODE
--XXXXXXXXXXXX

Dafür brauche ich eine Möglichkeit, sowohl den plaintext als auch die Bilddaten genau so zu speichern, wie sie zu sehen sind (plaintext) bzw. in einer Datei vorlägen (JPG).

Wenn ich dafür TStrings/TSringList nehme, fürchte ich, dass mir das den JPEG-Code irgendwie zerhackt , wegen "Sonderzeichen" (Stringlist möchte ja alles darstellen können) .. untypisierte Dateien oder Streams zerhacken mir wiederrum alles, weil sie Trennungszeichen oder anderen Code reinhauen.

Was kann ich denn stattdessen verwenden?

Die Daten (=das aus dem CODE-Block oben) sollen sich anschließend oder gerne auch währenddessen als Datei speichern lassen...



Grüßle,
flo

[thkerkmann]

Hi,

du müsstest wahrscheinlich eine zusätzliche Headerzeile für

Content-Encoding

einfügen, und dann beispielsweise base-64 encoding verwenden.
Damit lässt sich binärer Inhalt in Textform darstellen.

Dieses Verfahren wird auch verwendet, wenn in Emails binäre Anhänge verschickt werden.

Ich verwende dafür Synapse Libraries z.B. SynaCode.pas zum Encodieren und Decodieren
und schau dort auch mal in MimeMess.pas und MimeType.pas rein. Das hilft zum Verstehen.

Gruss

[Florian H]

Danke dir erstmal .. mein Problem ist aber vorerst noch rein Delphi-technisch , bei der eigentlichen Übertragung bin ich noch nichtmal :>


Kleine Veranschaulichung , wo mein Problem liegt (ohne das Brimborium drumherum mit Create/Free etc.):

TStringList

Delphi-Quellcode:

  
//jpg enthält ein normales JPG-Bild
stream := TMemoryStream.Create;   
jpg.SaveToStream(stream);
stream.Position := 0;
memo1.Lines.LoadFromStream(stream);

// jetzt enthält Memo1 lediglich: ÿØÿà

Ich brauche ansich erstmal einfach eine byte für byte gleiche Abbildung von Text und Dateicode hintereinander...


Das, was in PHP in etwa wie folgt aussehen würde:

PHP-Quellcode:

echo  "Test-Text\n";

$fp = @fopen("bild.jpg","r");    
while($line=fgets($fp))
{
  echo $line;
  Flush();
}
fclose($fp);

Das gäbe, etwa in einem Webbrowser ausgegeben, erst den String und dann die kompletten Bilddaten - und könnte die speichern (auch wenns da wenig Sinn macht).

In Delphi will ich das selbe .. nur in einer Datei gespeichert, ohne vorherige Anzeige.


Grüße

[thkerkmann]

Ja ist klar,

aber die Routinen helfen dir einen Stream zu encodieren.

d.h. binärer stream rein -> text stream (base 64) raus

Du kannst auch einfach einen tMemorystream verwenden und die Property Memory als pChar casten.
Dann hast Du einen String (binären Inhaltes).

Eine Stringlist eignet sich nicht, weil hier CR-LF eingefügt werden und damit der binäre Inhalt (jpg)
kaputt geht.

Du solltet wirklich mal in Synacode reinschauen, dann wirds klarer.

Zitat:

In Delphi will ich das selbe .. nur in einer Datei gespeichert, ohne vorherige Anzeige.

Was soll denn das für eine Datei werden ? Willst Du die nachher weiterverarbeiten ? Oder irgendwie Anzeigen ?
Wenn das wieder HTML werden soll, dann liegen die Bilder ja eh nicht in derselben Datei....

Gruss und Viel Erfolg.