Result = SafeArrayGetUBound(VBArray, 1, ubound ) Result = SafeArrayGetLBound(VBArray, 1, lbound) Write (2, *) "Details of the array passed by VB" Open (2, file="test.out", status="unknown") Integer i, result, lbound, ubound, length !** in your program it is used as a template to describe the memory !** The good news is that it allows us to take some shortcuts for now. !** Please note: This may not be true with future releases of VB! !** experimentation with Visual Basic V5.0 I've found that it passes When using COM, BSTRs are coded in Unicode.
!** preceding the pointer, and the string itself is pointed to by !** a BSTR is such that the length of the BSTR is returned in the word !** What is returned by SafeArrayGetElem is a BSTR. Pointer (VBArray,SADummy) !Pointer to a SafeArray structure !** that is 32 bits - in the future, that may expand. !** to fit the size of a pointer for the particular platform. !** When this is declared as a pointer it will automatically expand !** integer as something to point to, because the POINTER statement !** The following module declares the interfaces to SafeArrayxxx !** Declare the array of strings (SafeArray) as being passed by REFERENCE. !dec$ attributes alias : "ForCall" :: ForCall ! It also writes various pieces of information about the array to that ! and writes each string out to a datafile. ! This subroutine takes as input an array of strings from Visual Basic, The call from the Basic routine is as simple as this: Interest with the keystring "!**", and included a long and involvedĮxplanation of why you need to do it that way.
SafeArray structure, and passes them back to VB. SafeArray of strings from Visual Basic and writes the contents of each These are often used in COM interfaces, and contain informationĪbout the dimensions and bounds of the arrays within them.Īppended is an example Fortran subroutine that receives a one-dimensional The structure that VB uses to pass arrays of strings is called a "SafeĪrray". Visual Basic doesn't need to do anything special to pass the arrays to Should be called "How DVF can receive arrays of strings from VB", because "Everything you've always wanted to know about VB Arrays of Strings*Īs promised in the last newsletter, here is an article on "How to passĪrrays of strings from Visual Basic to Visual Fortran".
0 kommentar(er)
