Delphi -Menü:
Datei/neu/andere…
Drücken Sie die Taste OK [OK]
Klicken Sie auf das Menü Datei/Speichern, um zu speichern:
Geben Sie den Projektnamen Mycom ein
Drücken Sie die Schaltfläche Speichern
Öffnen Sie die Menüdatei/Neu/andere wieder…
Drücken Sie die [OK} -Taste;
Geben Sie MyObject in CoclassName ein
Drücken Sie OK
Drücken Sie Maus mit der rechten Maustaste auf ImyObject
ImyObject/New/Methode
Geben Sie den Test unter dem Namen ein
Wechseln Sie zur Seite der Parameter
Drücken Sie zweimal hinzu
Ändern Sie den Namen der ersten Parameter in param1, geben Sie in BSTR ein
Ändern Sie den Namen der zweiten Parameter in PSResult, geben Sie in BSTR* ein.
Punktmaus zum Modifikatorfeld der zweiten Parameter
Drücken Sie die Taste „…“
Tick Retval
Drücken Sie OK
(Das Original [in] wird [out, retval], was darauf hinweist, dass dies zurückgegeben werden soll, und sein Typ ist eine Zeichenfolge)
Schließen Sie dieses Fenster
(Sie werden sehen, dass es ein Codemodell für Sie erstellt.)
Datei/Speichern
Geben Sie den Dateinamen MyObject ein
Drücken Sie Save
Code ändern
Klicken Sie auf Strg+S, um zu speichern
Projekt/bauen Sie Mycom
Sie können sehen, dass eine mycom.dll -Datei generiert wurde.
Dies ist die gewünschte COM -Komponente.
Sprechen wir über die Methode, diese COM -Komponente aufzurufen:
Neu eine neue Anwendung
Fügen Sie einen Comobj in die Verwendungen hinzu
Setzen Sie einen Knopf in Form
Geben Sie den folgenden Code in das Onclick -Ereignis der Schaltfläche ein:
Code : |
var MyObject: olevariante; Beginnen MyObject: = createLoBject ('mycom.myObject'); versuchen ShowMessage (myObject.test ('dawn')); Endlich Varclear (myObject); Ende; Ende; |
Führen Sie aus ... und drücken Sie die Taste der Taste1
Sie werden eine Nachricht sehen ... dh der Wert der Testmethode des COM -Objekts wird ausgeführt.