FileOpen & Co.

[moritz]

Hallo

Code:

procedure DestroyFile(fFile: String);
var vFile:      THandle;
    vNothing:   Byte;
    vPosition:  Cardinal;
    vFileSize:  Cardinal;
    vEmpty:     LongWord;
begin
  vPosition:=0;
  vFileSize:=GetFileSize(fFile);
  if vFileSize = 0 then
    exit;
  vFile := Integer(CreateFile(PChar(fFile), GENERIC_WRITE, FILE_SHARE_WRITE, nil, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0));   
  try
    while vPosition < vFileSize do
    begin
      vNothing := Random( 256 );
      WriteFile(vFile, vNothing, SizeOf(vNothing), vEmpty, nil);
      Inc( vPosition );
      SetFilePointer(vFile, 0, nil, vPosition);
    end;
  finally
    CloseHandle(vFile);
  end;
end;

Dieser Code soll eigentlich jedes Byte einer Datei durch ein Zufallsbyte ersetzen, tut er arber nicht. Woren könnte das liegen?

Onz

[Chewie]

Hast du zuvor Randomize aufgerufen?

[RobertS]

also vielleicht liegt es ja daran das caridal <> string ist?

Also der Code wie von dir oben kann nicht funzen...

[Chewie]

Ach so, jetzt seh ich was, du rufst SetFilePointer so auf:

SetFilePointer(vFile, 0, nil, vPosition); Schau dir die Beschreibung dieser Funktion noch mal an und du wirst sehen, dass dein vPosition an die zweite Stelle gehört und an die letzte FILE_BEGIN. Oder du benutzt FILE_CURRENT und springst um 1 weiter.

[moritz]

Morgen

Zitat von Chewie:

Hast du zuvor Randomize aufgerufen?

Japp.

Zitat von RobertS:

also vielleicht liegt es ja daran das caridal <> string ist?

Also der Code wie von dir oben kann nicht funzen...

Tut mir ja fürchterlich leid, aber er funktioniert

Zitat von Chewie:

Ach so, jetzt seh ich was, du rufst SetFilePointer so auf:

SetFilePointer(vFile, 0, nil, vPosition); Schau dir die Beschreibung dieser Funktion noch mal an und du wirst sehen, dass dein vPosition an die zweite Stelle gehört und an die letzte FILE_BEGIN. Oder du benutzt FILE_CURRENT und springst um 1 weiter.

Merci! Es geht.

Gruß