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

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.