易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi 转 bcb - C++ Builder / 基础类

function ReadTime(intDevno: Integer; var strGet: Pchar): Integer; stdcall; external 'ast.dll'; //读取日期时

bcb调用delphi 的dll这句在bcb中如何转化。
应该是C/C++ code:
int __stdcall ReadTime(int intDevno, char *strGet);


C/C++ code:

void __fastcall TForm1::FormCreate(TObject *Sender)
{
int (__stdcall *ReadTime)(int intDevno,char strGet);
HINSTANCE hInst=::LoadLibrary( "ast.dll ");
if(!hInst)
{
ShowMessage( "Failed to load library ");
return;
}
else
{
ReadTime= (int(__stdcall*)(int intDevno,char strGet))GetProcAddress(hInst, "ReadTime ");
if(!ReadTime)
{
ShowMessage( "Failed to locate the function you specified ");
}
else
{
ReadTime(10,'a');
}
FreeLibrary(hInst);
}

}



引用

C/C++ code

void __fastcall TForm1::FormCreate(TObject *Sender)
{
int (__stdcall *ReadTime)(int intDevno,char strGet);
HINSTANCE hInst=::LoadLibrary( "ast.dll ");
if(!hInst)
……
<


相关问答:

C/C++/MFC群 - VC/MFC / 非技术类

大家好,这是一个主要面向c/c++/mfc的群,最近进行了一次大清理,欢迎各位高手加入,好学爱问的新手,也可以申请的,申请格式 职业(c/c++/mfc 任选一或者多) 工作年限(学生直接写大几)就行了,入群的要求就是要 ......

c静态编译另一个文件夹的库函数 - C/C++ / C语言

在根目录/lib中存放一个log.c,log.h,并用下面的语句:
gcc -c log.c
ar crv liblog.a log.o
编译出一个liblog.a静态库,然后在文件夹:/testfile中创建一个test.c和testc.c,test.c中引用了testc.c中定义的方法 ......

ruby和MinGW的一次融合 - C/C++ / C++ 语言

希望给大家提供一些新的思路.
我们在使用C编程时会遇到一个问题,比如头文件的一个函数包含在一个lib 中,但是
在实际连接中我们不知道它在哪个库中。也许可行的一种办法是直接上网查询某个
函数的依赖条件,这对 ......

关于 tiny c 段错误的问题 - C/C++ / C语言

小弟最近在了解关于tiny c 的问题。在linux下准备安装。但安装完成后碰到了一些问题。希望大家能够帮忙解决。以下是安装完成后的执行步骤。
[student@localhost ~]$ tcc -v
tcc version 0.9.25
[student@localhos ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号