Method GetFluidNames

wrappers/Modelica/src/FluidProp_IF.cpp:188–225

}

void TFluidProp::GetFluidNames(string LongShort, string ModelName, int* nFluids, string* FluidNames, string* ErrorMsg) {
    long long_nFluids;

    // Get available fluids
    BSTR BSTR_Model = _com_util::ConvertStringToBSTR(ModelName.c_str());
    BSTR BSTR_LongShort = _com_util::ConvertStringToBSTR(LongShort.c_str());
    BSTR BSTR_Error;

    // Convert character array FluidNames via binary strings (BSTR) into an OLE SafeArray
    // This needs to be done because in the COM interface FluidNames is an inout argument,
    // because Visual Basic is not able to deal out arrays....
    //
    SAFEARRAYBOUND sa_bounds_FluidNames[1];
    sa_bounds_FluidNames[0].lLbound = 0;
    sa_bounds_FluidNames[0].cElements = 250;
    SAFEARRAY* sa_FluidNames;
    sa_FluidNames = SafeArrayCreate(VT_BSTR, 1, sa_bounds_FluidNames);

    FluidProp_COM->GetFluidNames(BSTR_LongShort, BSTR_Model, &long_nFluids, &sa_FluidNames, &BSTR_Error);

    // Retrieve array with components from SafeArray
    BSTR BSTR_Fluid;
    for (long i = 0; i < long_nFluids; i++) {
        SafeArrayGetElement(sa_FluidNames, &i, &BSTR_Fluid);
        FluidNames[i] = _com_util::ConvertBSTRToString(BSTR_Fluid);
    }
    *nFluids = long_nFluids;

    // Error handling
    char* lpszErrorMsg = _com_util::ConvertBSTRToString(BSTR_Error);
    *ErrorMsg = lpszErrorMsg;
    delete[] lpszErrorMsg;

    SysFreeString(BSTR_Fluid);
    SysFreeString(BSTR_Error);
    SysFreeString(BSTR_LongShort);
    SysFreeString(BSTR_Model);
}

double TFluidProp::Pressure(string InputSpec, double Input1, double Input2, string* ErrorMsg) {
    double Output;