Alternative für String Assign

[EWeiss]

Zitat:

Zitat von Uwe Raabe (Beitrag 1365275)

Zitat:

Zitat von Neutral General (Beitrag 1365273)

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:

Zitat von EWeiss (Beitrag 1365298)

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

Delphi-Quellcode:

TLargeInteger

erwartet (=

Delphi-Quellcode:

Int64

s.o.) und das andere Mal ein

Delphi-Quellcode:

PLargeInteger

. Ein

Delphi-Quellcode:

LARGE_INTEGER

kommt dort überhaupt nicht vor (

Delphi-Quellcode:

Integer

übrigens auch nicht).

Wenn du also mit

Delphi-Quellcode:

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:

Zitat von Neutral General (Beitrag 1365305)

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.