Variant类型转换成byte数组时出错,急求解决啊

roy456myth 2012-06-19 12:53:24
正在工地调试,急求大家帮忙啊。。。。
var
StrF:String;
i_Count,i:Integer;
ValueF:Variant;
Rev: Array of byte;
RevF:Array[0..30] of byte;
BChar:Array[0..1] of Char;
F,R:real;
begin

StrF:='';
Comm5.Output:=commandtext;
Sleep(2000);
i_Count:=Comm5.InBufferCount;
sleep(500);
ValueF:=Comm5.Input; //ValueF的值为 :020001+3781.0+2452.A
sleep(500);

for i:=0 to i_Count-1 do begin
RevF[i]:=Valuef[i]; //在这里出错了
BChar[0]:=Chr(RevF[i]);
StrF:=StrF+StrPas(BChar);
end;


检测到错误类EVariantinvalidArgError,错误信息 ‘Invalid argument’
...全文
181 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
newfang 2012-06-19
  • 打赏
  • 举报
回复
楼主是把那玩意做为一个字符串来使用的?
那就先做一下类型强转就可以了吧。

RevF[i]:=string(Valuef)[i];
xxfly 2012-06-19
  • 打赏
  • 举报
回复
如果用的是MSComm,可以直接用 Array Of Byte;

Procedure TCommMSComm.OnComm(Sender: TObject);
Var
lAryBuf: Array Of Byte;
lBufLength: Integer;
Begin
Case FCommBase.CommEvent Of
comEvReceive:
Begin
lBufLength := FCommBase.InBufferCount;
lAryBuf := FCommBase.Input;

If Assigned(FOnRecvData) Then
OnRecvData(lAryBuf, lBufLength);

End;
end;
End;
看那山瞧那水 2012-06-19
  • 打赏
  • 举报
回复
无效值转成数值出错,要先检查再转

function VarToInt(const V:Variant):Integer;
begin
if TVarData(V).VType <> varNull then
Result:=V
else
Result:=0;
end;
roy456myth 2012-06-19
  • 打赏
  • 举报
回复
有人帮忙看看没
在Windows 10或Windows 11操作系统中,用户经常会遇到共享打印机出现的一系列错误代码,这些错误代码可能会阻碍打印机共享功能的正常使用。常见的错误代码包括0x00000057、0x00000709和0x0000011b,这些代码通常指出了不同的问题,比如权限不足、服务未运行或配置错误等。除此之外,还有一些故障提示如“连接失败”或“内存不足”,这些都可能影响到打印机共享的稳定性。 要解决这些故障,首先要确保打印机已经正确地连接到网络,并且在需要共享的电脑上进行了设置。确保打印机驱动程序是最新的,并且在共享设置中没有错误配置。对于权限问题,需要检查网络上的用户账户是否具有足够的权限来访问共享打印机。同,也要确保打印机服务正在运行,特别是“Print Spooler”服务,因为这是打印机共享服务的核心组件。 在某些情况下,问题可能与操作系统的更新有关,如升级到最新版的Windows 10或Windows 11后可能出现的兼容性问题。这,可能需要查看微软的官方支持文档来获取特定的解决方案或更新。 对于错误代码0x00000057,这通常是由于没有足够的权限来访问网络打印机或其共享资源,解决方法是确保网络打印机的权限设置正确,包括在组策略中设置相应的访问权限。而0x00000709错误可能是由于打印机驱动问题或打印机端口配置错误,可以尝试重新安装或更新打印机驱动来解决。至于0x0000011b错误,这往往是因为打印机队列服务的问题,检查并重启“Print Spooler”服务通常是解决这类问题的常见手段。 至于“连接失败”或“内存不足”这类故障,通常与客户端和打印机之间的网络连接以及打印机本地资源的使用情况有关。检查网络连接,确保打印机所在的网络段没有故障或中断。同,如果打印机的打印队列长间得不到处理,可能会导致内存不足的情况,这可能需要清理打印队列或增加打印机的内存配置。 为了帮助用户更快速地解决这些问题,市面上出现了各种打印机共享错误修复工具。这些工具往往通过预设的修复程序来自动检测和修正打印机共享中常见的问题。它们可以快速检查打印机驱动、网络连接以及共享设置,并且能够提供一键修复功能,大幅减少了用户自行排查和解决问题的难度。 然而,在使用这些修复工具之前,用户应确保这些工具的来源是安全可靠的,避免因使用不当的修复工具而引发其他系统安全或隐私问题。用户可以到官方平台或者信誉良好的软件提供商处下载这些工具。通过细心检查打印机的共享设置,及更新驱动程序和服务,以及合理使用修复工具,大多数共享打印机的问题都可以得到有效的解决

5,928

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧