Delphi Byte、PByte、TBytes的转换

最新推荐文章于 2024-04-24 16:48:15 发布
最新推荐文章于 2024-04-24 16:48:15 发布
阅读量2.1k 收藏
点赞数
分类专栏： delphi
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ozhy111/article/details/102799388
版权

PByte转TBytes：
    a:PByte;
    b:TBytes;
    b := TBytes(a);

PByte转Byte：其实就是指针操作
    a:PByte;
    b:Byte;
    b := a^;

Byte转PByte：也是指针操作
    a:Byte;
    b:PByte;
    b := @a;
 

 

procedure ByteToBytes(var FData: TBytes; const Bytes: PByte; const BytesLen: Integer);
begin
  SetLength(FData, BytesLen);
  Move(Bytes^, FData[0], BytesLen);
end;

Delphi与JAVA 互通AES文件加解密源码（支持D6-XE10)
wh445306
05-09 930
Delphi用的人越来越少 了，可用资源越来越少。有什么好的完整的代码我都尽量拿出来跟大家分享，部分内容也是来自互联网整理 Delphi代码： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,ElAES,math; type TForm1 = class(TForm) Button1:
delphi中String，PChar，PByte，Array of Char，Array of Byte 互相转换
07-21
delphi中String，PChar，PByte，Array of Char，Array of Byte 之间的互相转换
Delphi中把字节数组类型转换为TBytes
记录日常技术经验
03-26 976
TBytes本身就是字节数组类型，但有时候还是需要转换一下，简单做一下拷贝即可实现。
delphi十六进制字符串hex转byte数…
qizhanfeng的专栏
06-16 1373
procedure Hex2Png(str: string; out png: TPngObject); var <wbr>stream: TMemoryStream;</wbr> begin <wbr> if not Assigned(png) then png := TPngObject.Create;</wbr> <wbr>...
Delphi中Byte与其它数据类型之间的转换
细雨纷飞~~~
07-25 2804
//1. procedure TForm1.FormCreate(Sender: TObject); type TByteArr = array [0..1] of Byte; PByteArr = ^TByteArr; var Bytes: TBytes; buf,buf2: TByteArr; cmd,n_10: string; Len: Integer; ...
Delphi 读易语言DLl 读字节集
04-27
例如，易语言的“字节集”在Delphi中可能是“TBytes”或“array of Byte”。在Delphi的单元（Unit）文件中（如Unit1.pas），我们需要声明DLL函数的接口，这样Delphi就可以找到并调用它们。 下面是一个基本的示例，...
【Delphi程序员进阶】：高效转换16进制到10进制的5大技巧
本文针对Delphi编程语言中的16进制与10进制转换进行详细解析，旨在为Delphi程序员提供一套全面的转换方法和实践技巧。文章首先介绍了基本的转换函数及其使用，然后深入探讨了高级转换技巧和第三方库的应用。在后续...
Delphi 2010实现Socket发送结构体协议的方法
然后，将这个结构体实例转换为字节流（TBytes），以准备通过socket发送。 ```delphi var message: TMessageHeader; buffer: TBytes; begin message.MessageType := 1; // 假设1代表某种消息类型 message....
delphi 源代码 ，计算一串数据，每个字节间的异或校验
11-13
例如，我们可以先将数据加载到`TMemoryStream`，然后将其转换为`TBytes`数组，之后再调用上面的`CalculateXORChecksum`函数计算异或校验值。 总的来说，异或校验是一种实用且快速的错误检测方法，虽然不能检测出...
delphi pbyte 转 base64
05-25
delphi pbyte 转 base64
delphi流相互转换
05-18
MemoryStream与liststring与stringstream转换
Delphi下使用指针的简单总结
weixin_34186950的博客
10-07 255
由于最近公司太忙，好久没有更新我的BLOG了。原来想着写写关于HOOK驱动的文章，可是最后想想好久已经没有做驱动的东西了，怕写出来有错误，于是作罢。开发游戏也有一段时间了，发现使用DELPHI来开发网络游戏不了解DELPHI下指针的使用是完全不行的。所以今天我简单总结以下我使用DELPHI指针的心得。希望对大家有所帮助。 记得在大学学习C语言的时候在谭浩强编写的书中，关于指针一章的开始就说“指针...
delphi中处理OleVariant和TStream
xt_chaoji的专栏
10-20 5165
因为客户不知道从数据库中流字段到打开文档，编辑，再保存到数据库中流字段这个流程，这个流程涉及到了接口OpenDocumentWithStream和SaveToStream，而对应的VARIANT类型在delphi中展现为OleVariant，于是中间涉及到OleVariant转为TStream以及TStream转换为OleVariant，我写的一个例子如下： function   TForm1.
Delphi 动态数组 静态数组 以及 Tbytes 详解
02-04 4689
Delphi的数组 大家都知道 有动态数组和静态数组 一.动态数组=不定长 array of byte 对其操作需要 setlength先分配 然后赋值 优点：不需要提前预先定义长度 方便扩展 缺点：性能对比静态稍差因为成员操作需要频繁的申请 二.静态数组=定长 array [x..y] of byte 对其操作直接操作下标 因为已经预先分配了 优点：定长提前分配减少重定义长度 下标范围也就是从x到y 可以自定义 你可以定义从4到10 缺点：扩展不太方便 好了 现在就是Tbyt..
Delphi-string转pbyte的方法——Move函数！
LzwGlory的专栏
08-19 3290
var    s:string;    ps:Pchar;    b:pbyte;    len:integer; begin    s:=edit1.Text; //字符串    ps:=pchar(s); //转成pchar类型,    len:=length(s);//取字符串长度,占用多少字节    getmem(b,len);//申请内存,pchar,pbyte在使用前
delphi Pbyte 转化成 base64
u010893177的博客
05-25 508
转自 https://searchcode.com/codesearch/view/5602527/ unit Base64; interface uses windows; { Base64 encode and decode a string } function Base64Encode(src:pByte;len:integer):PAnsiChar; functi...
delphi中String，PChar，PByte，Array of Char，Array of Byte 转换
luoyanqing119的专栏
07-03 7672
delphi中String，PChar，PByte，Array of Char，Array of Byte 转换vars:string;pc:pchar;pb:pbyte;ac:array[1..100] of char;ab:array[1..100] of byte;i:integer;begin  s:=this is a t
int和byte数组相互转换详解
Billy_Zuo的博客
04-24 8079
将int数值转换为占四个字节的byte数组，如下/*** 将int数值转换为占四个字节的byte数组，(高位在前，低位在后的顺序)。* @param value 要转换的int值* @return byte数组*/return src;将占四个字节的byte数组转换为int数值/*** 将占四个字节的byte数组转换为int数值，(高位在前，低位在后的顺序)。* @param src 占四个字节的byte数组* @return int数值*/int value;
delphi2007 如何将Byte转换成string
最新发布
03-15
<think>好的，我现在需要在Delphi 2007中将Byte类型的数据转换为字符串。用户提供了几个相关的引用，我需要先仔细看一下这些引用，看看有没有相关的信息。 首先，引用[1]提到Delphi中的Char、PChar、PByte、Byte、String之间的转换，可能涉及到这些类型的转换方法。引用[2]展示了如何将string通过Move函数赋值给字节数组，其中用到了Move函数，这可能对反向转换有帮助。引用[3]提到使用AnsiString并用PChar转换，可能和Byte转字符串有关。引用[4]讨论了String类型的原理，可能帮助理解底层机制。 用户的问题是将Byte转换为String，比如单个Byte转成字符，或者多个Bytes转成字符串。在Delphi中，Byte是8位无符号整数，而字符串可能由AnsiChar或WideChar组成，取决于版本。Delphi 2007默认使用AnsiString，每个字符是AnsiChar（1字节）。因此，单个Byte可以转换为AnsiChar，再组合成字符串。 根据引用[2]，Move函数可以处理内存拷贝，但可能更适合字符串到字节数组的情况。而引用[3]提到用PChar转换AnsiString，可能这里可以借鉴。比如，将Byte转换为AnsiChar，然后赋值给字符串。 可能的步骤是： 1. 单个Byte转字符：使用Chr函数将Byte转换为AnsiChar，然后组合成字符串。 2. 多个Bytes转字符串：例如字节数组，可以通过SetString或循环处理每个Byte。 比如，示例代码可能像这样： var B: Byte; S: string; begin B := 65; S := Chr(B); // S becomes 'A' 或者对于字节数组： var Bytes: array of Byte; S: string; i: Integer; begin SetLength(Bytes, 3); Bytes[0] := 72; Bytes[1] := 101; Bytes[2] := 108; SetString(S, PAnsiChar(@Bytes[0]), Length(Bytes)); // 使用PAnsiChar指针 // 或者逐个转换 S := ''; for i := 0 to High(Bytes) do S := S + Chr(Bytes[i]); 需要注意的是，如果Byte数组包含Null字符（0），SetString可能提前终止，所以需要确保数据不含Null或处理这种情况。此外，Delphi 2007中的字符串是AnsiString，所以每个Byte对应一个字符。 另外，引用[2]中的Move函数用法是字符串转字节数组，反过来可能需要类似的方法，但更简单的是使用上述方法。此外，可能要考虑字符编码的问题，但如果是纯ASCII或单字节编码，Chr函数应该足够。 总结可能的转换方法： - 单个Byte用Chr。 - 多个Bytes用SetString或循环拼接。 - 使用PAnsiChar指针来处理字节数组。 然后需要验证这些方法是否正确，是否有例外情况，比如非ASCII的Byte如何处理，或者是否需要考虑内存对齐等问题。例如，使用SetString时，传入的指针是否正确，长度是否正确，是否包含终止符等。在Delphi中，AnsiString不以Null结尾，但使用PAnsiChar时可能需要确保长度正确。 另外，如果用户有字节数组需要转换为字符串，直接使用SetString并指定长度应该是可行的，例如： SetString(S, PAnsiChar(@ByteArray[0]), Length(ByteArray)); 但需要确保ByteArray是连续的，并且长度正确。对于固定长度的数组，比如array[0..7] of Byte，同样适用。 可能还需要处理当Byte为0的情况，这时候字符串会被截断，所以需要确认用户的数据是否包含0。如果不包含，SetString方法有效；如果包含，可能需要用其他方式，比如Base64编码，但用户的问题可能只需要直接转换。 因此，给出示例代码时应涵盖单个Byte和多个Bytes的情况，并说明注意事项。</think>在Delphi 2007中，将`Byte`类型转换为字符串（`String`）的核心是通过`Chr`函数将`Byte`转为`AnsiChar`，再组合为字符串。以下是具体方法及示例： --- ### **方法一：单个Byte转字符串** 使用`Chr`函数直接将`Byte`转换为对应的`AnsiChar`字符： ```delphi var B: Byte; S: string; begin B := 65; // ASCII码65对应字符'A' S := Chr(B); // S = 'A' end; ``` --- ### **方法二：字节数组转字符串** 若需将多个`Byte`（如数组）转换为字符串，可以通过以下两种方式实现： #### **1. 使用`SetString`直接转换** 通过内存指针操作高效转换，适用于连续且不含`Null`（`0`）的字节数组： ```delphi var Bytes: array of Byte; S: string; begin SetLength(Bytes, 3); Bytes[0] := 72; // 'H' Bytes[1] := 101; // 'e' Bytes[2] := 108; // 'l' // 使用SetString直接转换 SetString(S, PAnsiChar(@Bytes[0]), Length(Bytes)); // S = 'Hel' end; ``` #### **2. 循环拼接字符** 逐个转换并拼接，适用于需要动态处理或过滤特定值的场景： ```delphi var Bytes: array[0..2] of Byte; S: string; i: Integer; begin Bytes[0] := 72; Bytes[1] := 101; Bytes[2] := 108; S := ''; for i := Low(Bytes) to High(Bytes) do S := S + Chr(Bytes[i]); // S = 'Hel' end; ``` --- ### **注意事项** 1. **Null字符（`0`）处理** 若字节数组中包含`0`，`SetString`会将其视为字符串终止符，导致结果截断。此时建议用循环拼接或预处理数据。 2. **非ASCII字符** `Chr`函数按系统默认编码（如Windows-1252）转换，若需其他编码（如UTF-8），需额外处理[^3]。 3. **固定长度字节数组** 对`array[0..N] of Byte`类型，直接使用`@ArrayName[0]`获取指针： ```delphi var FixedBytes: array[0..7] of Byte; S: string; begin // 填充FixedBytes... SetString(S, PAnsiChar(@FixedBytes[0]), 8); // 长度为8 end; ``` --- ### **完整示例教程** ```delphi procedure ConvertByteToString; var SingleByte: Byte; ByteArray: array[0..2] of Byte; DynamicBytes: array of Byte; ResultStr: string; i: Integer; begin // 示例1：单个Byte转字符串 SingleByte := 65; ResultStr := Chr(SingleByte); // 'A' // 示例2：固定长度字节数组转字符串 ByteArray[0] := 72; // 'H' ByteArray[1] := 101; // 'e' ByteArray[2] := 108; // 'l' SetString(ResultStr, PAnsiChar(@ByteArray[0]), 3); // 'Hel' // 示例3：动态字节数组转字符串 SetLength(DynamicBytes, 3); DynamicBytes[0] := 119; // 'w' DynamicBytes[1] := 111; // 'o' DynamicBytes[2] := 114; // 'r' SetString(ResultStr, PAnsiChar(@DynamicBytes[0]), Length(DynamicBytes)); // 'wor' // 示例4：处理含Null的字节数组 ByteArray[0] := 72; // 'H' ByteArray[1] := 0; // Null字符 ByteArray[2] := 108; // 'l' ResultStr := ''; for i := 0 to 2 do if ByteArray[i] <> 0 then ResultStr := ResultStr + Chr(ByteArray[i]); // 'Hl' end; ``` --- ### **相关问题** 1. Delphi中如何将字符串转换为字节数组？ 2. 如何处理包含非ASCII字符的Byte到字符串转换？ 3. 在Delphi 2007中，`AnsiString`和`WideString`有何区别？[^4]
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值