Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Byte array
Message
 
To
14/05/2010 12:13:11
Emerson Reed
Folhamatic Tecnologia Em Sistemas
Americana - São Paulo, Brazil
General information
Forum:
Visual FoxPro
Category:
ActiveX controls in VFP
Title:
Environment versions
Visual FoxPro:
VFP 9
OS:
Vista
Database:
Visual FoxPro
Application:
Desktop
Miscellaneous
Thread ID:
01464557
Message ID:
01464576
Views:
145
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
>
Previous
Reply
Map
View

Click here to load this message in the networking platform