Как составить описание функции SetFilePointerEx

[Алексей- Софт-Центр]

Добрый день!
Как описать api функцию:
BOOL SetFilePointerEx(
HANDLE hFile,
LARGE_INTEGER liDistanceToMove,
PLARGE_INTEGER lpNewFilePointer,
DWORD dwMoveMethod
);

SetFilePointerEx(UNSIGNED,?,?,ULONG),BOOL,PASCAL,RAW,NAME('SetFilePointerEx')

А вот как определить LARGE_INTEGER и PLARGE_INTEGER ?

Алексей

[Дед Пахом]

Как-то так, параметр liDistanceToMove передаём двумя LONG, параметр lpNewFilePointer это адрес:

Код: Выделить всё

SetFilePointerEx(UNSIGNED,LONG lowLongDistanceToMove,LONG hiLongDistanceToMove,LONG pNewFilePointer,ULONG),BOOL,PASCAL,RAW,NAME('SetFilePointerEx')

[Constantine]

LARGE_INTEGER liDistanceToMove

У меня прокатывал такой вариант:

Код: Выделить всё

liDistanceToMove REAL
STR STRING(8),OVER(liDistanceToMove)

А в STR пишем побайтно... Паскалевское соглашение о связях такие пассажи пропускает...

[Алексей- Софт-Центр]

Спасибо, сейчас попробую!

Алексей

[kreator]

В equates.clw есть группа int64. Скорее всего, то, что надо.

[vic7tar]

Как-то так, параметр liDistanceToMove передаём двумя LONG, параметр lpNewFilePointer это адрес:

Код: Выделить всё

SetFilePointerEx(UNSIGNED,LONG lowLongDistanceToMove,LONG hiLongDistanceToMove,LONG pNewFilePointer,ULONG),BOOL,PASCAL,RAW,NAME('SetFilePointerEx')

... , ulong lowLongDistanceToMove, ... - наверно так нужно писать?

[Дед Пахом]

... , ulong lowLongDistanceToMove, ... - наверно так нужно писать?

не принципиально, но по смыслу да, ulong логичнее.

[vic7tar]

Нет, тут не должно быть логики, вот определение:

Код: Выделить всё

...
typedef union _LARGE_INTEGER {
    struct {
        DWORD LowPart;  <-----------------------------------------------------
        LONG HighPart;
    } DUMMYSTRUCTNAME;
    struct {
        DWORD LowPart;
        LONG HighPart;
    } u;
#endif //MIDL_PASS
    LONGLONG QuadPart;
} LARGE_INTEGER;

Вопрос к стартеру - если не секрет, для чего нужна эта функция?

[Дед Пахом]

Нет, тут не должно быть логики

Неожиданно.

[vic7tar]

Если в таком же стиле:

спасибо, не надо.

то ну ладно уж.

[Алексей- Софт-Центр]

Добрый день!

Вопрос к стартеру - если не секрет, для чего нужна эта функция?

Работаю с файлами больших размеров, 500 Гб , например.

В equates.clw есть группа int64. Скорее всего, то, что надо.

Да, нашел i64.INC файл. Там "математика" с 64-битными целыми.,там же и описание:
! INT64 GROUP,TYPE
! lo ULONG
! hi LONG
! END
!
! UINT64 GROUP,TYPE
! lo ULONG
! hi ULONG
! END
С API - вроде разобрался. (Вариант Деда Пахома - спасибо)
теперь "плаваю" с присвоением int64 в decimal.
Есть процедура (в i64)
!!! <summary>
!!! Store 64-bit integer value to DECIMAL variable.
!!! </summary>
!!! <param name="dest">DECIMAL variable.</param>
!!! <param name="src">64-bit integer value to store to DECIMAL variable.</param>
i64ToDecimal PROCEDURE (*DECIMAL dest, *INT64 src),RAW,NAME('Cla$i64ToDecS')
i64ToDecimal PROCEDURE (*DECIMAL dest, *UINT64 src),RAW,NAME('Cla$i64ToDecU')
Объявил
dec1 decimal(20)
А вот второй параметр - никак не принимает, что я туда только не прописывал ((((
Компиляция с ошибкой : No matching prototype available

Алексей

[Дед Пахом]

Код: Выделить всё

  PROGRAM

  MAP
    INCLUDE('i64.inc')
  END

i64val                        LIKE(INT64)
decval                        DECIMAL(20)

  CODE
  i64val.lo = 1000
  i64val.hi = 777
  i64ToDecimal(decval, i64val)
  MESSAGE('Decimal='& decval)
  
  CLEAR(i64val)
  i64FromDecimal(i64val, decval)
  MESSAGE('i64.lo='& i64val.lo &', i64.hi='& i64val.hi)

[Алексей- Софт-Центр]

Добрый день!
И снова, Дед Пахом, спасибо большое !
Про Like - и не думал в эту сторону()

Алексей

[kreator]

Про Like - и не думал в эту сторону()

Где-то раньше на форуме обсуждали эти переменные. Можно ещё вот так:

Код: Выделить всё

LOC:Int64             group(INT64)
                      end

А совсем без like будет доступно, вероятно, после внедрения полноценной поддержки 64 бита.

[Алексей- Софт-Центр]

Добрый день!

Где-то раньше на форуме обсуждали эти переменные. Можно ещё вот так:

Код: Выделить всё

LOC:Int64             group(INT64)
                      end

А совсем без like будет доступно, вероятно, после внедрения полноценной поддержки 64 бита.

Да, так тоже работает. Спасибо)

Алексей