Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];
Вниз
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]Да с этим всё нормально, может пример какой-нибудь другой даш ?
← →
КаПиБаРа © (2005-02-15 14:41) [14]Других нету
← →
yarvu (2005-02-15 14:45) [15]Этот работает ? Может вышлеш мне на мыло часть кода ?
← →
КаПиБаРа © (2005-02-15 15:33) [16]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
Отправь туда плз.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.02.27;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.072 c
