Delphi Tutorials

Tutorial ActiveX - Parameter übergeben

1) Einleitung

Ich möchte hier auf das Tutorial von Stefan aufsetzen. Dort ging es darum eine Delphi Applikation
In eine HTML Seite einzubetten. Nun stand die Frage im Raum, wie ich Parameter von der HTML-Seite
An das Programm übergeben kann.

Als Beispiel möchte ich hier einen Chat Client nennen. Dort ist es überaus sinnvoll, das da der Username,
oder die IP Adresse mit übergeben wird. Ich möchte nun an dem Beispiel aus dem Tutorial :
" Tutorial ActiveX - Forms einen Namen (Nick) einfügen.
Dazu benutze ich auch den Beispielcode :

Beispiel :

Wenn das Projekt nun geöffnet ist, werden wir ein Label hinzufügen :

Speichern nicht vergessen :)

Danach lassen wir uns unter [VIEW] [Type Library] die Typen Bibliothek anzeigen ,
und erhalten folgendes Fenster :

Danach öffnen wir die Interfaces :

In der oberen Reihe stehen nun eine Menge Symbole. Der komische grüne Pfeil ist eine neue Methode.
Wenn wir darauf klicken, dann bekommen wir in der Interface Liste eine neue Methode mit dem Namen
Method1 angelegt :

Diese benennen wir nun um in " nick "
Und wechseln zu dem Karteireiter " Parameter ". Dann erscheint folgendes Fenster :

Unter Name schreiben wir nun nick unter Typ können wir auswählen [ BSTR ]
Und klicken dann oben auf das Refresh Zeichen.
Nun sollte bei uns im Quellcode folgendes erscheinen :

procedure TActiveFormX.nick(const nick: WideString);
begin

end;

In die Procedure schreiben wir jetzt hinein :

Label1.Caption := 'Hallo '+nick;

Wenn ja, dann ist die halbe Miete drin, und wir speichern das Projekt und distributieren es wieder .

Jetzt müssen wir aber noch manuell den Code in der HTML Seite ändern.
Habe noch nicht rausbekommen wie das direkt aus Delphi geht.

Da sollte derzeit folgendes drin stehen :

Jetzt geben wir dem Kind erst mal einen Namen. Ich nenne das hier nur Test

Und hier kommt folgender Code hinzu :

<SCRIPT VBSCRIPT>
Test.nick("Andreas");
</SCRIPT>

Das war es . Auf zum Test ?????