Equivalent Windev (Prob Axis Camera)

Posté par Simnet le 10/9/2004 11:20:54

Je suis en train de faire une intégration de projet de télésurveillance IP avec Windev.
L'exemple d'AXIS contient des codes VB est j'aimerais juste obtenir l'équivalent de ce code :

Dim b As Variant
Dim Size As Variant
Dim a() As Byte
Call CamImage.GetCurrentImage(b, Size)
a() = b
Open "C:\Test.jpg" For Binary Access Write As #1
Put #1, , a()
Close #1

Merci d'avance