WriteFile schreibt Nonsense in Datei

[Lenny15]

Hi ,

Ich wollte eine Logdatei erstellen und dort Aktionen aufzeichnen, die so im Programmverlauf passieren.
Ich wollte dies explizit mit der Windows-API erreichen. Ich weiss, dass es auch AssignFile(), ReWrite() und Writeln() dafür gibt.
Aber etwas mit der Winows-API umgehen zu können schadet ja nicht, oder?

So habe ich es probiert:

Delphi-Quellcode:

procedure LogEvent(lpEventStr: PAnsiChar);
var
   logFilePath  : Pchar;
   hFile        : Thandle;

   ofStruct     : _OFSTRUCT;
   BytesWritten : DWORD;
begin
  logFilePath := Pchar(ExtractFilePath(ParamStr(0))+'eventlog.txt');
  hFile := OpenFile(logFilePath,ofStruct, OF_READWRITE OR OF_CREATE);
  If hFile <> INVALID_HANDLE_VALUE Then
    begin
      SetFilePointer(hFile,0,nil,FILE_END);
      WriteFile(hFile,lpEventStr,Length(lpEventStr),BytesWritten,nil);
    end;
    CloseHandle(hFile);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  LogEvent('Start');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  LogEvent('Button klicked');
end;

Wenn ich nun das programm starte und ein paar mal auf den Button klicke steht am Ende soetwas in der Datei:
"�D�D"
Die Fragezeichen sind diese Kästchen.
Der Hexeditor sieht folgende Bytes in der Datei:
FC DB 44 00 6C F7 12 00 FA DB 44 00 6E E5

Weiss jemand wo der Fehler liegt und kann ihn mir bitte zeigen?
Ich bin etwas verwirrt, und weiss nich wo ich suchen soll.

[Christian Seehase]

Moin Lenny,

das ^ fehlt.

Code:

WriteFile(hFile,lpEventStr[color=red][b]^[/b][/color],Length(lpEventStr),BytesWritten,nil);

Du willst ja den Wert schreiben, auf den der Pointer zeigt, und nicht den Pointer und alles was dahintersteht.

[Lenny15]

Ahhhh, so ein kleines Zeichen erwirkt so einen undurchsichtigen Fehler.
Vielen Dank erstmal.
Komme jedoch leider gleich zum nächsten Problem.

Auf diese Weise steht immer nur das letzte aufgezeichnete Event in der Logdatei.
Dabei setze ich den File_Pointer doch immer extra ans Ende?

[Lenny15]

Ich habs. OF_CREATE muss weg.