par
Invité » 21 juil. 2005, 16:10
Du côté VB, j'arrive à utiliser la fonction Hllapi de la DLL Pcshll32.dll :
Code : Tout sélectionner
Declare Function HLLAPI& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, ByVal DataString$, Length&, RetC&)
Sub PC_Send(ByVal HllFunctionNo As Long, HllData As String, Optional ByVal HllReturnCode As Long, Optional ByVal HllLength As Long)
Dim Trim_HllData As String * HA_DATA_LENGTH
' Formatage et calcul de la taille (si non fournie en paramètre du message d'envoi
Trim_HllData = (HllData)
If HllLength = 0 Then
HllLength = Len(Trim(Trim_HllData))
End If
dummy& = HLLAPI&(HllFunctionNo, Trim_HllData, HllLength, HllReturnCode)
' Message d'erreur si code retour non nul
If HllReturnCode <> 0 Then
MsgBox ("Erreur sur fonction : " & Str$(HllFunctionNo))
Exit Sub
End If
HllData = Trim_HllData
End Sub
Je me suis renseigné du côté ASP et appremment il serait possible de créer une DLL ActiveX qui elle ferait le lien avec pcshll32.dll. Et ensuite utiliser la dll activex dans l'ASP.
Après je sais pas faire de DLL ActiveX!

Du côté VB, j'arrive à utiliser la fonction Hllapi de la DLL Pcshll32.dll :
[code]Declare Function HLLAPI& Lib "PCSHLL32.DLL" Alias "hllapi" (Func&, ByVal DataString$, Length&, RetC&)
Sub PC_Send(ByVal HllFunctionNo As Long, HllData As String, Optional ByVal HllReturnCode As Long, Optional ByVal HllLength As Long)
Dim Trim_HllData As String * HA_DATA_LENGTH
' Formatage et calcul de la taille (si non fournie en paramètre du message d'envoi
Trim_HllData = (HllData)
If HllLength = 0 Then
HllLength = Len(Trim(Trim_HllData))
End If
dummy& = HLLAPI&(HllFunctionNo, Trim_HllData, HllLength, HllReturnCode)
' Message d'erreur si code retour non nul
If HllReturnCode <> 0 Then
MsgBox ("Erreur sur fonction : " & Str$(HllFunctionNo))
Exit Sub
End If
HllData = Trim_HllData
End Sub[/code]
Je me suis renseigné du côté ASP et appremment il serait possible de créer une DLL ActiveX qui elle ferait le lien avec pcshll32.dll. Et ensuite utiliser la dll activex dans l'ASP.
Après je sais pas faire de DLL ActiveX! :?