Excel_VBA_manual

Deklaracija i poziv iz VBA:
Declare Function ArgStruktura Lib "primjer" _
(a As ARG, ByVal s As String) As Integer
Sub ArgStrukturaTest( )
Dim x As ARG
MsgBox ArgStruktura (x, "abracadabra")
MsgBox x.str & ":" &str&( x.i)
End Sub
'ispisuje string i dužinu
2.3.4.6 Korištenje polja (array)
OLE automatizacija osigurava poseban tip podataka polja koji se prenosi iz VBA u DLL. Ovaj tip
podataka naziva se SAFEARRAY. Kada OLE automatizacija predaje SAFEARRAY u DLL, tada
DLL prima pokazivaĉ na pokazivaĉ polja. Kao i BSTR pokazivaĉi, i SAFEARRAY pokazivaĉi
mogu pokazivati na nulto polje, ako je polje alocirano, ali još nije dimenzionirano.
Pomoću SAFEARRAY tipa podataka predaje se polje DLL-u, koji onda koristeći OLE funkcije
za rad sa SAFEARRAY–om oĉita dimenziju polja, njegovu gornju i donju granicu, te elemente
tog polja.
Primjer funkcije SumaPolja koja je dio DLL-a i prima dva parametra. Prvi parametar je pokazivaĉ
na SAFEARRAY, a drugi parametar je pokazivaĉ na long. Funkcija provjerava broj dimenzija
polja, oĉitava gornju i donju granicu polja, te zbraja elemente polja:
typedef SAFEARRAY * FPSAFEARRAY;
short WINAPI SumaPolja(FPSAFEARRAY *ppsa, long *plResult)
{ short Elem;
long donjagr, gornjagr, l, rezultat;
if (*ppsa == NULL)
// polje još nije inicijalizirano
return -4;
if ((*ppsa)->cDims != 1) // provjeri broj dimenzija
return -5;
// očitavanje gornje i donje granice polja
if (FAILED(SafeArrayGetLBound(*ppsa, 1, &donjagr)) ||
FAILED(SafeArrayGetUBound(*ppsa, 1, &gornjagr)))
return -1;
//zbrajanje elemenata
for (l =donjagr, rezultat = 0; l