Delphi-PRAXiS - Delphi FileStream hängt unerwünschte Zeichen an

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 :evil:

Wie kann man das verhindern??

Greetz
Dash