Streamproblem mehrere dateien

[ghost007]

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

[Die Muhkuh]

Hi,

Du musst nach LoadFromFile die Position per .Position wieder auf 0 stellen.

[ghost007]

Quasi so?

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');
  str.Position:=0;
  str2:=TMemoryStream.Create;
  str2.LoadFromFile('C:\test2.png');
  str2.Position:=0;
  fs.CopyFrom(bla,bla.Size); //hier
  fs.CopyFrom(str,str.Size);
  fs.CopyFrom(str2,str2.Size);
  str.Free;
  str2.Free;
  bla.Free;
  fs.Free;
end;

Wenn du das so gemeint hast, dann funzt das immer noch nicht

//Edit: Wenn ich die markierte stelle auskommentiere gehts ohne fehler ...

[Luckie]

Wo steht der Dateizeiger nach CopyFrom?

[ghost007]

okay, der fehler schein in dieser zeile zu liegen.
fs.CopyFrom(bla,bla.Size); Davor steht fs.position auf 0 und dannach/währendessen fliegt die AV

[alzaimar]

bla.Position muss wieder auf 0 stehen, denn die CopyFrom-Methode kopiert ab der aktuellen Position, außer, wenn bei Size (dem 2.Parameter) 0 angegeben wird.

[ghost007]

Zitat von alzaimar:

bla.Position muss wieder auf 0 stehen, denn die CopyFrom-Methode kopiert ab der aktuellen Position, außer, wenn bei Size (dem 2.Parameter) 0 angegeben wird.

geht