[LukS]

Не пинайте сильно, в PHP, который я знаю таких типов нет, и я не знаю как их преобразовывать... Вообщем делаю загрузчик файлов, нужно установить в g1.Progress значение типа Integer, имея переменную blablavar типа DWORD... DWORDtoInt() не нашел

[LukS]

Эх-эх... Держите DLL'ку (сделал в C++, порывшись в китайском поисковике).
Грузим с помощью LoadLibrary().
DWtoInt(dwNum : DWORD) : integer

PHP код:

EXPORT int DWtoInt(DWORD dwNum)
{
    int ret;
    ret = static_cast <int> (dwNum);
    return ret;
} 


P.S. не ржать - ну не нашел я функции, а с C++ я не много дружу

[lmikle]

Ребят, вы издеваетесь???

DWORD и Integer абсолютно совместимые типы и в Delphi производится простым присваиванием. Только надо помнить, что Integer - знаковое, а DWORD - нет. Т.е. у Integer старший бит хранит информацию о знаке числа, Т.е. могут быть некоторые проблемы, если значение в DWORD больше 2х миллиардов.

[LukS]

Сообщение от lmikle

Ребят, вы издеваетесь???

DWORD и Integer абсолютно совместимые типы и в Delphi производится простым присваиванием. Только надо помнить, что Integer - знаковое, а DWORD - нет. Т.е. у Integer старший бит хранит информацию о знаке числа, Т.е. могут быть некоторые проблемы, если значение в DWORD больше 2х миллиардов.

У меня не получилось:
g1.MaxValue := BufferAllLenght;
Писало про несовместимые типы... Делфи 7 (Lite) Я не издеваюсь. Хотя самому смешно ради функции делать DLL'ку...

[LukS]

Проблема решена - нужно было чуть подредактировать кое-какие свойства... Теперь я дружу с DWORD'ом Прозьба закрыть тему.