Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

}

AA_ERR_NOERROR = 0; { Неизвестная ошибка }

AA_ERR_NOMEMORY = $100; { 256 – Ошибка нехватки памяти }

AA_ERR_BADHANDLE = $101; { 257 – Плохой дескриптор }

AA_ERR_NOTIMERS = $102; { 258 – Невозможно запустить таймер }

AA_ERR_BADSOUND = $103; { 259 – Плохое звуковое сопровождение }

AA_ERR_NOSCRIPT = $104; { 260 – Требуется скрипт }

AA_ERR_WRITEERR = $105; { 261 – Ошибка записи (для сценария) }

AA_ERR_BADANIMATION = $106; { 262 – Невозможно открыть анимацию }

AA_ERR_BADWINDOWHANDLE = $200; { 512 – Плохой дескриптор окна }

AA_ERR_WINDOWCREATE = $201; { 513 – Невозможно создать окно }

AA_ERR_DLGERROR = $202; { 514 – Ошибка диалога }

AA_ERR_INVALIDSTATUS = $300; { 768 – Неверный статус }

AA_ERR_BADDIBFORMAT = $301; { 769 – Плохой dib-файл }

AA_ERR_BADFLIFORMAT = $302; { 770 – Плохой fli-файл }

AA_ERR_UNRECOGNIZEDFORMAT = $303; { 771 – Нераспознанный формат }

AA_ERR_NOSOUND = $304; { 772 – Звук не поддерживается }

AA_ERR_NOTVALIDFORSCRIPTS = $305; { 773 – Неправильный сценарий }

AA_ERR_INVALIDFILE = $306; { 774 – Плохой дескриптор файла }

AA_ERR_NOSCRIPTS = $307; { 775 – Нет файлов-скриптов }

AA_ERR_SPEED = $400; { 1024 – Неверная скорость }

AA_ERR_LOOPS = $401; { 1025 – Неверные циклы }

AA_ERR_RPTSOUND = $402; { 1026 – Неверный повтор звука }

AA_ERR_PAUSE = $403; { 1027 – Неверная пауза }

AA_ERR_TRANSIN = $404; { 1028 – Неверный переход }

AA_ERR_TIMEIN = $405; { 1029 – Неверный переход }

AA_ERR_TRANSOUT = $406; { 1030 – Неверное время перехода }

AA_ERR_TIMEOUT = $407; { 1031 – Неверное время перехода }

AA_ERR_DELAYSND = $408; { 1032 – Неверная задержка звука }

AA_ERR_INVALIDTYPE = $409; { 1033 – Неверный тип параметра }

AA_ERR_DUPLICATENOTIFY = $500; { 1280 – Дублирование уведомления }

AA_ERR_NOSWITCH = $600; { 1536 – Отсутствие ключей в скрипте }

AA_ERR_PARSELOOPS = $601; { 1537 – Плохие циклы в скрипте }

AA_ERR_PARSESPEED = $602; { 1538 – Плохая скорость в скрипте }

AA_ERR_BADRPTSOUND = $603; { 1539 – Плохое повторение звука в скрипте }

AA_ERR_PARSEPAUSE = $604; { 1540 – Плохая пауза в скрипте }

AA_ERR_PARSETRANS = $605; { 1541 – Плохой переход в скрипте }

AA_ERR_PARSEDELAYSND = $606; { 1542 – Плохая задержка звука в скрипте }

AA_ERR_TOOMANYLINKS = $607; { 1543 – Слишком много ссылок }

{

dwFlags: integer; может быть любым из нижеперечисленных

Используется в aaGetFile.

}

AA_GETFILE_MUSTEXIST = $1;

AA_GETFILE_NOSHOWSPEC = $2;

AA_GETFILE_SAVE = $4;

AA_GETFILE_OPEN = $8;

AA_GETFILE_USEDIR = $10;

AA_GETFILE_USEFILE = $20;

AA_GETFILE_SOUND = $40;

AA_GETFILE_SCRIPT = $80;

AA_GETFILE_ANIMATION = $100;

{

wMode: integer; Значения

Используется в aaSave

}

AA_SAVE_IFMODIFIED = $1;

AA_SAVE_AS = $2;

AA_SAVE_CANCEL = $4;

{

Возможности

Используется в aaGetCaps

}

AA_CAP_TIMER = 1;

AA_CAP_SOUND = 2;

AA_CAP_SCRIPT = 3;

{

Статусные сообщения анимации

Используйте RegisterWindowMessage для получения номеров реальных сообщений.

}

AA_NOTIFY = 'AAPLAY Уведомление'; { Сообщение-уведомление }

AA_STOP = 'AAPLAY Стоп'; { Стоп-сообщение }

{

Это посылается в первом слове lParam с сообщением AA_ERROR.

Это указывает на возникшую ошибку

}

AA_BADPLAY = 1; { Ошибка при попытке воспроизведения }

AA_BADNOTIFY = 2; { Ошибка при попытке послать уведомление }

AA_BADSCRIPT = 3; { Ошибка в сценарии при попытке }

{ воспроизведения }

{ ========================================================================== }

unitTMediaPlayer)

procedureOpenAA;

private

{ Private declarations }

protected

{ Protected declarations }

public

{ Public declarations }

AAParameters: AAPARMS;

FlicHandle: AAHandle;

PlayWinHandle: THandle;

StatusWinHandle: THandle;

CallbackWinHandle: THandle;

published

{ Published declarations }

end;

procedure Register;

{ Внешние вызовы AAPLAY.DLL }

functionaaOpen : boolean;

procedureaaClose;

functionaaGetCaps(wType: word) : word;

functionaaLoad(lpzFileName: PChar; WinHnd: HWnd; wMode: word; x, y, wid, hght, orgx, orgy: integer): AAHandle;

functionaaReLoad(hAa: AAHandle; lpzFileName: PChar; wMode, wMask: word) : boolean;

functionaaUnload(hAa: AAHandle): boolean;

functionaaPlay(hAa: AAHandle) : boolean;

functionaaNotify(hAa: AAHandle; lPosition, lParam: longint) : boolean;

functionaaCancel(hAa: AAHandle; lLoPos, lHiPos: longint) : word;

functionaaStop(hAa: AAHandle) : boolean;

functionaaPause(hAa: AAHandle) : boolean;

functionaaPrompt(hAa: AAHandle; lpName: PChar) : boolean;

functionaaGetParm(hAa: AAHandle; wType: word) : longint;