vc代码翻译成delphi

2006-11-14 01:50:05 195 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

避坑指南：在Linux服务器上用Conda安装antiSMASH 5.2.0（解决Jinja2报错和Matplotlib权限问题）本文详细介绍了在Linux服务器上使用Conda安装antiSMASH 5.2.0的避坑指南，重点解决了Jinja2报错和Matplotlib权限问题。通过创建专用conda环境、安装指定版本依赖包和配置缓存目录，帮助用户顺利完成antiSMASH的本地部署，适用于批量处理基因组分析任务。阅读详情

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);

...全文

手把手教你用PLECS仿真BUCK数字电源（含DSP代码实现）本文详细介绍了如何利用PLECS仿真软件与Visual Studio 2022搭建高保真数字电源开发环境，手把手指导从BUCK电路建模、编写硬件感知的C控制算法到参数调优的全过程。重点阐述了通过DLL接口实现软件在环仿真，模拟DSP的ADC/PWM时序，并将验证后的代码无缝迁移至TI C2000系列DSP，构建从仿真到固件的完整数字电源开发闭环，显著提升开发效率与一次成功率。阅读详情

zhongme_007

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

linzhengqun 2006-11-14

打赏
举报

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

linzhengqun 2006-11-14

打赏
举报

呵呵，对于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};

zhongme_007 2006-11-14

打赏
举报

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

zhongme_007 2006-11-14

打赏
举报

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);
}

chijingde 2006-11-14

打赏
举报

晕.......

仅仅是些声明

翻译过来有鸟用？

vc代码翻译成delphi

相关推荐