From version 3.1 the argument URL has been changed to WideString (in previous versions the type was AnsiString / string).
You can intercept and provide content of external resource a flash movie are loading. For instance, Flash Video.
To play Flash Video from stream you should create flash movie that loads Flash Video from "private" URL (http://FLV/FlashVideo.flv). Flash Movie uses the following code to load Flash Video (put this in under a button in your Swf Flash Movie):
var netConn:NetConnection = new NetConnection();
netConn.connect(null);
var netStream:NetStream = new NetStream(netConn);
my_video.attachVideo(netStream);
netStream.setBufferTime(0);
netStream.play("http://FLV/FlashVideo.flv");
|
When Flash tries to load Flash Video from http://FLV/FlashVideo.flv, TFlashPlayerControl provides content of FLV. Use global procedure SetGlobalOnLoadExternalResourceHandler to set handle the external resources and provide them to Flash. See the code:
[ Delphi ]
type
TMainForm = class(TForm)
procedure FormCreate(Sender: TObject);
...
private
procedure OnGlobalLoadExternalResource(const URL: WideString; Stream: TStream);
...
end;
...
procedure TMainForm.FormCreate(Sender: TObject);
begin
SetGlobalOnLoadExternalResourceHandler(OnGlobalLoadExternalResource);
end;
...
procedure TMainForm.OnGlobalLoadExternalResource(const URL: WideString; Stream: TStream);
var
ResourceStream: TResourceStream;
begin
if URL = 'http://FLV/FlashVideo.flv' then
begin
ResourceStream := TResourceStream.Create(0, 'FlashVideo', 'FLV');
ResourceStream.SaveToStream(Stream);
ResourceStream.Free;
end;
end;
|
[ Builder C++ ]
class TMainForm : public TForm
{
__published:
void __fastcall FormCreate(TObject *Sender);
...
private:
void __fastcall OnGlobalLoadExternalResource(const WideString URL, Classes::TStream* Stream);
...
}
...
void __fastcall TMainForm::FormCreate(TObject *Sender)
{
SetGlobalOnLoadExternalResourceHandler(OnGlobalLoadExternalResource);
}
...
void __fastcall TMainForm::OnGlobalLoadExternalResource(const WideString URL, Classes::TStream* Stream)
{
if (URL == WideString("http://FLV/FlashVideo.flv"))
{
TResourceStream* ResourceStream = new TResourceStream(0, "FlashVideo", "FLV");
ResourceStream->SaveToStream(Stream);
delete ResourceStream;
}
}
|