Nein, so war das nicht gemeint. Ich meinte den Aufbau der beiden Texte.
Aber es hat sich scheinbar erledigt. Habe ein passendes Beispiel gefunden, dass ich ein wenig umgebaut habe und das jetzt funktioniert.
Für alle die es interessiert:
Delphi-Quellcode:
procedure decode(AText: String; AImage:TImage);
var TmpInstream : TMemoryStream;
TmpOutstream: TMemoryStream;
I : Integer;
TmpFile : Textfile;
TmpSList : TStringList;
TmpFilePath : String;
begin
TmpInstream := TMemoryStream.Create;
TmpOutstream := TMemoryStream.Create;
TmpSList := TStringList.Create;
try
TmpFilePath := ExtractFilePath(ParamStr(0)) + 'tmp.txt';
TmpSList.Text := AText;
AssignFile(TmpFile, TmpFilePath);
Rewrite(TmpFile);
for I := 0 to TmpSList.Count - 1 do
begin
Writeln(TmpFile, TmpSList[I]);
end;
CloseFile(TmpFile);
TmpInstream.LoadFromFile(TmpFilePath);
DecodeStream(TmpInstream,TmpOutstream);
AImage.Bitmap.LoadFromStream(TmpOutstream);
finally
TmpOutstream.Free;
TmpInstream.Free;
TmpSList.Free;
end;
end;
Schöner wäre es natürlich, nicht über das Speichern und wieder Laden der Datei zu gehen, aber ich habe es auf Biegen und Brechen nicht hinbekommen....