| 297 | } |
| 298 | |
| 299 | double TFluidProp::Enthalpy(string InputSpec, double Input1, double Input2, string* ErrorMsg) { |
| 300 | double Output; |
| 301 | |
| 302 | BSTR BSTR_InputSpec = _com_util::ConvertStringToBSTR(InputSpec.c_str()); |
| 303 | BSTR BSTR_Error; |
| 304 | |
| 305 | FluidProp_COM->Enthalpy(BSTR_InputSpec, Input1, Input2, &Output, &BSTR_Error); |
| 306 | |
| 307 | char* lpszErrorMsg = _com_util::ConvertBSTRToString(BSTR_Error); |
| 308 | *ErrorMsg = lpszErrorMsg; |
| 309 | delete[] lpszErrorMsg; |
| 310 | |
| 311 | SysFreeString(BSTR_Error); |
| 312 | SysFreeString(BSTR_InputSpec); |
| 313 | |
| 314 | return Output; |
| 315 | } |
| 316 | |
| 317 | double TFluidProp::Entropy(string InputSpec, double Input1, double Input2, string* ErrorMsg) { |
| 318 | double Output; |