哪位帮小弟把C++申明转成DELPHI的。拜谢。

Question

1.
typedef long WINAPI (*pfunc_StartTSC) (long& Handle,const char* lpFileName,int bReadonly,int port,int ulAddr,int MaxConn);2.
typedef int WINAPI (*pfunc_StopTSC) (long Handle,long hThread);3.
typedef DWORD WINAPI (*pfunc_iTSCMount)(int iTSCIndex,int ulAddr,int usport,BYTE Latter,char* lpTempFile);4.
typedef long WINAPI (*pfunc_iTSCUmount)(unsigned char Latter);
一共4个，请帮帮忙。

Answer 1

type
  TStartTSC = function(var Handle: Longint; FileName: PChar; 
    ReadOnly, port, addr, maxConn: Integer): Longint; stdcall;
  TStopTSC = function(Handle: Longint; hThread: Longint): Integer;
  TTSCMount = function(Index, Addr, Port: Integer; Latter: Byte; 
    TempFile: PChar): Longint;
  TTSCUmount = function(Latter: Byte): Longint;

Answer 2

long PThread = StartTSC(PService, "\\.\" & Trim(Text1.Text) & ":", 1, CInt(Trim(Text2.Text)), 0, 100)
多谢biekvn，这还有一句调用方式也请帮防疫一下。

Answer 3

PThread := StartTSC(PService,'\\.\'+Trim(Text1.Text)+':',1,strtoint(Text2.Text),0,100);我这样转了先去试试对不对。