Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Communicate with dll
Message
From
05/05/2009 11:23:15
Albert Beermann
Piepenbrock Service Gmbh & Cokg
Osnabrück, Germany
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Communicate with dll
Miscellaneous
Thread ID:
01397977
Message ID:
01397977
Views:
152
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
Map
View

Click here to load this message in the networking platform