Unitelway Dll - Supporta i S.O. 32 bit ?

[bigalex]

Gentili colleghi nell'area download ho visto che esiste una DLL per Driver UNITELWAY SERIALE =S= .

Tale DLL supporta l'utilizzo con tutti i sistemi operativi Windows (16bit -32bit) ?

Se esistono limitazioni funzionali in tal senso Vi chiedo se ci sono soluzioni che potete mettere a disposizione del forum .

Grazie .

bigalex

[orione1974]

Anch'io ho trovato la DLL e il manuale PDF, ma guard'ando quest'ultimo si nota che manca il file "unite.h", necessario per conoscere i tipi di dato e il valore delle costanti della DLL.

[polytec]

Ciao a tutti,

ho trovato anch'io questo problema...

Tutto quello che sono riuscito a fare in visual basic è questo:

[COLOR=red]
Option Explicit

' inizializza l'ambiente
Private Declare Function InitDriver Lib _
"C:\Documents and Settings\All Users\Documenti\Documenti\geniove\UniTelway.dll" _
(ByVal usNB_drv As Integer) As Integer
'usNB_drv  :Numero o istanza del driver da aprire
'ritorna UNITE_RC che sono informazioni di ritorno


'termina la sessione
Private Declare Function CloseDriver Lib _
"C:\Documents and Settings\All Users\Documenti\Documenti\geniove\UniTelway.dll" _
(ByVal usNB_drv As Integer) As Integer
'usNB_drv  :Numero o istanza del driver da chiudere
'ritorna UNITE_RC che sono informazioni di ritorno



'apre un canale di comunicazione
Private Declare Function OpenConnection Lib _
"C:\Documents and Settings\All Users\Documenti\Documenti\geniove\UniTelway.dll" _
(ByVal PDevicaAdd As Integer, ByVal timeout As Integer) As Integer
'ritorna HEQUIP
'Se >0 ok altrimenti ci sono errori
'Se < 0 usare GetU***tInfo


'chiude un canale di comunicazione
Private Declare Function CloseConnection Lib _
"C:\Documents and Settings\All Users\Documenti\Documenti\geniove\UniTelway.dll" _
(ByVal Hequip As Integer) As Integer
'ritorna UNITE_RC che sono informazioni di ritorno
'Se >0 ok altrimenti ci sono errori
'Se < 0 usare GetU***tInfo


'Lettura oggetti dal PLC
Private Declare Function ReadObject Lib _
"C:\Documents and Settings\All Users\Documenti\Documenti\geniove\UniTelway.dll" _
(ByVal Hequip As Integer, _
ByVal uchSegment As Integer, _
ByVal uchType As Integer, _
ByVal usFirst As Integer, _
ByVal usQty As Integer, _
ByVal pValue As Integer _
) As Integer
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'uchSegment :numero di segmento
'uchType    :specifica il tipo di oggetto
'usFirst    :indirizzo del primo oggetto da leggere
'usQty      :numero di consecutivi
'pValue     :indirizzo del buffer di dati letti
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


'chiude un canale di comunicazione
Private Declare Function GetU***tInfo Lib _
"C:\Documents and Settings\All Users\Documenti\Documenti\geniove\UniTelway.dll" _
(ByVal void As Integer) As Integer
'ritorna UNITE_RC che sono informazioni di ritorno


Dim HE As Integer






Private Sub Command1_Click()
HE = -1
Dim i As Integer
i = 1
While HE < 0
   HE = OpenConnection(i, 10)
   Text2.Text = HE
   i = 1 + 1
   'A volte lo apre con -1 e spesso con -14
Wend
End Sub

Private Sub Command2_Click()
Text3.Text = GetU***tInfo(0)
End Sub

Private Sub Form_Load()
Dim ritorno As String
ritorno = InitDriver(1)
Text1.Text = ritorno
'se ritorno = -18 il driver è già aperto
'in condizioni normali ritorna zero





End Sub

Private Sub Form_Unload(Cancel As Integer)
If HE > 0 Then CloseConnection (HE)
Text1.Text = CloseDriver(1)
'Ho controllato e ritorna zero
End Sub
[/COLOR]

Se qualcuno sa dirmi qualcosa in più vi ringrazio, ciao