www.whkt.net > 这句C语言在DElphi中如何实现?

这句C语言在DElphi中如何实现?

function JK_XYReadGuestCard(p_csRoomNo: PChar; p_csStartTime: PChar;var p_nTimeUnit: Integer; var p_nTimeLength: Integer; var p_nStopFlag: Integer; p_csCardNo: PChar): Integer;这里的LPSTR就是相当于字符指针,用delphi的PChar对应,int &这个数据类型可以由var ***:Integer来对应没测试过,字符型的如果不行可以用其他数据类型代替.

procedure TForm1.Button1Click(Sender: TObject);var a:integer;begina:=strtoint(Edit1.text); if a>0 THEN showmessage('A>0')else if a 评论0 0 0

可以的.你看一下下面这段话(转载自 Essential Pascal):记录类型中允许包含variant 域,它表示多个域能公用同一内存区,而且域可以是不同类型(这相应于C语言中的联合union).换句话说,你可以通过variant 域或说是一组域访问记录中

1function JK_XYReadGuestCard(p_csRoomNo:PChar; p_csStartTime:PChar; var p_nTimeUnit:integer; var p_nTimeLength: integer; p_nStopFlag: integer; p_csCardNo:PChar): Integer;stdcall;external '你的dll名称.dll' name 'JK_XYReadGuestCard';cdecl 还是 stdcall 要看你c中是如何定义的

技术实现 如何逐步实现动态库的加载,类型的匹配,动态链接库函数导出的定义,参考下面宏定义即可: #define libexport_api extern "c" __declspec(dllexport) 第一步,我先从简单的调用出发,定义了一个简单的函数,该函数仅仅实现一个整数加法求和: libexport_api int mysum(int a,int b){ return a+b;}

把C程序编成Extenal形式的DLL就可以

C 语言的头文件,如果要在 delphi 里使用,需要进行转换成 pas 文件.

WELL_STATUS_NOSAVE ='NOSAVE\r\n';#$D 换成\r#$A 换成\n

delphi 比较容易实现

#define f(x,y) x**2+y**3/100今后在法度榜样中就可以用f(x,y)代替烦琐的表达式.如安在delphi 实现这一功能?在c中可以用预编译子令实现代码的可读性,如:新同伙,不好意思,今朝很穷!

网站地图

All rights reserved Powered by www.whkt.net

copyright ©right 2010-2021。
www.whkt.net内容来自网络,如有侵犯请联系客服。zhit325@qq.com