Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.039 c
3-1106890233
Fedor
2005-01-28 08:30
2005.02.27
Копирование из одной записи в другую в переделах одной таблицы


1-1108054427
Sphinxx
2005-02-10 19:53
2005.02.27
Перевод из двоичной в десятичную


14-1107486345
Думкин
2005-02-04 06:05
2005.02.27
С Днем рождения! 4 февраля


3-1106738017
Ega23
2005-01-26 14:13
2005.02.27
А в чём проблема? Вопрос не соответствует конференции?


1-1108447158
КиТаЯц
2005-02-15 08:59
2005.02.27
Вопрос по инсталлятору InnoSetup (для тех кто пользуется)





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский