请教c＋＋格式的函数接口如何翻译到delphi

const char PIPTR *procname
#define PIPTR _far
const char _far *procname


C++默认是按值传，如果要穿引用可以加上一个 & 标志

不过_far对应了Delphi的什么，我就不知道了。
PIINT32 int32 WINAPI
PIINT32 piut_connect( const char PIPTR *procname );
function piut_connect(const procname;pchar):int32; stdcall;
PIINT32 piut_disconnect( void );
function piut_disconnect:int32;stdcall;
PIINT32 piut_login( const char PIPTR *, const char PIPTR *, int32 PIPTR * );
type
   pint32 = ^int32
function piut_login(const pv1:pchar; const pv2:pchar; pv3:pint32):int32;stdcall;
PIINT32 pipt_findpoint( char PIPTR *tagname, int32 PIPTR *pt );
function pipt_findpoint(tagname;pchar; pt:pint32):int32; stdcall;

可能是这样吧，我也不能完全肯定

C++太强大了，有些写法在DELPHI中不一定支持
如#define宏定义和“const char PIPTR *procname”
你最好装装c++builder看看BORLAND公司是如何把
c++和dephi互相翻译的
OBJECT PASCAL是对C++
的一种简化，所以翻译的不一定对，见谅：
DEPHI的条件编译预处理
{$ifndef PIPTR}
{$if (defined(_WINDOWS) or defined(DOS)) and not defined(WIN32)}
type
   _far=PIPTR
{$define  }
{$else}
    __far=PIPTR
  end;
{$endif}

{$endif}

{$if defined(_WINDOWS) or defined(WIN32)}
uses windows.pas
type
   int32 WINAPI=PIINT32//
   void WINAPI=PIVOID//
   WINAPI=PIWIN
   pibool WINAPI=PIBOOL 
{$elif defined ( __alpha )}
   int=PIINT32
   void=PIVOID
   win =PIWIN
   pibool2=PIBOOL//dephi不区分大小写
{$else}
   int32=PIINT32
   void=PIVOID
   win =PIWIN
   pibool2=PIBOOL//dephi不区分大小写
 end;
{$endif}

function piut_connect( const PIPTR procname:PChar ):PIINT32;
function piut_disconnect:PIINT32;//DELPHI无参数就不用写了
function piut_login(const PIPTR procname:PChar;const PIPTR procname2:PChar;const PIPTR procname:int32):PIINT32 
          //dephi不支持无名参数声明，C++过分强大了！注意DELPHI声明是参数是用;割开
function pipt_findpoint( var PIPTR tagname:char; var PIPTR pt:int32):PIINT32 ;
或：function pipt_findpoint(PIPTR tagname:Pchar;PIPTR pt:^int32):PIINT32 ;