我在'mydll'中封装了这样一个函数,在delphi中也成功调用了,这个readcardno 函数能被其他语法不同的编程语言调用吗?谢谢前辈们指点,如果不能,打个比方我想要它被VC++调用,这个函数应该怎么改造,再次谢谢!
function readcardno(var icdev,cardno:integer):integer;stdcall;export;
var
st,lengths,offset:integer;
data2:Array[0..256] of char;
begin
icdev:=ic_init(1-1,9600);
cardno:=12345 ;
offset:=29;
lengths:=3;
data2:='';
st:=srd_4442(icdev,offset,lengths,data2);
if st<>0 then
begin
showmessage(inttostr(st)+':read cardno error');
exit;
end ;
///////////////////////////////
end;
function readcardno(var icdev,cardno:integer):integer;stdcall;export;
var
st,lengths,offset:integer;
data2:Array[0..256] of char;
begin
icdev:=ic_init(1-1,9600);
cardno:=12345 ;
offset:=29;
lengths:=3;
data2:='';
st:=srd_4442(icdev,offset,lengths,data2);
if st<>0 then
begin
showmessage(inttostr(st)+':read cardno error');
exit;
end ;
///////////////////////////////
end;
解决方案 »
- 请问在三层结构程序中,客户端如何汇总全部仓库货品在某一段时间,期初数量,进货数量,出货数量,结余数量?
- @@@@@买手机 from 广州 where 手机 like '%水货' and 我不太懂行情@@@@@
- 怎样得到Excel当前工作表(Sheet)包涵数据的最大行、列数?
- 100分求助,请问自己编写组件时,如何设置组件在容器中的位置
- Delphi6中用那个函数获取字符ASCII值 ?? 急,在线等待
- 如何提取webbrowser当前页的标题,并截6个字赋给一个Tabsheet的caption?望大虾不吝赐教!
- 好东西,大家分享。(超强的Web 报表设计大师)
- 关于delphi 5 的序列号的问题!!!!
- 用.show显示窗体,好像每次都得先create窗体一次,而且不能紧跟.free 这是为什么?
- 如何delphi通过bde的sql link连接oracle数据库,是否要安装一个oracle客户端
- 如何让mdi主创体的背景变透明
- 各位大虾!如何将quickreport的预览镶嵌到窗体中?在线等!谢谢
var
st,lengths,offset:integer;
data2:Array[0..256] of char;
begin
icdev:=ic_init(1-1,9600);
cardno:=12345 ;
offset:=29;
lengths:=3;
data2:='';
st:=srd_4442(icdev,offset,lengths,data2);
if st<>0 then
begin
showmessage(inttostr(st)+':read cardno error');
exit;
end ;
///////////////////////////////
end;EXPORT
readcardno;在你的VC里直接调用倒入,然后调用就可以了啊