DevTrain

Autor: Bernhard Elbl

Komponenten(DLL) mit VB - for Beginners

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.


Erfasst am: 20.04.2001 - Artikel-URL: http://www.devtrain.de/news.aspx?artnr=427
© Copyright 2003 ppedv AG - http://www.ppedv.de