发现个delphi调用vc写的Dll中包含pchar参数报错奇怪现象
2015-06-04 15:10
579 查看
发现个delphi调用vc写的Dll中包含pchar参数奇怪现象
procedure中的第一行语句不能直接调用DLL的函数,否则会运行报错,在之前任意加上条语句就不报错了奇怪!
vc的DLL源码地址 http://blog.csdn.net/lqena/article/details/46357165
Delphi源码如下:
procedure中的第一行语句不能直接调用DLL的函数,否则会运行报错,在之前任意加上条语句就不报错了奇怪!
vc的DLL源码地址 http://blog.csdn.net/lqena/article/details/46357165
Delphi源码如下:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) btn1: TButton; procedure btn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} function GetStr(s:PChar):PChar; stdcall; external 'MyDLL.dll'; procedure TForm1.btn1Click(Sender: TObject); var p :PChar; s:string; begin s:='123'; //procedure中的第一行语句不能直接调用GetStr,否则会运行报错,加上这行语句不报错了奇怪 p:= GetStr('63024823'); //接收必须是PChar,如果String可以编译通过,但运行报错 ShowMessage(p); end; end.
相关文章推荐
- FREEBASIC 编译可被python调用的dll函数示例
- Delphi实现http发送xml文件片段
- DLL(Dynamic Linkable Library) 详解说明
- Delphi实现毫秒级别的倒计时实例代码
- Delphi7中Listview的常用功能汇总
- 插件管理框架 for Delphi(一)
- delphi中一个值得大家来考虑的DLL问题
- Delphi实现检测并枚举系统安装的打印机的方法
- delphi 正弦曲线图
- Delphi下OpenGL2d绘图之画四边形的方法
- Delphi实现木马文件传输代码实例
- delphi建立、读取、存贮INI文件的方法《三》
- Delphi控件ListView的属性及使用方法详解
- Delphi下OpenGL2d绘图之画点的方法
- Delphi下OpenGL2d绘图之初始化流程详解
- Delphi实现窗体感知鼠标滑过并自动隐藏与显示窗口的方法
- Delphi实现截屏存盘的方法
- Delphi实现碰撞球体完整实例代码