получить доступ к MacromediaFlashPlayerActiveX

386

09 ноября 2007 года

297 / / 05.04.2005

Вообщем этот вопрос меня мучает очень давно.... Как получить доступ к элементам флеш?
Народ как-то это делает.... Добрался до того что флеш имеет тип
MacromediaFlashPlayerActiveX. Покапавшись в нете нашел
http://it4business.ru/forum/index.php?showtopic=5283&pid=29031&st=0&#entry29031

Там пишут что Flash приложения довольно закрытые, и доступ к их контролам можно получить только через плагин MSAA если они реализуют интерфейс IAccessible.

Ребят. что такое IAccessible ? Что такое MSAA ?
----------
Покопался еще немного....
Говорят что можно через BHO получить доступ к элементам флешки, кнопчками и тому подобному.
Что такое BHO ?

Подписаться на вопросНеобходима регистрация

По порядку

Сначала полезные

Сначала решения

23 ответа

0 спам

33K

09 ноября 2007 года

smorodov

6 / / 09.11.2007

Menu Component->Import ActiveX Control в списке Macromedia ShockWaveFlash устанавливаем компонент.TShockwaveFlash появляется в ActiveX.
А дальше работаем со свойствами Пример на моем сайте [email]smorodov@narod.ru[/email] в программе симуляторе промышленного контроллера
компилятор: C++Builder 6.Файл:robot.cpp Дерзай:)
текст его ниже:

#include <vcl.h>
#pragma hdrstop

#include "robot.h"
#include "EditU1.h"
#include "EditU2.h"
#include "EditU3.h"
#include "Unit4.h"
#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ShockwaveFlashObjects_OCX"
#pragma resource "*.dfm"
TRobotForm *RobotForm;
bool s0=1,s1=0;
bool PrevCommand[3];
bool Sensors[6];
int position[3];
int n=0;
//---------------------------------------------------------------------------
__fastcall TRobotForm::TRobotForm(TComponent* Owner)
: TForm(Owner)
{
ShockwaveFlash1->Movie=ExtractFilePath(Application->ExeName)+"stanok.swf";
ShockwaveFlash1->GotoFrame(0);
ShockwaveFlash1->Stop();

for (int i=0;i<3;i++)
{
position=2;
Command=false;
}

}

//---------------------------------------------------------------------------

void __fastcall TRobotForm::Display(void)
{
TColor Col[]={clWhite,clGreen};
bool change=false;

if(RobotForm->Visible)
{
for (int i=0;i<6;i++)
{
if (Form2->I!=Sensors){change=true;}
Form2->I=Sensors;
}
if(change){
Form1->StateChanged();
}
}

}

//---------------------------------------------------------------------------

void __fastcall TRobotForm::Panel1Resize(TObject *Sender)
{
//
ShockwaveFlash1->Refresh();
Panel1->Invalidate();
}
//---------------------------------------------------------------------------

void __fastcall TRobotForm::ProcessStep(void)
{
n=0;
if(Command[n] && position[n]<49){position[n]++;}
if(!Command[n] && position[n]>1){position[n]--;}
if(position[n]<4 && !Sensors[0]){Sensors[0]=true;}
if(position[n]>=4 && Sensors[0]){Sensors[0]=false;}

if(position[n]>47 && !Sensors[1]){Sensors[1]=true;}
if(position[n]<=47 && Sensors[1]){Sensors[1]=false;}

ShockwaveFlash1->SetVariable(StringToOleStr("all.h"),StringToOleStr(IntToStr(position[n])));

n=1;
if(Command[n] && position[n]<49){position[n]++;}
if(!Command[n] && position[n]>1){position[n]--;}
if(position[n]<4 && !Sensors[2]){Sensors[2]=true;}
if(position[n]>=4 && Sensors[2]){Sensors[2]=false;}

if(position[n]>47 && !Sensors[3]){Sensors[3]=true;}
if(position[n]<=47 && Sensors[3]){Sensors[3]=false;}
ShockwaveFlash1->SetVariable(StringToOleStr("all.stanok.l"),StringToOleStr(IntToStr(position[n])));

n=2;
if(Command[n] && position[n]<49){position[n]++;}
if(!Command[n] && position[n]>1){position[n]--;}
if(position[n]<4 && !Sensors[4]){Sensors[4]=true;}
if(position[n]>=4 && Sensors[4]){Sensors[4]=false;}

if(position[n]>47 && !Sensors[5]){Sensors[5]=true;}
if(position[n]<=47 && Sensors[5]){Sensors[5]=false;}
ShockwaveFlash1->SetVariable(StringToOleStr("all.stanok.shvat.s"),StringToOleStr(IntToStr(position[n])));
Display();
Sleep(30);
}
void __fastcall TRobotForm::Button1Click(TObject *Sender)
{
for (int i=0;i<3;i++)
{
position=1;
Command=false;
}
int n=0;
ShockwaveFlash1->SetVariable(StringToOleStr("all.h"),StringToOleStr(IntToStr(position[n])));
n=1;
ShockwaveFlash1->SetVariable(StringToOleStr("all.stanok.l"),StringToOleStr(IntToStr(position[n])));
n=2;
ShockwaveFlash1->SetVariable(StringToOleStr("all.stanok.shvat.s"),StringToOleStr(IntToStr(position[n])));

ProcessStep();
//ShockwaveFlash1->Free();
bool change=false;
for (int i=0;i<6;i++)
{
if (Form2->I!=Sensors){change=true;}
Form2->I=Sensors;
}
if(change){
Form1->StateChanged();
}
Display();
}
//---------------------------------------------------------------------------

void __fastcall TRobotForm::FormClose(TObject *Sender,
TCloseAction &Action)
{
Form1->iLedMatrix4->IndicatorActive[0][1]=false;
}
//---------------------------------------------------------------------------

Ваш аккаунт

Последние темы форума

Почтовая рассылка

получить доступ к MacromediaFlashPlayerActiveX

23 ответа