zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var
Buf : Array [0..524287] of Char; Buf ist zu klein
fs2 : TFilestream;
Temp :TBC;
SizeEel,SizeEef : Int64;
startEel, StartEef : Int64;
begin
Temp := GetSgoldPlatform(OpenDialog1.Filename);//hier wird Typ bestimmt
SizeEelite := 0;
case typ of //Adresse Offset
 65: begin
   SizeEel := 131072; //20000
   SizeEef := 131072; //20000
  startEel := 16646144; //fe0000
  StartEef := 2228224; //220000
 end;
  75: begin
   SizeEel := 131072; //20000 ok
   SizeEef := 262144; //40000
  startEel := 262144; //40000 ok
  StartEef := 66715648; //3fa0000
 end;
  85: begin
   SizeEel := 262144; //20000 ok
   SizeEef := 524288; //80000
  startEel := 262144; //40000 ok
  StartEef := 66322432; //3f40000
 end;
end;
if SaveDialog1.Execute then
 begin
  FS := TFileStream.Create(OpenDialog1.Filename,fmopenreadwrite);
  FS2 := TFileStream.Create(SaveDialog1.FileName,fmCreate);
   FS.ReadBuffer(Buf,StartEelite);
   fs2.CopyFrom(fs,SizeEelite);
   FS.Free;
   FS2.Free;
   memo1.Lines.add('gespeichert als '+ExtractFilename(SaveDialog1.FileName));
 end;
end;

wie ich schon erkannt hab ist buf zu klein beim vergrößern gibts allerdings ein Debugger Problem

Hallo,

du kannst nicht beliebig viel Speicher auf dem Stack anfordern. Wozu brauchst du denn überhaupt die Variable Buf, wenn du lediglich einen bestimmten Teil der Quelldatei in eine eigene Datei kopieren willst?

zusammenfalten · markieren

Delphi-Quellcode:

with SaveDialog1 do
  if Execute then
  begin
    FS := TFileStream.Create(OpenDialog1.Filename, fmopenreadwrite);
    FS2 := TFileStream.Create(SaveDialog1.FileName, fmCreate);
    FS.Position := StartEelite;
    fs2.CopyFrom(fs, SizeEelite);
    FS.Free;
    FS2.Free;
    memo1.Lines.add('gespeichert als ' + ExtractFilename(SaveDialog1.FileName));
  end;
end;

Grüße vom marabu

ja Danke