VB Funktions Übersetzung in Delphi

[Back2Code]

Hi DP,

ich bräuchte mal Hilfe bei einer VB Funktion die richtig nach Delphi zu übersetzen. Ich bin schon nen Stück vorangekommen aber leider nicht komplett.

Code:

    Private Sub BumpExe(ByVal sPfad As String)
        Dim fs As FileStream = File.Open(sPfad, FileMode.Open, FileAccess.ReadWrite, FileShare.ReadWrite)
        Dim bw As New BinaryWriter(fs)
        fs.Position = fs.Length + 1

        For i = 1 To 1024
            bw.Write(Chr(0))
        Next

        bw.Close()
        fs.Close()

    End Sub

Bisher sieht die Delphi Prozedur so aus:

Delphi-Quellcode:

procedure BumpExe(sPfad: string);
var i: integer;
    buffer : TBytes;
begin
  FileStream := (TFileStream.Create(sPfad, fmOpenRead+fmShareDenyNone));
  // ??

  for i := 1 to 1024 do 
  begin
    FileStream.WriteBuffer(Chr, 0); //??
  end;
  
  FileStream.Free;
end;

Würde jetzt gerne mal wissen, was noch genau fehlt bzw bei mir falsch ist. Danke:thumb:

[Klaus01]

eventuell so:

Delphi-Quellcode:

procedure BumpExe(sPfad: string);
var i: integer;
    buffer : TBytes;
    dataByte: Byte;
begin
  FileStream := (TFileStream.Create(sPfad, fmOpenWrite,fmShareDenyNone));
  try
    fileStream.seek(0,soFromEnd);
    dataByte := 0;
    for i := 1 to 1024 do
      begin
        FileStream.WriteBuffer(dataByte,1);
      end;
  finally
    FileStream.Free;
  end;
end;

Grüße
Klaus

[Back2Code]

Zitat:

Zitat von Klaus01 (Beitrag 1203256)

eventuell so:

Delphi-Quellcode:

procedure BumpExe(sPfad: string);
var i: integer;
    buffer : TBytes;
    dataByte: Byte;
begin
  FileStream := (TFileStream.Create(sPfad, fmOpenWrite,fmShareDenyNone));
  try
    fileStream.seek(0,soFromEnd);
    dataByte := 0;
    for i := 1 to 1024 do
      begin
        FileStream.WriteBuffer(dataByte,1);
      end;
  finally
    FileStream.Free;
  end;
end;

Grüße
Klaus

Dankeschön Klaus für die schnelle Hilfe. Hast mir einen großen Gefallen damit getan. Funktioniert einwandfrei.