Alternative für String Assign

[EWeiss]

Zitat von Uwe Raabe:

Zitat von Neutral General:

Du kannst die LARGE_INTEGER ja selbst definieren.

Ist gar nicht nötig (aus Winapi.Windows):

Delphi-Quellcode:

  PLargeInteger = ^TLargeInteger;
  _LARGE_INTEGER = record
    case Integer of
    0: (
      LowPart: DWORD;
      HighPart: Longint);
    1: (
      QuadPart: LONGLONG);
  end;
  {$EXTERNALSYM _LARGE_INTEGER}
  {$NODEFINE TLargeInteger}
  TLargeInteger = Int64;
  LARGE_INTEGER = _LARGE_INTEGER;
  {$EXTERNALSYM LARGE_INTEGER}

Das Problem ist das SetFilePointer keinen LARGE_INTEGER mag es will Integer.
LARGE_INTEGER kann ich definieren aber nicht SetFilePointerEx

gruss

[Neutral General]

Warum kannst du SetFilePointerEx nicht definieren?

[hoika]

Hallo,
SetFilePointerEx definieren

http://stackoverflow.com/questions/4...physical-media

[Uwe Raabe]

Zitat von EWeiss:

Das Problem ist das SetFilePointer keinen LARGE_INTEGER mag es will Integer.

Das stimmt nicht!

Delphi-Quellcode:

function SetFilePointerEx(hFile: THandle; liDistanceToMove: TLargeInteger;
  const lpNewFilePointer: PLargeInteger; dwMoveMethod: DWORD): BOOL; stdcall;

Einmal wird ein TLargeInteger erwartet (= Int64 s.o.) und das andere Mal ein PLargeInteger . Ein LARGE_INTEGER kommt dort überhaupt nicht vor (Integer übrigens auch nicht).

Wenn du also mit TLargeInteger bzw. mit Pointern darauf arbeitest sollte das funktionieren.

[EWeiss]

Hmm nun ja.
Ich habe es so definiert wie gezeigt.

Delphi-Quellcode:

var
   li: LARGE_INTEGER;
begin

   li.LowPart := PosByte;

Delphi-Quellcode:

var
   li: TLargeInteger;
begin

   li:= PosByte;

TLargeInteger geht.

gruss

[Neutral General]

Deswegen musst du ja SetFilePointerEx benutzen.

[EWeiss]

Zitat von Neutral General:

Deswegen musst du ja SetFilePointerEx benutzen.

ja.. Werde ich dann wohl selbst definieren müssen.

gruss

[EWeiss]

Sorry der Kram will wieder mal nicht.
Fehler 183.

Habe versucht SetFilePointerEx zu definieren aber es kommen nur Kompatibilitäts Probleme.
Ok muss mich nochmal schlau machen.

gruss

[bra]

Funktioniert das nicht (erste Antwort):

http://stackoverflow.com/questions/4...physical-media

Delphi-Quellcode:

function GetFileSizeEx(hFile: THandle; var lpFileSize: Int64): BOOL;
    stdcall; external 'kernel32.dll';
function SetFilePointerEx(hFile: THandle; liDistanceToMove: Int64;
    lpNewFilePointer: PInt64; dwMoveMethod: DWORD): BOOL;
    stdcall; external 'kernel32.dll';

[Luckie]

Dann mach doch bitte für das neue Problem auch einen neuen Thread auf.