How to create SAFEARRAY COM/ADO structure

[Mogens Christensen]

any examples of or refs to creating and populating SAFEARRAY structures? - there are a few examples of how to get arrays out of them, but I need to construct them in Winbatch.

[Deana]

any examples of or refs to creating and populating SAFEARRAY structures? - there are a few examples of how to get arrays out of them, but I need to construct them in Winbatch.

ObjectType can convert WIL arrays and binary buffers to variant safearrays of a specific type. Request conversion by prepending "ARRAY|" to the variant element type in the first parameter.  The function's second parameter should contain a WIL array, a Variant safearray or a binary buffer when using the "ARRAY|" specification. The special type specification "ARRAY|VARIANT" can be used to convert WIL arrays already containing multiple variant types into a safearrays of type VARIANT.

For example:

Code  winbatch Select Expand

totalfortunes=20 
arrFortune=ArrDimension(totalfortunes) 
arrFortune[0] = "All your hard work will soon pay off." 
arrFortune[1] = "Winbatch will save you time." 
arrFortune[2] = "Your present plans are going to succeed." 
arrFortune[3] = "You will live a long time." 
arrFortune[4] = "One learns when teaching others." 
arrFortune[5] = "Success means competition." 
arrFortune[6] = "Your example will inspire others." 
arrFortune[7] = "One must be available, alert, active, and adaptable." 
arrFortune[8] = "If you have many best friends, you have no friends." 
arrFortune[9] = "Mountains can move, but not your character." 
arrFortune[10]= "You are a great coder." 
arrFortune[11]= "Concern yourself about others more than yourself." 
arrFortune[12]= "Time is the wisest counsellor." 
arrFortune[13]= "What you desire is always possible. It will come to you." 
arrFortune[14]= "You are known to be quick in action and decisive." 
arrFortune[15]= "You are open-minded and quick to make new friends." 
arrFortune[16]= "A good laugh and a good cry both cleanse the mind." 
arrFortune[17]= "Failure is the mother of success." 
arrFortune[18]= "Now is the time to try something new." 
arrFortune[19]= "An old pot is the best around the kitchen."

SafArrFortune = ObjectType( 'ARRAY|BSTR', arrFortune )

Exit

[Mogens Christensen]

 certthumbstring = ChrHexToString("0123456789ABCDEF0123456789ABCDEF01234567")
certthumbarray= ArrayFromStr(certthumbstring)
certthumbsafearray = ObjectType("ARRAY|UI1",certthumbarray)

but it fails with  WIL ERROR SUPPRESSED =>1702 (ObjectType: Unsupported variant-type)

and we get the same error with

certthumbstring = ChrHexToString("0123456789ABCDEF0123456789ABCDEF01234567")
certthumbsafearray = ObjectType("ARRAY|BSTR",certthumbstring)

- how should we construct the SAFEARRAY from a certificate thumb string like "12 34 56 78 90 AB CD EF ...."

[td]

Code  winbatch Select Expand

strTumb = "eb 67 70 54 7e 68 aa 88 c7 83 5d 8e ea 7c be 74 3f 93 ad 10"

hBytes = BinaryAlloc(StrLen(strTumb))
BinaryPokeHex(hBytes, 0, strTumb)
BinaryOleType( hBytes, 103 , 0, 0, 0)

; Just pass the buffer (hBytes) as a parameter to a method expecting
; a safearray of unsigned bytes.