Советы по Delphi. Версия 1.4.3 от 1.1.2001

Озеров Валентин

 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; { Ошибка в сценарии при попытке }

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

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

unit TMediaPlayer)

procedure OpenAA;

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 }

function aaOpen : boolean;

procedure aaClose;

function aaGetCaps(wType: word) : word;

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

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

function aaUnload(hAa: AAHandle): boolean;

function aaPlay(hAa: AAHandle) : boolean;

function aaNotify(hAa: AAHandle; lPosition, lParam: longint) : boolean;

function aaCancel(hAa: AAHandle; lLoPos, lHiPos: longint) : word;

function aaStop(hAa: AAHandle) : boolean;

function aaPause(hAa: AAHandle) : boolean;

function aaPrompt(hAa: AAHandle; lpName: PChar) : boolean;

function aaGetParm(hAa: AAHandle; wType: word) : longint;

function aaGetParmIndirect(hAa: AAHandle; lpAp: AAPARMSPtr; wSize: word) : boolean;

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

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

function aaShow(hAa: AAHandle; bShow: boolean) : boolean;

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

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

function aaSave(hAa: AAHandle; wMode: word) : integer;

implementation

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

procedure Register;

begin

 RegisterComponents('Samples', [TAAPlayer]);

end;

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

procedure TAAPlayer.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