delphi调VC＋＋
extern "C" __declspec(dllexport) long __stdcall Readcard(__int16 intcom, long baud,unsigned char *vskh, int *vlql, __int16 *vics,__int16 *viklx)
请问，这个在DELPHI里怎么定义
int *vlql, __int16 *vics,__int16 *viklx
主要是这三个该用什么类型与之对应。
我是这样定义的。
var vlql:integer;var vics,viklx:smallint
但是这样给我返回的值是有问题的。求解，谢谢各位。
function Readcard(intcom: SmallInt; baud: longint; vskh: PUCHAR; vlql: pinteger; vics: PSmallInt; viklx: PSmallInt): longint; stdcall;
external 'xxx.dll'
说错话了，PSmallInt在System中是有定义的，由于在帮助中没有搜索到还以为没有呢。
这样的话应该去掉
type
PSmallInt=^SmallInt;
这两行，这样与1楼的定义就一致了。
楼上方法行不通啊。
使用Pinteger和Psmallint的话，直接就报内存错误。
unsigned char * 用pchar
但是int* -> var X: Integer
__int16* -> var X: SmallInt
使用这两个返回的值是错的。动态库肯定是对的。就是不知道是那个地方的参数错了。
PUCHAR = ^Byte; //在windows有定义
你pinteger是怎么赋值的？
不行改成这样，你应该是地址没赋值对问题
function Readcard(intcom: SmallInt; baud: longint; vskh: PUCHAR; var vlql: integer; var vics: SmallInt; var viklx: SmallInt): longint; stdcall;
external 'xxx.dll'
谢谢各位已经搞定了。正确的是
var vlql:integer;var vics,viklx:smal
相关问答：
我在模块里自定义了一个函数:stradd()
可是在adoquery1.sql.add('select stradd(author) from book');
时提示stradd未定义...
这个问题有什么办法可以解决的吗? 非常感激!
(在A ......
这个是拦截按键消息并测试是否为ENTER键。
begin
case wParam of
WM_KEYDOWN:
fEatKeystroke := (p.vkCode = VK_RETURN);
& ......
我咋这么痴迷Delphi呢？哎，散分消愁。
顺便希望Delphi 2010 Update2早点bug-free...
sf
多谢，DELPHI新手，请多关照
jf
引用
多谢，DELPHI新手，请多关照
人人都是新手，只有这样心态才 ......
手头有一个老的产品，delphi 6连接oracle,取sys.aud$系统表里面的数据
用Adoconnection+adodataset,
用system用户，Adoconnection 连接成功，但如果在adodataset里面写:
SELECT * from SYS.AUD ......
unit TestRa;
interface
uses
type
var
implementation
创建一个form系统自动生成这几个关键字！
1.他们之间有什么关联吗？
2.系统对他们是如何定义的？
3.delphi语言体系结构是怎么 ......
