(Bild-)Dateien und Text datentreu speichern

[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