FileStream hängt unerwünschte Zeichen an

[Dash]

Hi,

ich habe aus dem SwissDelphiCenter diesen Code benutzt um Daten an eine EXE-Datei ranzuhängen:

Delphi-Quellcode:

function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if not FileExists(AFileName) then
    Exit;
  try
    aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
    MemoryStream.Seek(0, soFromBeginning);
    // seek to end of File
    // ans Ende der Datei Seeken
    aStream.Seek(0, soFromEnd);
    // copy data from MemoryStream
    // Daten vom MemoryStream kopieren
    aStream.CopyFrom(MemoryStream, 0);
    // save Stream-Size
    // die Streamgröße speichern
    iSize := MemoryStream.Size + SizeOf(Integer);
    aStream.Write(iSize, SizeOf(iSize));
  finally
    aStream.Free;
  end;
  Result := True;
end;

function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
  aStream: TFileStream;
  iSize: Integer;
begin
  Result := False;
  if not FileExists(AFileName) then
    Exit;

  try
    aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
    // seek to position where Stream-Size is saved
    // zur Position seeken wo Streamgröße gespeichert
    aStream.Seek(-SizeOf(Integer), soFromEnd);
    aStream.Read(iSize, SizeOf(iSize));
    if iSize > aStream.Size then
    begin
      aStream.Free;
      Exit;
    end;
    // seek to position where data is saved
    // zur Position seeken an der die Daten abgelegt sind
    aStream.Seek(-iSize, soFromEnd);
    MemoryStream.SetSize(iSize - SizeOf(Integer));
    MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
    MemoryStream.Seek(0, soFromBeginning);
  finally
    aStream.Free;
  end;
  Result := True;
end;

procedure TForm1.SaveClick(Sender: TObject);
var
  aStream: TMemoryStream;
begin
  aStream := TMemoryStream.Create;
  Memo1.Lines.SaveToStream(aStream);
  AttachToFile('Test.exe', aStream);
  aStream.Free;
end;

procedure TForm1.LoadClick(Sender: TObject);
var
  aStream: TMemoryStream;
begin
  aStream := TMemoryStream.Create;
  LoadFromFile('Test.exe', aStream);
  Memo1.Lines.LoadFromStream(aStream);
  aStream.Free;
end;

Nun habe ich vor an die Test.exe dieses ranzuhängen:

Zitat:

^lalalalalalalala
³Œi=JF;NH
³Y}}}v
³ß~ƒ|
³< g†‰ˆŠ†|‹Š‹sf>
@KLX

Öffne ich nun allerdings die Datei mit dem Notepad erscheint dieses:

Zitat:

^lalalalalalalala
³Œi=JF;NH
³Y}}}v
³ß~ƒ|
³< g†‰ˆŠ†|‹Š‹sf>
@ KLXJ

Er hängt an dem KLX einfach ein J dran, warum ? Um die Datei die "gepatcht" wird handelt es sich um ein Runtime-Mdoul einer anderen Programmierumgebung. Wenn ich die Datei nun starte erscheint das die angehängten Daten ungültig sind weil halt hinten noch dieses J und ein paar Leerzeichen dranhängen

Wie kann man das verhindern??

Greetz
Dash