Reset Control to initial state?

[artelogic]

How can I reset the TFlashPlayerControl to a state like it is in right after Create, after I have loaded a movie via LoadMovie and played it with Play?

My problem indeed is, that it keeps showing the last frame of the played movie. I need a blank form after playing the movie.

[Softanics]

How can I reset the TFlashPlayerControl to a state like it is in right after Create, after I have loaded a movie via LoadMovie and played it with Play?

My problem indeed is, that it keeps showing the last frame of the played movie. I need a blank form after playing the movie.

Thank you for your question.

Please try this code:

Code: Select all

FlashPlayerControl1.Movie = '__';


[artelogic]

Sorry, but this leads to an OleException with message 'Unknown Error' inside FlashPlayerControl.

[Softanics]

Sorry, but this leads to an OleException with message 'Unknown Error' inside FlashPlayerControl.

I'm sorry, could you please try:

Code: Select all

FlashPlayerControl1.Movie = 'file://__';

[artelogic]

Still same exception!

[Softanics]

Still same exception!

Very strange, because I've just tested this code and it works well.

So I can suggest you recreating the control, something like that:

Code: Select all

procedure TForm1.Button2Click(Sender: TObject);
begin
   FlashPlayerControl1 := TFlashPlayerControl.Create(Self);
   FlashPlayerControl1.Parent := Self;
   FlashPlayerControl1.Width := Width;
   FlashPlayerControl1.Height := Height;
   FlashPlayerControl1.Movie := ' ...your URL here... ';
end;


[artelogic]

I tried it with

fpFlashPlayer.LoadMovie(0, 'file://__');

because I load and play it this way:

fpFlashPlayer.LoadMovie(0, 'SomeFlash.swf');
fpFlashPlayer.Play;


This doesnÒ‘t generate an exception, but also does not clear my window. I still see the last frame.

Recreating is not an option, because creating leads to those memory leaks I talked about in the other (forum-)thread!

[artelogic]

Maybe I can call a native flash function, which clears the canvas. But since I am not a flash programmer, I do not know anything about flash programming...

[Softanics]

Maybe I can call a native flash function, which clears the canvas. But since I am not a flash programmer, I do not know anything about flash programming...

No, it's a bad idea.

What about loading a small blank flash movie? I can create such one for you.

[artelogic]

Then, if that is a bad idea, what is the purpose of
function CallFunction(const request: WideString): WideString; virtual;
?

But loading a blanking flash could be a solution for me. Would be pretty kind to provide me with such a flash!

[artelogic]

btw: do you need the dimensions of my fp-control?

here you got the complete control:

object fpFlashPlayer: TTransparentFlashPlayerControl
Left = 0
Top = 0
Width = 544
Height = 404
Align = alClient
OnFSCommand = fpFlashPlayerFSCommand
OnClick = fpFlashPlayerClick
OnMouseMove = fpFlashPlayerMouseMove
FrameNum = -1
Playing = False
Quality = 1
ScaleMode = 3
AlignMode = 0
BackgroundColor = -1
Loop = False
WMode = 'Transparent'
Menu = True
Scale = 'NoScale'
DeviceFont = False
EmbedMovie = False
Quality2 = 'High'
AllowScriptAccess = 'always'
StandartMenu = True
MakeParentTransparent = True
end

as you can see, it is transparent, which is also the desired aim. i finally want a transparent form.

tia
chris

[Softanics]

Then, if that is a bad idea, what is the purpose of
function CallFunction(const request: WideString): WideString; virtual;
?

It's a function related with External API:
http://www.f-in-box.com/delphi/#feature_external_api

[Softanics]

But loading a blanking flash could be a solution for me. Would be pretty kind to provide me with such a flash!

I've uploaded it here:
http://f-in-box.com/misc/9C38F729-4928- ... /empty.swf

[artelogic]

Thank you very much! But now I found out, what the problem was with your
fpFlashPlayer.Movie:='file://__';

Since I want to erase all when I close (hide) the form, it is necessary to call Application.ProcessMessages after setting the Movie property.

like that:

procedure TFlashShowForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caHide;
fpFlashPlayer.Movie:='file://__';
Application.ProcessMessages;
end;

[Softanics]

Thank you very much! But now I found out, what the problem was with your
fpFlashPlayer.Movie:='file://__';

Since I want to erase all when I close (hide) the form, it is necessary to call Application.ProcessMessages after setting the Movie property.

So now it works well?