ActiveForm mit parametern starten??

[SkinnerLA]

Hallo zusammen ,

ich habe in einer html seite ein activeform(OCX) drin. Nun stellt sich bei mir die frage ob es möglich dieses active form mit parametern zu starten. Also quasie der html seite über z.b. asp einenparameter mit liefern und diesen dann mit dem ocx einfangen , oder so

Hat jemand eine info zu diesem Thema?

Danke im Voraus

[Andreas Kosch]

Hallo,

ja - das ist möglich. Aus der HTML-Seite heraus kann auf die eigenen Interface-Methoden des ActiveForm zugegriffen werden, wobei dies auch für die Interface-Methoden des Events-Interfaces gilt. Das folgende Beispielprojekt demonstriert, wie<br>
a) aus der HTML-Datei heraus der Text der TEdit-Instanz im ActiveForm gesetzt wird. <br>
b) in der HTML-Datei auf das Anklicken der TButton-Instanz im ActiveForm reagiert wird, und <br>
c) in der HTML-Datei der neue Inhalt der TEdit-Instanz im ActiveForm ausgelesen wird.

Nachdem die ActiveX-Bibliothek und das Grundgerüst für das ActiveForm vom Experten zusammengestellt wurde, werden m Typbibliothekseditor sowohl das ActiveForm-Interface als auch das Events-Interface um die eigene Methode erweitert:<br>
- IActiveFormDemoX: property OSParameter: WideString read Get_OSParameter write Set_OSParameter; <br>
- IActiveFormDemoXEvents: procedure OnOSButtonClick <br>
Das Read/Write-Property OSParameter wird von Delphi automatisch in die beiden Set_- und Get_-Methoden umgesetzt. Das eigene Event OnOSButtonClick soll immer dann ausgelöst werden, wenn der Button im ActiveForm angeklickt wird.

In der HTML-Seite sieht das dann so aus:
<pre>
< HTML>
< H1> Delphi 5 ActiveX Test Page < /H1>< /pre>
< p>
You should see your Delphi 5 forms or controls embedded in the form below.
< HR>< center>< P>
< OBJECT ID="OSActiveForm"
classid="clsid:5D5C9EC6-DB6E-44D1-86A5-E9DE4823C5FC"
codebase="http://localhost/OssiSoft/Test/ActiveFormDemo.cab#version=1,0,1,0"
width=314
height=138
align=center
hspace=0
vspace=0
> < PARAM name="OSParameter" value="Der Text aus der HTML">
< /OBJECT>
< SCRIPT LANGUAGE="JavaScript" FOR="OSActiveForm" EVENT="OnOSButtonClick">
alert(document.all.OSActiveForm.OSParameter);
< /SCRIPT>
< /HTML>

</pre&gt