vc代码翻译成delphi

[zhongme_007]

int __stdcall OpenConnection(int *mCid,const char *mIpAddrOfServer,int mTcpPort,const char *mUserId,const char *mSubId,const char *mPassword);

int __stdcall OpenConnectionEx(int *mCid,const char *mIpAddrOfServer,int mTcpPort,const char *mUserIdEx,const char *mPassword,int mServerTimeOut,BOOL mTraceFlag);

int __stdcall SendFaxToServer(int mCid,const char *faxFileName,int priority,SSendTask sendTask[], int numOfTask,char *jobNo);

int __stdcall SendPHFaxToServer(int mCid,const char *faxFileName,int priority,SFZSendTask fzsendTask[], int numOfTask,char *jobNo);

int __stdcall QueryResultForNewRecvTasks(int mCid,int *numOfTasks);

int __stdcall PickResultRecvTask(int mCid,SResultRecvTask *mResultRecvTask,const char *mRecvDir);

int __stdcall CancelSendJob(int mCid,const char *mJobNo);
int __stdcall QueryResultForNewTasks(int mCid,int *numOfTasks);
int __stdcall PickResultTask(int mCid, SResultTask *resultTask);

[chijingde]

晕.......

仅仅是些声明

翻译过来有鸟用？

[zhongme_007]

typedef struct sSendTask
{
char CalledNumber[TELEPHONENUMBERLEN];
int TaskId;
}SSendTask;

typedef struct sFZSendTask
{
char CalledNumber[TELEPHONENUMBERLEN];
char GuestName[MAXGUESTNAMELEN];
char GuestCompany[MAXCOMPANYLEN];
int TaskId;
}SFZSendTask;



typedef struct su_time
{
unsigned short Year;
unsigned short Month;
unsigned short Day;
unsigned short Hour;
unsigned short Minute;
unsigned short Second;
}u_time;


typedef struct sResultTask
{
int TaskId;
u_time StartTime;
u_time EndTime;
int NumOfSendedPages;
int SendTimes;
int Result;
double BillingFee;
}SResultTask;

typedef struct sResultRecvTask
{
int TaskId;
char CallingNumber[TELEPHONENUMBERLEN];
u_time StartTime;
u_time EndTime;
int NumOfRecvPages;
int RecvResult;
char GuestSid[MAXSIDLEN];
char RecvFileName[RECVINFOLEN];
}SResultRecvTask;


extern "C"
{
int __stdcall OpenConnection(int *mCid,const char *mIpAddrOfServer,int mTcpPort,const char *mUserId,const char *mSubId,const char *mPassword);

int __stdcall OpenConnectionEx(int *mCid,const char *mIpAddrOfServer,int mTcpPort,const char *mUserIdEx,const char *mPassword,int mServerTimeOut,BOOL mTraceFlag);

int __stdcall SendFaxToServer(int mCid,const char *faxFileName,int priority,SSendTask sendTask[], int numOfTask,char *jobNo);

int __stdcall SendPHFaxToServer(int mCid,const char *faxFileName,int priority,SFZSendTask fzsendTask[], int numOfTask,char *jobNo);

int __stdcall QueryResultForNewRecvTasks(int mCid,int *numOfTasks);

int __stdcall PickResultRecvTask(int mCid,SResultRecvTask *mResultRecvTask,const char *mRecvDir);

int __stdcall CancelSendJob(int mCid,const char *mJobNo);
int __stdcall QueryResultForNewTasks(int mCid,int *numOfTasks);
int __stdcall PickResultTask(int mCid, SResultTask *resultTask);


int __stdcall CloseConnection(int mCid);

void __stdcall MakeUTime(CTime mTime,u_time &uTime);
}

[zhongme_007]

对不起，忘记结构的申明了，现在把结构申明也贴出来了，请翻译一下

[linzhengqun]

呵呵，对于C头文件，用工具就可以生成了。：
type
sSendTask = record
CalledNumber: Array[0..TELEPHONENUMBERLEN-1] of Char;
TaskId: Integer;
end {sSendTask};

type
sFZSendTask = record
CalledNumber: Array[0..TELEPHONENUMBERLEN-1] of Char;
GuestName: Array[0..MAXGUESTNAMELEN-1] of Char;
GuestCompany: Array[0..MAXCOMPANYLEN-1] of Char;
TaskId: Integer;
end {sFZSendTask};



type
su_time = record
Year: Word;
Month: Word;
Day: Word;
Hour: Word;
Minute: Word;
Second: Word;
end {su_time};


type
sResultTask = record
TaskId: Integer;
StartTime: U_TIME;
EndTime: U_TIME;
NumOfSendedPages: Integer;
SendTimes: Integer;
Result: Integer;
BillingFee: Double;
end {sResultTask};

type
sResultRecvTask = record
TaskId: Integer;
CallingNumber: Array[0..TELEPHONENUMBERLEN-1] of Char;
StartTime: U_TIME;
EndTime: U_TIME;
NumOfRecvPages: Integer;
RecvResult: Integer;
GuestSid: Array[0..MAXSIDLEN-1] of Char;
RecvFileName: Array[0..RECVINFOLEN-1] of Char;
end {sResultRecvTask};



function OpenConnection(var mCid: Integer;
const mIpAddrOfServer: PChar;
mTcpPort: Integer;
const mUserId: PChar;
const mSubId: PChar;
const mPassword: PChar): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


function OpenConnectionEx(var mCid: Integer;
const mIpAddrOfServer: PChar;
mTcpPort: Integer;
const mUserIdEx: PChar;
const mPassword: PChar;
mServerTimeOut: Integer;
mTraceFlag: Bool): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


function SendFaxToServer(mCid: Integer;
const faxFileName: PChar;
priority: Integer;
sendTask[]: SSENDTASK;
numOfTask: Integer;
jobNo: PChar): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


function SendPHFaxToServer(mCid: Integer;
const faxFileName: PChar;
priority: Integer;
fzsendTask[]: SFZSENDTASK;
numOfTask: Integer;
jobNo: PChar): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


function QueryResultForNewRecvTasks(mCid: Integer;
var numOfTasks: Integer): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


function PickResultRecvTask(mCid: Integer;
var mResultRecvTask: SRESULTRECVTASK;
const mRecvDir: PChar): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


function CancelSendJob(mCid: Integer;
const mJobNo: PChar): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};

function QueryResultForNewTasks(mCid: Integer;
var numOfTasks: Integer): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};

function PickResultTask(mCid: Integer;
var resultTask: SRESULTTASK): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};



function CloseConnection(mCid: Integer): Integer cdecl {$IFDEF WIN32} stdcall {$ENDIF};


procedure MakeUTime(mTime: CTIME;
var uTime: U_TIME) cdecl {$IFDEF WIN32} stdcall {$ENDIF};

[linzhengqun]

顺便介绍你一个工具：
headconv
到网上搜一下。