github/CoolProp
1
1
Fork 0
mirror of https://github.com/CoolProp/CoolProp.git synced 2026-04-23 03:00:17 -04:00
Code Issues Packages Projects Releases Wiki Activity

Create cpIntf.pas

Browse Source
This commit is contained in:
Bruce Wernick
2015-12-10 08:25:58 +02:00
parent 00dad47d88
commit eeacdf8b0b
1 changed files with 48 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
wrappers/Delphi/cpIntf.pas Normal file
View File

@@ -0,0 +1,48 @@
{
Delphi Interface for CoolProp
Bruce Wernick, 9 December 2015
}
unit cpIntf;
interface
const
cpdll = 'CoolProp.dll';
type
CoolChar = AnsiChar;
PCoolChar = PAnsiChar;
CoolStr = AnsiString;
CoolVec = array[0..1023] of CoolChar;
function get_global_param_string(
param: PCoolChar;
var res: CoolVec): LongInt; stdcall;
external cpdll name '_get_global_param_string@12';
function get_fluid_param_string(
fluid: PCoolChar; param: PCoolChar;
var Output: CoolVec): Longint; stdcall;
external cpdll name '_get_fluid_param_string@12';
function PropsSI(spec: PCoolChar;
prop1: PCoolChar; val1: Double;
prop2: PCoolChar; val2: Double;
ref: CoolStr): Double; stdcall;
external cpdll name '_PropsSI@32';
function Props1SI(spec: PCoolChar;
ref: CoolStr): Double; stdcall;
external cpdll name '_Props1SI@8';
function HAPropsSI(spec: PCoolChar;
prop1: PCoolChar; val1: Double;
prop2: PCoolChar; val2: Double;
prop3: PCoolChar; val3: Double): Double; stdcall;
external cpdll name '_HAPropsSI@40';
implementation
begin
end.