■■在广州从事软件开发或编程爱好者请进■■■ 一起干什么?大冷天的,请偶吃饭?[email protected] 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 to cul:你在哪个区?随便聊聊 我在天河上班,恰好也是程序员,恰好看到这贴子,恰好星期六有空,恰好...[email protected] 我没上班算不,呵呵,[email protected] delphi fans,有兴趣的联系吧,切磋切磋!也好找人问问题!:-)!请多关照![email protected] 有饭吃的话预埋我的份!!我星期六很有空哦!![email protected] 吃饭还不错,这几天冷,有兴趣的不妨去打边炉。[email protected] 吃饭还不错,这几天冷,有兴趣的不妨去打边炉。[email protected] 我没钱的呀。,qq不留了email是[email protected] 号称软件开发,其实做的是打杂。要怪就怪我太爱国了、居然选择了国有企业。那位葛葛帮我跳槽,必将为之马首是瞻,感激不尽!天河软件园。[email protected] 我在海印桥南,有个问题请帮忙:我有一delphi函数,需要调用两个外部函数(vb所写),但运行到da:= h*16 +l时总是得不到想要的值既DA值。请各位检查一下,问题出在哪里?谢谢!VB中声明:Private Declare Sub out_byte Lib "vbdll.dll" (ByVal port%, ByVal da%)//写一个bytePrivate Declare Function in_byte Lib "vbdll.dll" (ByVal port%) As Integer//读一个byte DELPHI中声明: procedure out_byte(port,dat:integer);external 'vbdll.dll';function in_byte(port:integer):integer;external 'vbdll.dll';函数:Function ad2118(channel:Integer):integer;var h,l,da:integer;begin out_byte(baseadd, channel); sleep(100); out_byte(baseadd+1, 1); sleep(500); h:= in_byte(baseadd + 2); //高位 sleep(50); l:= round(in_byte(baseadd+3)/16); //低位 da:= h*16 +l ; ad2118:= da ;End; to rainxy2000,Silent_Faquir:qq? 有开发项目合作可以找我。[email protected] 想稳工 delphi+SQL Server, 如有合适请找我[email protected] 庆祝阿三生日放分 如何使用扫描枪扫描条码 if 问题 怎么判断现在是否已在屏幕保护状态? 有活人吗?进来给分!现场提问,回答!!!! 清除问题 告诉大家StringGrid复杂表头的画法 delphi 中的一个简单的问题!! TEmBedWordX是那个dll下的?谁知道?难道没高手? 在网页中模拟键盘输入 怎么将求出和的值放入变量中,是SQL语句,请教! 请教一个有关登陆的问题
你在哪个区?
随便聊聊
[email protected]
[email protected]
[email protected]
[email protected]
[email protected]
email是[email protected]
[email protected]
我有一delphi函数,需要调用两个外部函数(vb所写),但运行到da:= h*16 +l时总是得不到想要的值既DA值。请各位检查一下,问题出在哪里?谢谢!VB中声明:
Private Declare Sub out_byte Lib "vbdll.dll" (ByVal port%, ByVal da%)//写一个byte
Private Declare Function in_byte Lib "vbdll.dll" (ByVal port%) As Integer//读一个byte
DELPHI中声明:
procedure out_byte(port,dat:integer);external 'vbdll.dll';
function in_byte(port:integer):integer;external 'vbdll.dll';函数:
Function ad2118(channel:Integer):integer;
var h,l,da:integer;
begin
out_byte(baseadd, channel);
sleep(100);
out_byte(baseadd+1, 1);
sleep(500);
h:= in_byte(baseadd + 2); //高位
sleep(50);
l:= round(in_byte(baseadd+3)/16); //低位
da:= h*16 +l ;
ad2118:= da ;
End;
qq?
[email protected]