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

}

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;

functionaaGetParmIndirect(hAa: AAHandle; lpAp: AAPARMSPtr; wSize: word) : boolean;

functionaaSetParm(hAa: AAHandle; wType: word; wValue1, lValue2: longint): AAHandle;

functionaaSetParmIndirect(hAa: AAHandle; dwType: longint; lpAp: AAPARMSPtr; wMask: word): boolean;

functionaaShow(hAa: AAHandle; bShow: boolean) : boolean;

functionaaSound(hAa: AAHandle; device, ffile: PChar; wMode: word): boolean;

functionaaGetFile(dwFlags: word; lpszPath: PChar; wBufLen: word; lpszDriver: PChar; wDrvLen: word) : integer;

functionaaSave(hAa: AAHandle; wMode: word) : integer;

implementation

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

procedure Register;

begin

RegisterComponents('Samples', [TAAPlayer]);

end;

{ --------------------------------------------------------------------------- }

procedureTAAPlayer.OpenAA;

var

FileSuffix, tempstr: string[12];

a,b: integer;

begin

{ tempstr := ExtractFilename(AAPlayer.Filename); }

{ a := StrPos(tempstr,'.');

if (a > 0) then begin

b := a;

while (b <= StrLen(tmpstr)) do begin

FileSuffix := FileSuffix + StrUpper(tempstr[b]);

b := b+1;

end;

if ((FileSuffix = '.FLC') or (FileSuffix = '.FLI')) then begin }

{ AutoEnable := False;

EnabledButtons := [btRecord,btEject];

}{ end;

end;

}

end;

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

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

{$F+}

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

{ --------------------------------------------------------------------------- }

functionaaOpen : boolean; external'AAPLAY';

{ --------------------------------------------------------------------------- }

procedureaaClose; external'AAPLAY';

{

' AAOpen и AAClose в действительности не нужны, за исключением обработки

' ошибки в Windows, которая предохраняет освобождение библиотек в процедуре

' выхода Windows (Windows Exit Proc, WEP).

'

' Поэтому мы используем AAClose для освобождения библиотек при закрытии

' последней задачей AAPlay DLL.

}

{ --------------------------------------------------------------------------- }

functionaaGetCaps(wType: word) : word; external'AAPLAY';

{

' Получение возможностей

}

{ --------------------------------------------------------------------------- }

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

{

' aaLoad загружает анимацию.

'

' Имя файла в lpzFileName

' и режим загрузки в wMode.

}

{ --------------------------------------------------------------------------- }

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

{

' aaReLoad загружает файл новый анимации

' "в дескриптор" старой анимации.

'

' Уведомления теряются, но палитра и окно

' сохраняются.

}

{ --------------------------------------------------------------------------- }

functionaaUnload(hAa: AAHandle): boolean; external'AAPLAY';

{

' aaUnload выгружает загруженную анимацию.

'

' Возвращается FALSE, если

' hAa не является дескриптором загруженной анимации.

}

{ --------------------------------------------------------------------------- }

functionaaPlay(hAa: AAHandle) : boolean; external'AAPLAY';

{

' aaPlay воспроизводит загруженную анимацию.

'

' Возвращается TRUE, если после возврата aaPlay анимация не останавливается.

}

{ --------------------------------------------------------------------------- }

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

{

' aaNotify позволяет извещать приложение о воспроизведении

' определенных кадров анимации.

'

' lPosition -позиция, в которой должно происходить уведомление.

'

' wParam для данного сообщения - hAa, а lParam копируется из этого вызова.

'

' Возвращается TRUE, если уведомление установлено.

}

{ --------------------------------------------------------------------------- }

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

{

' aaCancel позволяет приложению отменить уведомления, установленные aaNotify.

'

' lLoPos и lHiPos задает верхний и нижний предел позициям.

'

' Возвращает количество отмененных уведомлений.

}

{ --------------------------------------------------------------------------- }

functionaaStop(hAa: AAHandle) : boolean; external'AAPLAY';

{

' aaStop прекращает воспроизведение анимации.

'

' При остановке воспроизведения aaStop возвращает TRUE.

}

{ --------------------------------------------------------------------------- }

functionaaPause(hAa: AAHandle) : boolean; external'AAPLAY';

{

' aaPause приостанавливает воспроизведение.

'

' Возвращается TRUE, если после возврата aaPause анимация переходит в режим паузы.

'

' Для продолжения воспроизведения анимации используйте aaPlay.

}

{ --------------------------------------------------------------------------- }

functionaaPrompt(hAa: AAHandle; lpName: PChar) : boolean; external'AAPLAY';

{

' aaPrompt позволяет выводить диалог для получения данных от пользователя.