Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.11.28;
Скачать: CL | DM;

Вниз

Помогите портировать с С++ на Delphi   Найти похожие ветки 

 
П7   (2004-11-12 13:29) [0]

Пытаюсь портировать заголовочный файл звуковой системы "Шквал". Возник вот такой вопрос:
Как вот такое

typedef unsigned int (__cdecl* squall_callback_open_t)      (const char* Name);
typedef int          (__cdecl* squall_callback_read_t)      (unsigned int Handle, void* Buffer, int Size);
typedef int          (__cdecl* squall_callback_seek_t)      (unsigned int Handle, int Position, int SeekMode);
typedef void         (__cdecl* squall_callback_close_t)     (unsigned int Handle);

перевести на Delphi?


 
Digitman ©   (2004-11-12 13:40) [1]

наверно, примерно так:

type

squall_callback_open_t = function(const Name: PChar): UINT; cdecl;

squall_callback_read_t = function(Handle: UINT; var Buffer; Size: Integer): Integer; cdecl;

squall_callback_seek_t = function(Handle: UINT; Position, SeekMode: Integer): Integer; cdecl;

squall_callback_close_t = procedure(Handle: UINT); cdecl;


 
Romkin ©   (2004-11-12 13:40) [2]

Может, так?

type
 squall_callback_open_t = function (const Name: PChar): cardinal; cdecl;
 squall_callback_read_t = function (Handle: Cardinal; var Buffer; Size: integer): integer; cdecl;
 squall_callback_seek_t = function (Handle: Cardinal; Position, SeekMode: integer): integer; cdecl;
 squall_callback_close_t = procedure (Handle: integer); cdecl;


 
Romkin ©   (2004-11-12 13:52) [3]

Нее, cardinal - лучше :))


 
Digitman ©   (2004-11-12 13:59) [4]


> Romkin ©   (12.11.04 13:52) [3]


тады уж THandle ..

мало ли каке хенделя существует, но всех их в Win можно не боясь окрестить как THandle ... куда уж понятней в таком случае, что параметр - это по логике имено хендель, а не фихзнаетчто именем Кардинала


 
Romkin ©   (2004-11-12 14:10) [5]

Да. Причем похоже, что первая функция именно THandle возвращает.
Тогда действительно, логичнее его. Кстати, это LongWord, также как и UINT.


 
П7   (2004-11-14 01:19) [6]

Ага, так это тип функции... (: Прикольно. Никогда бы не догадался... Ну, тогда дело пойдёт быстрее... (:

Спасибо за помощь... Если что, ещё чё-нибудь спрошу. (:



Страницы: 1 вся ветка

Текущий архив: 2004.11.28;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
1-1100134176
Delph
2004-11-11 03:49
2004.11.28
Вставка текста в RichEdit (курсор за текстом)


14-1100166416
Григорьев Антон
2004-11-11 12:46
2004.11.28
Не только Архангельский зачётные книжки пишет :)


8-1093770518
DimOn2
2004-08-29 13:08
2004.11.28
Avi


14-1100096996
gn
2004-11-10 17:29
2004.11.28
Червь побил рекорд скорости с момента открытия до воплощения в жи


3-1099032577
Miss
2004-10-29 10:49
2004.11.28
TUpdateSQL