Wie kann ich in VB eine Komponente schreiben? Und wie kann ich diese Komponente(DLL) in ASP verwenden?
Aufgabe:
Der Komponente sollen 2 Werte übergeben werden. Diese sollen in der Komponente addiert werden. Das Ergebnis wird zurückgeben und kann dann in einer ASP-Seite ausgeben werden.
Eigentlich beginnt man damit, die Komponente zu schreiben. Um zu verdeutlichen was die Komponente können soll, hier zuerst der Aufruf der Komponente in ASP.
addieren.asp
<% '--- Eine Instanz zur Komponente(Objekt) wird geschaffen set oRechner = Server.CreateObject("ProjektR.ClassRechner") '--- Der Komponente werden Werte übergeben oRechner.Zahl1 = 5 oRechner.Zahl2 = 7 '--- Die Funktion Rechnen der Komponente wird aufgerufen und das Ergebnis ausgegeben Response.write oRechner.Rechnen '--- Das Objekt wird zerstört set oRechner = nothing %> |
Und jetzt die VB-Komponente: ProjektR.dll wird starten VB und öffnen eine neue ActiveX-DLL. Wir benennen unser Projekt "ProjektR" und unser Klassenmodul "ClassRechner".
In das Klassenmodul schreiben wir folgenden Code.
'--- mit dieser Syntax können den Privats X und Y Werte zugewiesen werden '--- diese sind nur innerhalb der Klasse gültig Private X As Long Private Y As Long '--- so können Parameter von der Klasse entgegengenommen werden Property Let Zahl1(Par1) X = Par1 End Property '--- so können Werte(Parameter) von der Klasse nach außer werden bereitgestellt werden Property Get Zahl1() Zahl1 = X End Property Property Let Zahl2(Par2) Y = Par2 End Property Property Get Zahl2() Zahl2 = Y End Property '--- die Funktion gibt einen Wert zurück Public Function Rechnen() As Long Rechnen = X + Y End Function Private Sub Class_Initialize() '--- dieses Sub wird beim Starten durchlaufen '--- hier können Default-Einstellungen vorgenommen werden X = 1 Y = 2 End Sub Private Sub Class_Terminate() '--- wird beim Terminieren, Verlassen der Klasse ausgeführt '--- hier können z.B. Speicher prozeduren... vorgenommen werden End Sub |
Testen der DLL:Jetzt können Sie den Code auf seine Funktion und RichtigKeit überprüfen und zwar bevor Sie die DLL-Kompilieren. Rechtsklick auf das Projekt im Projekt-Explorer/Eigenschaften/Debuggen/Browser starten mit URL. Hier geben Sie die URL ihrer ASP-Seite ein. Jetzt können Sie das Projekt im Menü ausführen starten. Lassen Sie das VB-Projekt laufen und wechseln zur ASP-Seite.
Noch ein Feature: Wenn Sie im ASP-Code mit der Komponente arbeiten, erhalten Sie jetzt unser beliebtes Intellicense. z.B.
oRechner. jetzt haben Sie die Auswahl von Funktionen und Properties unserer Klasse
da wir Property Get für Zahl1 verwendet haben können wir Zahl1 abfragen und ausgeben
Response.Write oRechner.Zahl1 |
Kompilieren:
Wenn Sie die DLL Kompilieren(Menü:Datei/ProjektR.dll erstellen) steht Sie sofort danach überall auf dem System und immer zu Verfügung.
Mit der Befehlszeile : regsvr32 /u projektr.dll --- können Sie die DLL aus der Registrierung löschen.
Download:
Natürlich gibs unten den Kompletten Source-Code zum Download.