Information générale
Catégorie:
Contrôles ActiveX en VFP
Titre:
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
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement