把 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' 如果发现 ...
随机推荐
- 线段树(segment tree)
线段树在一些acm题目中经常见到,这种数据结构主要应用在计算几何和地理信息系统中.下图就为一个线段树: (PS:可能你见过线段树的不同表示方式,但是都大同小异,根据自己的需要来建就行.) 1.线段树基 ...
- Python(SQLAlchemy-ORM)模块之mysql操作
一.SQLAlchemy简单介绍 SQLAlchemy是Python编程语言下的一款ORM框架,该框架建立在数据库API之上,使用关系对象映射进行数据库操作,简言之便是:将对象转换成SQL,然后使用数 ...
- [Linux] VirtualBox - 主机与虚拟机互通 - CentOS
使用VirtualBox的主机与虚拟机相互通信方法: (使用VirtualBox不要使用绿色版的,因为绿色版的没有安装虚拟网卡驱动,所以主机与虚拟机是不能相互通信的,切记) 1.设置已经安装好的操作系 ...
- Docker实践(3)—浅析device mapper的thin provision
thin provision是在 kernel3.2 中引入的.它主要有以下一些特点: (1)允许多个虚拟设备存储在相同的数据卷中,从而达到共享数据,节省空间的目的: (2)支持任意深度的快照.之前的 ...
- Android Programing 学习笔记(一)
最近学习android 开发,拜读android programing,一步一步学习.囫囵吞枣,现已看到第十八章.今天把最近的学习过程中学到的一些内容进行一下总结. 一:Fragment 和 Acti ...
- Spring学习 Ioc篇(二 )
5.spring依赖注入的方式 方法一:使用构造器方式进行注入 1.dao的类和接口 package com.cvicse.dao.impl; import com.cvicse.dao.Person ...
- SQL Server 2012将数据库备份到网络中的共享文件夹
把计算机computer1 中的数据库备份到计算机computer2(IP:192.168.0.130)中的一个共享文件夹下 在computer2中的F盘下建一个共享文件夹叫DBBackupShare ...
- Eclipse 配置Activiti插件
Eclipse 配置Activiti插件 我使用的是Eclipse LUNA 4.4.0 点击Eclipse上方工具栏[Help]选择[Install New Software] 在弹出的窗口点击[A ...
- 【uTenux实验】任务管理
任务就是一个无限循环.uTenux提供的任务管理功能是很强大的,包括建立和删除一个任务,启动或退出任务,取消一个任务的启动请求,改变任务的优先级和査询任务状态,使任务进人睡眠状态和唤醒状态,取消唤醒请 ...
- Angular(1)
1.设计原则 1.YAGNI 不要把未来需求引入当前工程 2.KISS keep it simple and stupid 语义化标记 合理注释 符合规定的命名 3.DRY(don't re ...