| 884 | } |
| 885 | |
| 886 | void TFluidProp::SetUnits(string UnitSet, string MassOrMole, string Properties, string Units, string* ErrorMsg) { |
| 887 | BSTR BSTR_Error; |
| 888 | BSTR BSTR_UnitSet = _com_util::ConvertStringToBSTR(UnitSet.c_str()); |
| 889 | BSTR BSTR_MassOrMole = _com_util::ConvertStringToBSTR(MassOrMole.c_str()); |
| 890 | BSTR BSTR_Properties = _com_util::ConvertStringToBSTR(Properties.c_str()); |
| 891 | BSTR BSTR_Units = _com_util::ConvertStringToBSTR(Units.c_str()); |
| 892 | |
| 893 | FluidProp_COM->SetUnits(BSTR_UnitSet, BSTR_MassOrMole, BSTR_Properties, BSTR_Units, &BSTR_Error); |
| 894 | |
| 895 | char* lpszErrorMsg = _com_util::ConvertBSTRToString(BSTR_Error); |
| 896 | *ErrorMsg = lpszErrorMsg; |
| 897 | delete[] lpszErrorMsg; |
| 898 | |
| 899 | SysFreeString(BSTR_Units); |
| 900 | SysFreeString(BSTR_Properties); |
| 901 | SysFreeString(BSTR_MassOrMole); |
| 902 | SysFreeString(BSTR_UnitSet); |
| 903 | SysFreeString(BSTR_Error); |
| 904 | } |
| 905 | |
| 906 | void TFluidProp::SetRefState(double T_ref, double P_ref, string* ErrorMsg) { |
| 907 | BSTR BSTR_Error; |