Function WINHLLAPI

[anatroccolo]

Con VB6 mi collego a HOST utilizzando l'OCX di EICON AVIVA e fin qui tutto OK. Però ho la necessità di implementare il programma con delle funzioni contenute nella DLL WINHLLAPI.

Qualcuno le ha già utilizzate....... mi potreste aiutare, come dichiararle, quali parametri utilizzare.

Io dovrei utilizzare la Function COPY-OIA.

Grazie.

[sir]

Function CallOIA()

areaoia$ = Space(103)
Func% = HA_COPY_OIA
STRNLEN% = Len(areaoia$)
dummy% = callapi(Func%, areaoia$, STRNLEN%, rc%)

If rc% <> 0 Then
    MsgBox "Possibile Errore HOST l'applicazione verra' terminata ", vbCritical
    'LOG "### Errore copiatura OIA n°- " & rc%
Else
    'LOG "Copiatura OIA ok"
End If

End Function

Global Const HA_COPY_OIA = 13   'Copy OIA function

Se manca qualcosa fammi sapere

[anatroccolo]

Grazir Sir ho però ancora un piccolo (spero) problemino. Mi da il seguente errore:

"Impossibile trovare il punto d'ingresso delle DLL callapi in WHLLAPI.DLL"

Io ho fatto così:

'In un modulo .bas
Public Declare Function WINHLLAPI Lib "WHLLAPI.Dll" (CopyOIA As Integer, lpbystring As String, lpelength As Integer, lpwreturnncode As Integer)
Global Const HA_Copy_OIA = 13

'La Function
Function CopyOIA()
    areaoia$ = Space(103)
    Func% = HA_Copy_OIA
    STRNLEN% = Len(areaoia$)
    dummy% = WINHLLAPI(Func%, areaoia$, STRNLEN%, Rc%)
    If Rc% <> 0 Then
        MsgBox "Possibile Errore Host l'applicazione verrà terminata", vbCritical
    End If
End Function

'qui la richiamo
Private Sub cmdCancel_Click()
    Call CopyOIA
End Sub

Penso di dichiarare male la DLL mi potresti aiutare????

Grazie

[sir]

Declare Function hllapi_RUMBA% Lib "EHLAPI32.DLL" Alias "hllapi" 
(Func%, ByVal Dati$, DataLen%, rc%)

Function callapi(Func As Integer, strn As String, STRNLEN As Integer, rc As Integer) As Integer
   
   x% = DoEvents()

'                    Attesa per Sys-Available
   On Error GoTo ERRORE
   
    If HLLADLL$ = "DEFAULT" Then
        HLLADLL$ = "IBM"
    End If
    Select Case HLLADLL$
    
        Case Is = "IBM"
            dummy% = hllapi_IBM%(Func%, strn$, STRNLEN%, rc%)
        Case Is = "RUMBA"
            dummy% = hllapi_RUMBA%(Func%, strn$, STRNLEN%, rc%)

    End Select
  
   
   On Error GoTo 0
   Exit Function
ERRORE:
    MsgBox Err.Number & Err.Description
    Resume
End Function

[anatroccolo]

Niente da fare SIR sempre lo stesso errore, hai qualche altro consiglio.

[sir]

Non saprei dirti altro, hai provato a cercare su internet la documentazione?

[ladyBlu]

ragazzi, sono stanca di passare il mio tempo a modificare post... usate i tag per il codice, ve ne prego
[*code][*/code] senza *

[sir]

Scusami Lady

[ladyBlu]

Originariamente inviato da sir
Scusami Lady

prego...basta che d'ora in poi li usi...