| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ActiveX HTML [D7, WinXP]
yarvu © (2005-02-14 20:16:00)Написал ActiveX, записал свой код для вызова ActiveX в HTML файл.
Прописал после тэга Object тэг PARAM с именем test, так вот вопрос как в самой ActiveX мне получить значение этого параметра test.
Заранее спасибо.
yarvu (2005-02-15 15:45:00) [1]Слушай я тебе тут мыло не оставил (забыл). Отправь мне на yaroslav[at]mail.sochi.ru
Отправь туда плз.
yarvu (2005-02-15 15:45:00) [2]Слушай я тебе тут мыло не оставил (забыл). Отправь мне на yaroslav[at]mail.sochi.ru
Отправь туда плз.
КаПиБаРа (2005-02-15 15:33:00) [3]yarvu (15.02.05 14:45) [15]
Может вышлеш мне на мыло часть кода ?
Выслал, лови.
yarvu (2005-02-15 14:45:00) [4]Этот работает ? Может вышлеш мне на мыло часть кода ?
КаПиБаРа (2005-02-15 14:41:00) [5]Других нету
yarvu (2005-02-15 14:31:00) [6]Да с этим всё нормально, может пример какой-нибудь другой даш ?
yarvu (2005-02-15 14:30:00) [7]Да с этим всё нормально, может пример какой-нибудь другой даш ?
yarvu (2005-02-15 14:28:00) [8]да сообщение выдаётся но переменные пустые
КаПиБаРа (2005-02-15 14:28:00) [9]Версия OCX последняя зарегистрирована? Из HTML Нужная версия вызывается?
yarvu (2005-02-15 14:26:00) [10]В смысле ? А при запуске ActiveX хначение не автоматически должно вставлятся в PPath ? Либо надо функцию какую-то писать для этого ?
КаПиБаРа (2005-02-15 14:26:00) [11]yarvu (15.02.05 14:19) [6]
Извеняюсь, туплю чегото.
Нажатие не кнопку отрабатывет? Сообщение выводится?
КаПиБаРа (2005-02-15 14:22:00) [12]Поставь ShowMessage( '===> "' + FBuf + '". ==> "' + PPath + '"' ); в функции присваивания значения PPath
yarvu (2005-02-15 14:19:00) [13]Делаю так в коде
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:14:00) [14]Ты свой код показывай лучше
yarvu (2005-02-15 14:08:00) [15]А где можно этот пример посмотреть, что-то у меня не чего не записываетс в переменные.
КаПиБаРа (2005-02-15 13:22:00) [16]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 13:06:00) [17]Хм, а пример на делфи можно ?
КаПиБаРа (2005-02-15 07:27:00) [18]Сначала нужно в ActiveX определить необходимое свойство, а уж потом его можно задавать через HTML, VB, Delphi и т.д.
| |
