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 转换为十六进制字符串的更多相关文章

  1. 不使用C库函数(Sprintf)将void* 指针转换为十六进制字符串

    #include <stdio.h> #include <stdint.h> #include <stdlib.h> void hexDump(void *ptr, ...

  2. 中文字符串转换为十六进制Unicode编码字符串

    package my.unicode; import java.util.regex.Matcher; import java.util.regex.Pattern; public class Uni ...

  3. ios十进制、十六进制字符串,byte,data等之间的转换

    十进制->十六进制 Byte bytes[]={0xA6,0x27,0x0A}; NSString *strIdL  = [NSStringstringWithFormat:@"%@& ...

  4. jquery如何将获取的颜色值转换为十六进制形式

    jquery如何将获取的颜色值转换为十六进制形式:大家或许已经注意到了,在谷歌.火狐和IE8以上浏览器中,获取的颜色值是RGB形式,例如rgb(255,255,0),感觉非常不适应,或者在实际编码中不 ...

  5. php urlencode函数 (中文字符转换为十六进制)

    urlencode()函数原理就是首先把中文字符转换为十六进制,然后在每个字符前面加一个标识符%. urldecode()函数与urlencode()函数原理相反,用于解码已编码的 URL 字符串,其 ...

  6. iOS -- 十进制、十六进制字符串,byte,data等之间的转换

    十进制->十六进制 Byte bytes[]={0xA6,0x27,0x0A}; NSString *strIdL = [NSStringstringWithFormat:]]]; 十六进制-& ...

  7. Java byte和hex十六进制字符串转换

    在Java中字符串由字符char组成, 一个char由两个byte组成, 而一个byte由八个bit组成, 一个十六进制字符(0-F)实际上由4个字节byte即可表达, 因此, 从字节数组到十六进制字 ...

  8. 字符串、bute[]数组和十六进制字符串的相互转换

    1.字符串转换成十六进制字符串 public static String str2HexStr(String str) { if (EncodingUtil.isEmpty(str)) { retur ...

  9. iOS 4s-6Plus屏幕自动适配及颜色转换为十六进制

    iOS各种屏幕自动适配及颜色转换为十六进制 ★★★XLJMatchScreen自动适配屏幕★★★ 支持pod导入 pod 'XLJScreenMatching', '~> 1.0.3' 如果发现 ...

随机推荐

  1. oracle不能删除,查看引用的外键

    例如我在删除scorm_course_info表中的某条数据时,会报已经找到子目录的错误,说明有另外的表B的某列b1外键引用了它,找到表B的b1列,可以通过如下的sql: select b.table ...

  2. 如何正确做 Web端压力测试?

    ​    ​一个完整的压力测试需要关注三个方面:如何正确产生压力.如何定位瓶颈.如何预估系统的承载能力. ​    ​(1) 如何产生压力:产生压力的方法有很多,通常可以写脚本产生压力机器人对服务器进 ...

  3. eclipse 使用(一)单步调试

    昨天终于将取数据的流程走通了.但是没有成功获得数据.原因是,把服务器中的数据库还原到了本地.而测试数据是写到了本地.把数据给覆盖了.早上来了之后,赶紧在服务器上把数据弄了一下. 之后开始跑代码. 项目 ...

  4. 使用yield关键字来提高性能

    比如我们在开发当中往往会遇到这样的问题: public List<string> FindBobs(string [] names)   { List<string> bobs ...

  5. activiti自定义流程之整合(六):获取我的申请任务

    流程启动后,流程节点便进入到了任务相关的部分.可以看到我之前的做法是在启动节点就绑定了form表单,启动时就填写相关的数据.实际上在之前我的做法是不对开始节点做任何操作,知道任务节点的时候再填写相关的 ...

  6. mysql 的 infobright 数据库的 mediumblob 显示不了数据

    需要修改mysql的配置文件: /var/www/html/phpmyadmin/config.inc.php 增加: $cfg['ProtectBinary'] = FALSE; 即可

  7. Asp.net MVC 之请求生命周期

    今天主要试着描述一下ASP.NET MVC 请求从开始到结束的整个生命周期,了解这些后,对MVC会有一个整体的认识. 这里主要研究了MVC请求的五个过程. 1.创建RouteTable 当ASP.NE ...

  8. OAF_文件系列3_实现OAF多行表中附件功能AttachmentImage(案例)

    20150727 Created By BaoXinjian

  9. window7下使用vagrant打造lamp开发环境(一)

    前言: 公司电脑只有win7 + (xampp || wamp)开发,处于个人爱好,想学习下在最舒服的开发环境下开发,也不想安装双系统,想用Vmware电脑却配置不高,vagrant+virtual ...

  10. UIAutomator 编译

    环境搭建 1.必备条件: 1.JDK    2.SDK(API高于15)    3.Eclipse(安装ADT插件)    4.ANT(用于编译生成jar) 2.简要步骤: 1.安装JDK并添加环境变 ...