[ 1 ] [ 2 ] [ 3 ] [ 4 ] [ 5 ]

Test des OLE Servers aus VB heraus

Es empfiehlt sich auf jeden Fall, den OLE Server auch aus VB als OLE Client zu testen. Im Gegensatz zu Visual FoxPro bietet Visual Basic bekanntlich die Wahl zwischen early binding und late binding im Zusammenhang mit der Objektinstanziierung. Visual FoxPro bietet leider nur las Late Binding im Zusammenhang mit createobject(“classname”).

Late binding Test aus VB heraus

Der Test erfolgt am besten indem man sich ein neues Projekt erstellt und dort ein Form als Startup definiert und im Command button im Click Event folgenden Code plaziert:

 Private Sub Command1_Click()
     Dim ox As Object
     Set ox = CreateObject("aspexe.caspexe")
     Print ox.gettesttime
     Set ox = Nothing
 End Sub

Läßt man die Applikation laufen, präsentiert sie sich folgendermassen nachdem man zweimal auf den Commandbutton geklickt hat:

Early binding Test aus VB heraus

Early binding erfolgt, indem zur Design Zeit in den Projektreferenzen, die Type Library unseres VFP OLE Servers referenziert wird. Dies erfolgt indem die Checkbox zum Namen aspexe angeklickt wird.

[ 1 ] [ 2 ] [ 3 ] [ 4 ] [ 5 ]