c++builder delphi 调用dll dll编写
c++builder动态调用dll
// 定义
typedef int __stdcall MyFunction (int x, char *str); int rtn = ;
String dllName = "XXXX.dll";
HINSTANCE hInstance = LoadLibrary(dllName.c_str());
MyFunction * pMyFunction = (MyFunction*) GetProcAddress(hInstance, "rdcompany"); // 函数名称要正确
if (pMyFunction == NULL)
{
// 提示
} rtn = pMyFunction(, "aa");
FreeLibrary(hInstance);
hInstance = NULL;
C++builder的dll导出类
// Enable RTTI generation for private fields
#pragma explicit_rtti fields(private) class __declspec(delphiclass) TBuffer {
private:
int wrHead, rdHead; // ...
public:
TBuffer() { }
};
http://docwiki.embarcadero.com/RADStudio/Berlin/en/Delphi_RTTI_and_C++Builder
c++导出函数
extern "C" __declspec(dllexport) int __stdcall fun();
静态调用
extern "C" __declspec(dllimport) int __stdcall test();
根据dll生成lib文件
cmd命令后
implib E:\MYDEV\CRT_310.lib E:\MYDEV\CRT_310.dll
implib CRT_310.lib CRT_310.dll
调用的工程里添加lib文件或者#pragma link "CRT_310.lib"
这里HANDLE 是typedef void *HANDLE;
typedef HANDLE APIENTRY CommOpenWithBaut(char *Port, BYTE _BaudOption);
delphi静态调用dll
function Write_DF02(ucSFI: byte; wFileLen: Word; pucData: PByte): integer; stdcall external 'my.dll';
procedure Set_Path(pchPath: PAnsiChar); stdcall external 'my.dll';
const
UrlMonLib = 'URLMON.DLL'; function CreateURLMoniker; external UrlMonLib name 'CreateURLMoniker';
function readCardInfo_json():PAnsiChar;stdcall; external 'test.dll' ;
function readCardInfo_json():PAnsiChar;stdcall; external 'test.dll' name 'readCardInfo_json_myname';//函数别名
pansichar参数返回
name: array[0..50] of AnsiChar;
age:integer;
money:double;
fun(name,@age,@money);
fun(name,age,money);
用 name:TArray<AnsiChar>; 应该也可以。就是麻烦,定义和分配2行代码。
setlength(name,50);
二、delphi动态调用dll
//函数原型生命
type
Taddc = function: TStringList; stdcall;
TGetCPUID = function(CPUID: PAnsiChar): integer; stdcall; //注1
//
var
hh: THandle;
addc: Taddc;
GetId: TGetCPUID;
temp: TStringList;
i: Integer;
begin
hh := LoadLibrary('DLL.dll');
try
if hh = then
begin
ShowMessage('load error');
exit;
end;
//装载方法
@addc := GetProcAddress(hh, PChar('testStr'));
GetId := GetProcAddress(hh, pchar('GetCPUID')); //invoke
GetId();
if not (@addc = nil) then
begin
addc;
end
else
begin
RaiseLastWin32Error;
end;
finally
FreeLibrary(hh);
end;
delphi Berlin版本 如何给PAnsiChar赋值?
StrCopy(value, PAnsiChar(AnsiString(kvalue)));
因为是UnicodeString,所以必须先进行AnsiString转换。
#define DLLEXPORT_API extern "C" _declspec(dllexport)
dll函数导出 改名别名
delphi太简单了
procedure a(); stdcall;
begin end; exports
a name '@$xp$20Controls@TAnchorKind';
function InitCommExt(): Integer; stdcall;
c++builder找不到方法
http://toby.logdown.com/posts/220527/c-builder-define-dll-export-function-names-using-def-file
DetectCard(ComHandle: THANDLE; var CardType: Byte; var CardInfor: Byte): Integer; stdcall; external 'aa.dll'; dll调用,引用地址 var
CardType: Byte;
CardInfor: Byte;
rec := DetectCard(CHandle, CardType, CardInfor);
c#调用dll的函数别名
[DllImport("test.dll", EntryPoint= "myfun")] public static extern int myfun_KP(StringBuilder connstr);//
FillChar( readdata, SizeOf( readdata ), 0 );
c++builder delphi 调用dll dll编写的更多相关文章
- Delphi 调用C# DLL(包含委托)
例子 C# Dll: using System; using System.Collections.Generic; using System.Text; using System.Diagnosti ...
- delphi 调用c#dll
public interface iProduct { string Buy(); } [ClassInterface(ClassInterfaceType.None)] public class P ...
- Delphi调用C# 编写dll动态库
Delphi调用C# 编写dll动态库 编写C#dll的方法都一样,首先在vs2005中创建一个“类库”项目WZPayDll, using System.Runtime.InteropServices ...
- Delphi 调用C# 编写的DLL方法
近来,因工作需要,必须解决Delphi写的主程序调用C#写的dll的问题.在网上一番搜索,又经过种种试验,最终证明有以下两种方法可行: 编写C#dll的方法都一样,首先在vs2005中创建一个“ ...
- Delphi 7调用C语言编写的DLL
DLL一定是要C语言导出的符号,也就是extern “C”. 当然,我们都知道DLL调用分为动态调用和静态调用. 动态调用的一般思想为,先LoadLibrary那个你想加载的DLL,然后通过GetPr ...
- Delphi 使用之dll文件生成与调用
DLL是Dynamic-Link Libraries(动态链接库)的缩写,库里面是一些可执行的模块以及资源(如位图.图标等).可以认为DLL和EXE基本上是一回事,只是DLL不能直接执行,而必须由应用 ...
- Delphi 中的DLL 封装和调用对象技术(刘艺,有截图)
Delphi 中的DLL 封装和调用对象技术本文刊登2003 年10 月份出版的Dr.Dobb's 软件研发第3 期刘 艺摘 要DLL 是一种应用最为广泛的动态链接技术但是由于在DLL 中封装和调用对 ...
- Java调用C/C++编写的第三方dll动态链接库(zz)
这里主要用的方法是JNI.在网上查资料时看到很多人说用JNI非常的复杂,不仅要看很多的文档,而且要非常熟悉C/C++编程.恐怕有很多人在看到诸如此类的评论时已经决定绕道用其他方法了.本文将做详细的介绍 ...
- 关于在VB.NET中调用使用VC++编写的类库dll的一点笔记
前言 结对作业要求一出来,我就立刻想到了把“计算核心”封装成dll,然后使用vb.net编写UI调用dll的思路.然而在实现过程中却遇到了很多的问题. 我在这个过程中是负责使用vb.net编写UI并调 ...
随机推荐
- C# List 排序
(转自:http://www.cnblogs.com/bradwarden/archive/2012/06/19/2554854.html) 第一种:实体类实现IComparable接口,而且必须实现 ...
- 自定义音频条形图--p52
package com.zzw.qunyingzhuan2; import android.content.Context; import android.graphics.Canvas; impor ...
- Python基础学习(第2天)
第三课:序列(sequence) 1.序列是一种有顺序的元素的集合 序列可以包含1个或多个元素,也可以不包括任何元素: 序列中的元素可以是[基础数据类型]中任一种,也可以是[别的序列]. s1 = ( ...
- 【python】使用asyncore进行异步通信
参考博文:http://blog.csdn.net/livefun/article/details/8721772 参考博文:https://www.cnblogs.com/tomato0906/ar ...
- java中常用的帮助类。加快开发速度
数据库帮助类 package com.cwnu.uitl; import java.sql.*; /** * 数据库基础操作实现类 * * @author BlackWinter * * @date ...
- Markdown速成班
更多内容请参考: http://ibruce.info/2013/11/26/markdown/
- 单项选择RadioButton和多项选择CheckBox的使用
在Android中,可以通过RadioButton和RadioGroup的组合来实现单项选择的效果.而多项选择则是通过CheckBox来实现的. 1.单项选择RadioButton 我们知道,一 ...
- MySQL auto_increment介绍 以及 查询和修改auto_increment的方法
一.auto_increment使用方法 .创建table时设置auto_increment属性和初始值100 create table nonove ( id bigint unsigned not ...
- Epoll 实例
服务端调试: [test@cs2 epoll]$ g++ epoll_server.cpp -o epoll_server -lpthread [test@cs2 epoll]$ ./epoll_se ...
- HDU - 6129 :Just do it (杨辉三角)
There is a nonnegative integer sequence a 1...n a1...n of length n n . HazelFan wants to do a type ...