Цитата:
|
Rox, можно поподробней как вы собираетесь во ФП дельфи подключать?
|
наоборот. в делфи флеш плеер подключается. Скачайте компонент для делфи
TShockWaveFlash.
uses
ShockwaveFlashObjects_TLB
...
type
TForm1 = class(TForm)
Panel1: TPanel;
mv: TShockwaveFlash;
...
var
p,h: string;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
try
form1.hide;
tz.Color:=RGB($dd,$dd,$dd);
mv.Movie := ExtractFilePath(Application.ExeName) + 'skin.swf';
mv.SetVariable ('vardt', StringToOleStr('0')); //Посылаем во флешь переменную
mv.Width:=800;
mv.Height:=600;
...
procedure TForm1.Timer1Timer(Sender: TObject);
begin
try
p:=mv.GetVariable('dt.text'); //читаем переменную каждый интервал времени. Если переменная изменилась обрабатываем.
if p='1' then begin
...
Добавлено через 7 минут
Цитата:
|
Rox, можно поподробней как вы собираетесь во ФП дельфи подключать?
|
обратное подключение средствами xml. делфи приложение запускается на сервере. и по xml коду воссоздает канву. с этим пока разбираюсь поэтому конкретно не подскажу.