Mit SetFilePointer zum Ende - n springen, wie?

[sk0r]

Hi,

joa, das Topic sagt eigentlich schon alles...
Wie mache ich das? n kann eine beliebige Nummer sein.

MfG: sk0r

[Zacherl]

GetFileSize gibt dir die Gesamtgröße der Datei. N musst du dann nur noch abziehen.

[Apollonius]

Es gibt nicht umsonst den Wert FILE_END für dwMoveMethod.

[Zacherl]

Ja klar, aber dann springt er doch komplett ans Dateiende. Oder wird der Offset dann von hinten aus zurückgesprungen?

[sk0r]

Ich kann doch nicht einfach FILE_END - n machen.^^

[Luckie]

Ist es denn eigentlich so schwer die Hilfe zu lesen? SetFilePointer Allerdings wäre es wohl zu empfehlen SetFilePointerEx zu nutzen.

[sk0r]

Sorry, aber ich kann kein Englisch. :(

Delphi-Quellcode:

type TByteArr = array[0..1] of Byte;

function GetValue:TByteArr;
var
  hOpn: Cardinal;
  OfStruct: TOFStruct;
  dwBytesRead: Cardinal;
  mBuf: TByteArr;
begin
  hOpn := OpenFile(PChar(GetMySelf()), OfStruct, 0);
  if hOpn <> 0 then
  begin
    SetFilePointerEx(hOpn, -2, nil, FILE_END);
    ReadFile(hOpn, mBuf, 2, dwBytesRead, nil);
    showmessage(inttostr(mBuf[0]) + inttostr(mBuf[1]));
    result := mBuf;
    CloseHandle(hOpn);
  end;
end;

So versuche ich nun die Zahl auszulesen. Ich habe am Ende der Datei eine 17 platziert,
aber es kommt immer eine andere Zahl (690) heraus.

[himitsu]

erstens ist mein Englich auch nicht sonderlich gut, aber dennoch kann/versuch ich es zu lesen ... notfalls gibt's ja noch Wörterbücher und Übersetzer :stupid:

Zitat:

Ich habe am Ende der Datei eine 17 platziert,

und wie hast du das gemacht?


zu OpenFile:

Zitat:

Only use this function with 16-bit versions of Windows. For newer applications, use the CreateFile function.

zu Deutsch: verwende CreateFile, da OpenFile eine veraltete Funktion ist (Windows 3.1 und Co.)



PS: dieses geht bei mir:

Delphi-Quellcode:

type TByteArr = array[0..1] of Byte;

function GetValue: TByteArr;
var
  hOpn: THandle;
  dwBytesRead: Cardinal;
  mBuf: TByteArr;
begin
  // 'ne Testdatei mit "17" am Ende erzeugen
  hOpn := CreateFile('test.dat', GENERIC_WRITE, 0, nil, CREATE_ALWAYS, 0, 0);
  if hOpn <> INVALID_HANDLE_VALUE then
  begin
    mBuf[0] := 8;
    mBuf[1] := 9;
    WriteFile(hOpn, mBuf, 2, dwBytesRead, nil);
    mBuf[0] := 1;
    mBuf[1] := 7;
    WriteFile(hOpn, mBuf, 2, dwBytesRead, nil);
    CloseHandle(hOpn);
  end;
  mBuf[0] := 0;  // nur damit nicht noch die 17 vom Speichern drinsteht,
  mBuf[1] := 0;  // da beim Lesen dwBytesRead nicht geprüft wird.


  // Auslesen
  hOpn := CreateFile('test.dat', GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
  if hOpn <> INVALID_HANDLE_VALUE then
  begin
    SetFilePointer(hOpn, -2, nil, FILE_END);
    ReadFile(hOpn, mBuf, 2, dwBytesRead, nil);
    showmessage(inttostr(mBuf[0]) + inttostr(mBuf[1]));
    result := mBuf;
    CloseHandle(hOpn);
  end;
end;

[sk0r]

Gut, mit CreateFile klappt es. Danke.