Показать сообщение отдельно
  #13  
Старый 15.05.2013, 02:30
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Первый вариант компилятор полностью устроил, не вякает больше.

Осталось устранить последнюю ошибку.
Код:
extern void               WINAPI proc_close(void *user);
extern unsigned long long WINAPI proc_length(void *user);
extern unsigned long      WINAPI proc_read(void *buffer, unsigned long length, void *user);
extern bool               WINAPI proc_seek(unsigned long long offset, void *user);
...
  BASSProcs.close  = proc_close;
  BASSProcs.length = proc_length;
  BASSProcs.read   = proc_read;
  BASSProcs.seek   = proc_seek; // Здесь кака
Цитата:
Cannot convert 'bool (__stdcall *)(unsigned __int64,void *)' to 'int (__stdcall *)(unsigned __int64,void *)' in function CMyClass::LoadSound(const char *)
Хотя по-описанию
Код:
// User file stream callback functions
typedef void (CALLBACK FILECLOSEPROC)(void *user);
typedef QWORD (CALLBACK FILELENPROC)(void *user);
typedef DWORD (CALLBACK FILEREADPROC)(void *buffer, DWORD length, void *user);
typedef BOOL (CALLBACK FILESEEKPROC)(QWORD offset, void *user);

typedef struct {
	FILECLOSEPROC *close;
	FILELENPROC *length;
	FILEREADPROC *read;
	FILESEEKPROC *seek;
} BASS_FILEPROCS;
она возвращает bool
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
Ответить с цитированием