But none of them was called.
I don't know way.
Code: Select all
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, FlashPlayerControl;
type
TForm1 = class(TForm)
FlashPlayerControl1: TFlashPlayerControl;
procedure FlashPlayerControl1LoadExternalResourceAsync(ASender: TObject;
const Path: WideString; out Stream: TStream);
procedure FlashPlayerControl1LoadExternalResource(ASender: TObject;
const URL: WideString; Stream: TStream);
procedure FormShow(Sender: TObject);
procedure FlashPlayerControl1LoadExternalResourceEx(ASender: TObject;
const URL: WideString; Stream: TStream; out bHandled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FlashPlayerControl1LoadExternalResource(ASender: TObject;
const URL: WideString; Stream: TStream);
begin
application.MessageBox(PChar(AnsiString(url)),'',mb_ok);
end;
procedure TForm1.FlashPlayerControl1LoadExternalResourceAsync(ASender: TObject;
const Path: WideString; out Stream: TStream);
begin
application.MessageBox(PChar(AnsiString(path)),'',mb_ok);
Stream:=TfileStream.Create('g:\\test.flv',fmopenread);
end;
procedure TForm1.FlashPlayerControl1LoadExternalResourceEx(ASender: TObject;
const URL: WideString; Stream: TStream; out bHandled: Boolean);
begin
application.MessageBox(PChar(AnsiString(url)),'',mb_ok);
end;
procedure TForm1.FormShow(Sender: TObject);
begin
form1.FlashPlayerControl1.LoadMovie(0,'g:\\test.swf');
end;
end.
And I've send my test app source and swf,flv file to your email.
Thanks.