使用MSComm控件发送命令字的问题 命令字是$FE,如何发送?如果写成MSComm.Output := Byte($FE);会发生错误;但是MSComm.Output := Char($FE);的话也容纳不下,迷惑中……到底如何发送? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 你可以先将FEH转换为十进制的数DMSComm.Output := Byte(D); 用variantVarArrayCreate來放你的$FE 我这就一个Byte,数组怎么定界?varArrayCreate([0, ?], varVariant) 再靠……这样写function TForm1.ConvertData(Data: Byte): OleVariant;var rst: OleVariant;begin rst := varArrayCreate([0,0], varByte); rst[0] := Byte(Data);end;居然还是抛出“非法属性值”异常,怎么搞得? MSComm.Output := Chr($FE);试试 ,或者MSComm.Output := #$FE; 这样写:var tv:variant; otv:olevariant;begin tv := $EF; otv := tv; mscomm1.output := otv;end; 有点小难度(高分相送) listview控件问题!!! 新手提问:一个关于三层分布式数据库开发的问题 ***********关于WINDOWS的任务栏*********** 我想打开excel文件,下面的为什么不行?该怎样改? 关于列举共享文件夹的问题? 我想做一个类似“BT搜宝”的工具,链接到其它网站,然后把其网站上的内容(或搜索内容)保存在数据库中,请各位有经验或有兴趣的朋友指点 如何用D6来访问MYSQL,ODBC方式除掉,唉 数据库问题。 怎样得到当前被添加记录的ID号? 求标准条形码字体! 子类丢事件的问题
VarArrayCreate
來放你的$FE
varArrayCreate([0, ?], varVariant)
这样写
function TForm1.ConvertData(Data: Byte): OleVariant;
var
rst: OleVariant;
begin
rst := varArrayCreate([0,0], varByte);
rst[0] := Byte(Data);
end;居然还是抛出“非法属性值”异常,怎么搞得?
var tv:variant;
otv:olevariant;
begin
tv := $EF;
otv := tv;
mscomm1.output := otv;
end;