ActiveX HTML

← →
yarvu (2005-02-14 20:16) [0]

Написал ActiveX, записал свой код для вызова ActiveX в HTML файл.
Прописал после тэга Object тэг PARAM с именем test, так вот вопрос как в самой ActiveX мне получить значение этого параметра test.
Заранее спасибо.

← →
КаПиБаРа © (2005-02-15 07:27) [1]

Сначала нужно в ActiveX определить необходимое свойство, а уж потом его можно задавать через HTML, VB, Delphi и т.д.

← →
yarvu (2005-02-15 13:06) [2]

Хм, а пример на делфи можно ?

← →
КаПиБаРа © (2005-02-15 13:22) [3]

ActiveX
uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ActiveX, AxCtrls, RunProgram_TLB, StdVcl, OleCtrls, vcf1, StdCtrls, ExtCtrls; resourcestring IniFileName = "Oszill.ini"; const WM_LOADPICTURE = WM_USER + 200; type TShellEx = class(TActiveForm, IShellEx) Image1: TImage; Memo1: TMemo; procedure ActiveFormCreate(Sender: TObject); procedure Image1Click(Sender: TObject); private { Private declarations } FEvents: IShellExEvents; FProgramPath: string; FStreth: Boolean; published property ProgramPath: string read FProgramPath write FProgramPath; property Path1024: string read FPath1024 write FPath1024; property Path800: string read FPath800 write FPath800; property Streth: Boolean read FStreth write FStreth; property HelpString: string read FHelpString write FHelpString; property PicturePath: string read FPicturePath write SetPicturePath {write FPicturePath}; end; implementation uses ComObj, ComServ, inifiles; ...

HTML
<HTML> <H1> Delphi 5 ActiveX Test Page </H1><p> You should see your Delphi 5 forms or controls embedded in the form below. <HR><center><P> <OBJECT classid="clsid:4E40ECE5-F528-11D6-91D6-008048B54DA9" codebase="Alpha/RunProgram.ocx#version=1,0,23,0" width=417 height=301 align=center hspace=0 vspace=0 > <PARAM NAME="ProgramPath" VALUE="dd.exe"> <PARAM NAME="Streth" VALUE="True"> <PARAM NAME="HelpString" VALUE="hhhhhhhh"> <PARAM NAME="PicturePath" VALUE="C:\WINNT\Zapotec 16.bmp"> <PARAM NAME="Cursor" VALUE="-21"> <PARAM NAME="Path1024" VALUE="P1024"> <PARAM NAME="Path800" VALUE="P800"> </OBJECT> </HTML>

← →
yarvu (2005-02-15 14:08) [4]

А где можно этот пример посмотреть, что-то у меня не чего не записываетс в переменные.

← →
КаПиБаРа © (2005-02-15 14:14) [5]

Ты свой код показывай лучше

← →
yarvu (2005-02-15 14:19) [6]

Делаю так в коде
private { Private declarations } FEvents: IfedexEvents; FBuf: string; published property PPath: string read FBuf write FBuf; implementation ..... procedure Tfedex.SpeedButton1Click(Sender: TObject); begin ShowMessage( "===> "" + FBuf + "". ==> "" + PPath + """ ); end;

В html

<HTML> <body> <center> <P> <OBJECT classid="clsid:E86238F3-6AB8-4DFF-9B64-5C7665F3B8B0" codebase="fedexProj1.ocx" align=center hspace=0 vspace=0 > <PARAM NAME="PPath" VALUE="123456789"> </OBJECT> </body> </HTML>

← →
КаПиБаРа © (2005-02-15 14:22) [7]

Поставь ShowMessage( "===> "" + FBuf + "". ==> "" + PPath + """ ); в функции присваивания значения PPath

← →
КаПиБаРа © (2005-02-15 14:26) [8]

yarvu (15.02.05 14:19) [6]
Извеняюсь, туплю чегото.

Нажатие не кнопку отрабатывет? Сообщение выводится?

← →
yarvu (2005-02-15 14:26) [9]

В смысле ? А при запуске ActiveX хначение не автоматически должно вставлятся в PPath ? Либо надо функцию какую-то писать для этого ?

← →
yarvu (2005-02-15 14:28) [10]

да сообщение выдаётся но переменные пустые

← →
КаПиБаРа © (2005-02-15 14:28) [11]

Версия OCX последняя зарегистрирована? Из HTML Нужная версия вызывается?

← →
yarvu (2005-02-15 14:30) [12]

Да с этим всё нормально, может пример какой-нибудь другой даш ?

← →
yarvu (2005-02-15 14:31) [13]

Да с этим всё нормально, может пример какой-нибудь другой даш ?

Других нету

← →
yarvu (2005-02-15 14:45) [15]

Этот работает ? Может вышлеш мне на мыло часть кода ?

yarvu (15.02.05 14:45) [15]
Может вышлеш мне на мыло часть кода ?

Выслал, лови.

← →
yarvu (2005-02-15 15:45) [17]

Слушай я тебе тут мыло не оставил (забыл). Отправь мне на yaroslav[at]mail.sochi.ru

Отправь туда плз.

← →
yarvu (2005-02-15 15:45) [18]

Слушай я тебе тут мыло не оставил (забыл). Отправь мне на yaroslav[at]mail.sochi.ru

Отправь туда плз.

ActiveX HTML Найти похожие ветки