怎样使用Spcomm控件发送十六进制数???
解决方案 »
- 磕求C/S源码
- Delphi dbchart 的问题
- 关于记事本的问题!
- 在DELPHI怎么样控制SQL SERVER2000的启动、停止。怎么样读取SQL SERVER2000服务器的名称
- 程序执行后把主窗口隐藏了!(执行后窗口不可见,编码时窗口可见)如何加个Message窗口,再执行后说明程序已经运行?
- 如何使Panel控件响应拖拽?在线等待,100分
- 看看这段代码吧???
- DBGrid自动更新数据问题。
- 高分求Delphi源码,求好书。
- TechnoFantasy(www.applevb.com)!快来!把你的资料寄给我!
- 资料寻求,望知情者答复~~~~
- 关于TShell的问题,来者有分
var
s2:string;
buf1:array[0..50000] of char;
i:integer;
begin
s2:='';
for i:=1 to length(s) do
begin
if ((copy(s,i,1)>='0') and (copy(s,i,1)<='9'))or((copy(s,i,1)>='a') and (copy(s,i,1)<='f'))
or((copy(s,i,1)>='A') and (copy(s,i,1)<='F')) then
begin
s2:=s2+copy(s,i,1);
end;
end;
for i:=0 to (length(s2) div 2-1) do
buf1[i]:=char(strtoint('$'+copy(s2,i*2+1,2)));
Comm1.WriteCommData(buf1,(length(s2) div 2));
end;