把 TBytes 转换为十六进制字符串
function BytestoHexString(ABytes: TBytes; len: Integer): AnsiString;
begin
SetLength(Result, len*);
BinToHex(@ABytes[], PAnsiChar(Result), len);
end;
例子:
客户端:
IdTCPClient1: TIdTCPClient;
Button1: TButton;
mmo1: TMemo;
procedure TForm4.Button1Click(Sender: TObject);
var
b:TBytes;
Len:Integer;
str:string;
begin
IdTCPClient1.Host:= '127.0.0.1';
IdTCPClient1.Port:= 8090;
if not IdTCPClient1.Connected then
IdTCPClient1.Connect;
if IdTCPClient1.Connected then
begin
IdTCPClient1.IOHandler.WriteLn('QUERYDATA');
mmo1.Lines.Add('向服务器发送:QUERYDATA') ;
try
IdTCPClient1.IOHandler.CheckForDataOnSource(250);//等待
Len:= IdTCPClient1.IOHandler.InputBuffer.Size;
IdTCPClient1.IOHandler.ReadBytes(b,len,false);
mmo1.Lines.Add('接收到:' +BytestoHexString(b,length(b)));
finally
IdTCPClient1.Disconnect;
end;
end;
end;
服务端
IdTCPServer1: TIdTCPServer;
Button1: TButton;
Memo1: TMemo;
procedure TForm4.Button1Click(Sender: TObject);
begin
if IdTCPServer1.Active then
IdTCPServer1.Active:= False;
IdTCPServer1.Bindings.Clear;
with IdTCPServer1.Bindings.Add do
begin
ip:= '0.0.0.0';
Port:= 8090;
end;
IdTCPServer1.DefaultPort:= 8090;
IdTCPServer1.Active:= True;
Memo1.Lines.Add('服务器监听已启动!')
end;
procedure TForm4.IdTCPServer1Execute(AContext: TIdContext);
var
Cmd:string;
b:TBytes;
begin
if not AContext.Connection.IOHandler.Connected then
begin
Exit;
end;
try
Cmd:= AContext.Connection.IOHandler.ReadLn;
Memo1.Lines.Add('接收到数据:'+Cmd);
if Cmd = 'QUERYDATA' then
begin
setlength(b,2);
b[0]:= 1;
b[1]:= 2;
AContext.Connection.IOHandler.Write(b);
Memo1.Lines.Add('发送:'+BytestoHexString(b,Length(b)));
end;
except
Exit;
end;
end;
把 TBytes 转换为十六进制字符串的更多相关文章
- 不使用C库函数(Sprintf)将void* 指针转换为十六进制字符串
#include <stdio.h> #include <stdint.h> #include <stdlib.h> void hexDump(void *ptr, ...
- 中文字符串转换为十六进制Unicode编码字符串
package my.unicode; import java.util.regex.Matcher; import java.util.regex.Pattern; public class Uni ...
- ios十进制、十六进制字符串,byte,data等之间的转换
十进制->十六进制 Byte bytes[]={0xA6,0x27,0x0A}; NSString *strIdL = [NSStringstringWithFormat:@"%@& ...
- jquery如何将获取的颜色值转换为十六进制形式
jquery如何将获取的颜色值转换为十六进制形式:大家或许已经注意到了,在谷歌.火狐和IE8以上浏览器中,获取的颜色值是RGB形式,例如rgb(255,255,0),感觉非常不适应,或者在实际编码中不 ...
- php urlencode函数 (中文字符转换为十六进制)
urlencode()函数原理就是首先把中文字符转换为十六进制,然后在每个字符前面加一个标识符%. urldecode()函数与urlencode()函数原理相反,用于解码已编码的 URL 字符串,其 ...
- iOS -- 十进制、十六进制字符串,byte,data等之间的转换
十进制->十六进制 Byte bytes[]={0xA6,0x27,0x0A}; NSString *strIdL = [NSStringstringWithFormat:]]]; 十六进制-& ...
- Java byte和hex十六进制字符串转换
在Java中字符串由字符char组成, 一个char由两个byte组成, 而一个byte由八个bit组成, 一个十六进制字符(0-F)实际上由4个字节byte即可表达, 因此, 从字节数组到十六进制字 ...
- 字符串、bute[]数组和十六进制字符串的相互转换
1.字符串转换成十六进制字符串 public static String str2HexStr(String str) { if (EncodingUtil.isEmpty(str)) { retur ...
- iOS 4s-6Plus屏幕自动适配及颜色转换为十六进制
iOS各种屏幕自动适配及颜色转换为十六进制 ★★★XLJMatchScreen自动适配屏幕★★★ 支持pod导入 pod 'XLJScreenMatching', '~> 1.0.3' 如果发现 ...
随机推荐
- oracle不能删除,查看引用的外键
例如我在删除scorm_course_info表中的某条数据时,会报已经找到子目录的错误,说明有另外的表B的某列b1外键引用了它,找到表B的b1列,可以通过如下的sql: select b.table ...
- 如何正确做 Web端压力测试?
一个完整的压力测试需要关注三个方面:如何正确产生压力.如何定位瓶颈.如何预估系统的承载能力. (1) 如何产生压力:产生压力的方法有很多,通常可以写脚本产生压力机器人对服务器进 ...
- eclipse 使用(一)单步调试
昨天终于将取数据的流程走通了.但是没有成功获得数据.原因是,把服务器中的数据库还原到了本地.而测试数据是写到了本地.把数据给覆盖了.早上来了之后,赶紧在服务器上把数据弄了一下. 之后开始跑代码. 项目 ...
- 使用yield关键字来提高性能
比如我们在开发当中往往会遇到这样的问题: public List<string> FindBobs(string [] names) { List<string> bobs ...
- activiti自定义流程之整合(六):获取我的申请任务
流程启动后,流程节点便进入到了任务相关的部分.可以看到我之前的做法是在启动节点就绑定了form表单,启动时就填写相关的数据.实际上在之前我的做法是不对开始节点做任何操作,知道任务节点的时候再填写相关的 ...
- mysql 的 infobright 数据库的 mediumblob 显示不了数据
需要修改mysql的配置文件: /var/www/html/phpmyadmin/config.inc.php 增加: $cfg['ProtectBinary'] = FALSE; 即可
- Asp.net MVC 之请求生命周期
今天主要试着描述一下ASP.NET MVC 请求从开始到结束的整个生命周期,了解这些后,对MVC会有一个整体的认识. 这里主要研究了MVC请求的五个过程. 1.创建RouteTable 当ASP.NE ...
- OAF_文件系列3_实现OAF多行表中附件功能AttachmentImage(案例)
20150727 Created By BaoXinjian
- window7下使用vagrant打造lamp开发环境(一)
前言: 公司电脑只有win7 + (xampp || wamp)开发,处于个人爱好,想学习下在最舒服的开发环境下开发,也不想安装双系统,想用Vmware电脑却配置不高,vagrant+virtual ...
- UIAutomator 编译
环境搭建 1.必备条件: 1.JDK 2.SDK(API高于15) 3.Eclipse(安装ADT插件) 4.ANT(用于编译生成jar) 2.简要步骤: 1.安装JDK并添加环境变 ...