General information
Category:
ActiveX controls in VFP
Title:
Communicate with dll
Hello Everybody
I have a dll to communicate with an DMS-System.
This is an working VB example:
Private Sub Command1_Click()
' Verbindungsobjekt zum Archiv
Dim oHypDMS As HypDms
' Obj für die Trefferliste
Dim oHitList As IHypDocHitList
Dim bOK As Boolean
'anzahl Treffer
Dim lTreffer As Long
'Databaseid DepartmentNr
Dim lDbID As Long
Dim lDocId As Long
Set oHypDMS = New AutoArchive.HypDms
'Verbinsungsparameter setzten
' Call oHypDMS.ConfigRouter
'leeres Hitlistendoc erstellen
Set oHitList = oHypDMS.CreateDocument("S2", "DC_HITLIST")
'Suchparameter angeben
bOK = oHitList.SetQueryField("OSVERKAU", "RENR", "20760169")
bOK = oHitList.SetQueryField("OSVERKAU", "BELEGART", "MAPPE")
' Query starten
lTreffer = oHitList.DoQuery()
MsgBox "Treffer " & lTreffer
' Wenn was gefunden...
If lTreffer > 0 Then
' Druchlaufen der Trefferliste
While oHitList.EnumEntryIDs(lDbID, lDocId)
MsgBox lDbID & " - " & lDocId
'Anzeigen Tif siehe unten
Call ShowDocument(lDbID, lDocId)
Wend
End If
End Sub
I want to use the dll with VFP 9.2, but i'm just to stupid for the basics :-(.
I can open the dll with the object browser, but how to reference ... ???
oH = Createobject('HypDms') = error class definition 'Hypdms' was not found.
Any help welcomed
Best regards
Albert
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only