Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Byte array
Message
 
À
14/05/2010 12:13:11
Emerson Reed
Folhamatic Tecnologia Em Sistemas
Americana - São Paulo, Brésil
Information générale
Forum:
Visual FoxPro
Catégorie:
Contrôles ActiveX en VFP
Titre:
Versions des environnements
Visual FoxPro:
VFP 9
OS:
Vista
Database:
Visual FoxPro
Application:
Desktop
Divers
Thread ID:
01464557
Message ID:
01464576
Vues:
132
You need only call COMArray on your object once and then it will use that setting for that object as long as it lives. Try some of the other values provided for the second parameter... also note that 10 can be combined with others (i.e. 110 or 1010).

If that doesn't work, try allocating the memory for each from the heap... plenty of internet examples on how to do this with VFP such as...

http://www.news2news.com/vfp/?example=156&function=-1&xpg=16

I replied to you over on Foxite as well earlier... saw you here though, so I thought I'd post something similar (this is more detailed).

>Hi Gary.
>I've tried the code above, without success.
>Maybe I need to initialize array elements with some value? If yes, what value?
>
>
>With Thisform
>   Local laDig1, laDig2
>   Dimension laDig1[.oleCaptura.MinutiaeSize] As Byte
>   Dimension laDig2[.oleCaptura.MinutiaeSize] As Byte
>   If .oleCaptura.LiveCapture(6000,50)
>      Do While Not .oleCaptura.IsCaptured
>      Enddo
>      Comarray(.oleCaptura,10)
>      If .oleCaptura.GetMinutiaeData(@laDig1)
>         Thisform.oleCaptura.Clear()
>         If .oleCaptura.LiveCapture(6000,50)
>            Do While Not .oleCaptura.IsCaptured
>            Enddo
>            Comarray(.oleCaptura,10)
>            If .oleCaptura.GetMinutiaeData(@laDig2)
>               Comarray(.oleCaptura,10)
>               Messagebox(.oleVerifica.GetMatchingScore(laDig1, laDig2),64,"Score") && Always returns 0, value must be greater than 100!
>               Comarray(.oleCaptura,10)
>               If .oleVerifica.Register(laDig1, laDig2) && Return invalid parameter error
>               Else
>                  Messagebox(.oleVerifica.ErrorString,16,"Erro 1")
>               Endif
>            Else
>               Messagebox(.oleCaptura.ErrorString,16,"Erro 2")
>            Endif
>         Else
>            Messagebox(.oleCaptura.ErrorString,16,"Erro 3")
>         Endif
>      Else
>         Messagebox(.oleCaptura.ErrorString,16,"Erro 4")
>      Endif
>   Else
>      Messagebox(.oleCaptura.ErrorString,16,"Erro 5")
>   Endif
>   Comarray(.oleCaptura)
>Endwith
>
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform