Hi,
ich wollte mit folgendem code 2 dateien zusamenfügen und vorher noch den string '13' in die datei schreiben.
Delphi-Quellcode:
procedure TForm1.Test;
var
str,str2: TMemoryStream;
fs: TFileStream;
bla: TStringStream;
begin
fs:=TFileStream.Create('U:\blubber.big',fmCreate);
bla:=TStringStream.Create;
bla.WriteString('13');
str:=TMemoryStream.Create;
str.LoadFromFile('C:\test.png');
str2:=TMemoryStream.Create;
str2.LoadFromFile('C:\test2.png');
fs.CopyFrom(bla,bla.Size);
fs.CopyFrom(str,str.Size); //hier
fs.CopyFrom(str2,str2.Size);
str.Free;
str2.Free;
bla.Free;
fs.Free;
end;
Jedoch bekomm ich in der makierten zeile.
Die Meldung EReadError mit der Meldung 'Stream-Lesefehler'.