关于Pbytearray的问题，高分相送，大家一定要帮帮我。。

my12121 2003-04-17 10:51:50

我知道Tbytearray是一个byte数组，而pbytearray的定义是pbytearray:=^tbytearray,是Tbytearray的指针，我想问一下Pbytearray是一个指针数组嘛？要是用getmem()给它分配了内存空间，又用汇编直接往地址里存数，数据到底是放在了那里?应该怎么取出数据来阿？c:pbytearray; b[i]:=c[i]^对不对阿？

...全文

202 5 打赏收藏转发到动态举报

写回复

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

my12121 2003-04-17

打赏
举报

回复

谢谢阿，问题解决了。这样说来，Pbytearray还是一个指针数组阿。谢谢。。。

citytramper 2003-04-17

打赏
举报

回复

数据到底是放在了那里

--------------------------
数据放在堆里，具体位置不确定，不过它的首字节的地址是存在 c 里面的

citytramper 2003-04-17

打赏
举报

回复 1

你好象问过类似的问题，其实完全可以自己定义 byte 数组 MyByteArray:array of byte ，毕竟这个这个PByteArray是指向TByteArray的，而TByteArray又这么大。

citytramper 2003-04-17

打赏
举报

回复

c^ 就是一个TByteArray ，然后再用 [i]

citytramper 2003-04-17

打赏
举报

回复

Pbytearray 就是一个指向pbytearray的指针

TByteArray = array[0..32767] of Byte;

b[i]:=c^[i]

procedure GrayScale(const Image:TImage) var BytesPerScan: Integer iWidth, iHeight: Integer pScanLine: pByteArray R,G,B: Byte begin try BytesPerScan := Abs(Integer(Image.Picture.Bitmap.ScanLine[1])- Integer(Image.Picture.Bitmap.ScanLine[0])) except raise exception.create(‘Error’) end for iHeight := 0 to Image.Picture.Bitmap.Height - 1 do begin pScanLine := Image.Picture.Bitmap.ScanLine[iHeight] iWidth := 0 while(iWidth <= BytesPerScan - 1) do begin R := pScanLine^[iWidth + 2] G := pScanLine^[iWidth + 1] B := pScanLine^[iWidth + 0] pScanLine^[iWidth + 2] := Byte(Round(0.299 * R + 0.587 * G + 0.114 * B)) pScanLine^[iWidth + 1] := Byte(Round(0.299 * R + 0.587 * G + 0.114 * B)) pScanLine^[iWidth + 0] := Byte(Round(0.299 * R + 0.587 * G + 0.114 * B)) iWidth := iWidth + 3 end end Image.Refresh end

delphi中String，PChar，PByte，Array of Char，Array of Byte 之间的互相转换

array.SetAtGrow(0,0x28);//一帧开始0x24表示一个字节 array.SetAtGrow(1,m_addr);//从机地址一个字节 array.SetAtGrow(2,0xaa);//发送0xaa,一个字节 array.SetAtGrow(3,0x55);//发送0x55,一个字节 array.SetAtGrow(4,m_sendInfo);//发送服务用语等一个字节 array.SetAtGrow(5,m_action1);//起始动作一个字节 time=IntToBcd(m_time1); array.SetAtGrow(6,time);//起始时间一个字节bcd码 array.SetAtGrow(7,m_action2);//停留动作一个字节 time=IntToBcd(m_time2); array.SetAtGrow(8,time);//停留时间一个字节bcd码 array.SetAtGrow(9,m_action3);//结束动作一个字节 time=IntToBcd(m_time3); array.SetAtGrow(10,time);//结束时间一个字节bcd码 array.SetAtGrow(11,m_wordMode1);//字模生成方式一个字节 array.SetAtGrow(12,m_wordMode2);//字模发送方式一个字节 array.SetAtGrow(13,dotStyle);//16点阵 array.SetAtGrow(14,len);//第几行 strcount=GetDotMatrixStrsize(str); array.SetAtGrow(15,strcount);//发送的字符个数 for(i=0;iByteArray->GetSize(); array.SetAtGrow(array.GetSize(),datalen);//发送字模数据的字节数的低8位 array.SetAtGrow(array.GetSize(),datalen>>8);//发送字模数据的字节数的高8位 array.SetAtGrow(array.GetSize(),0x10);//发送字模数据长度和字模数据间加0x10 arraylen=array.GetSize(); for(i=0;iByteArray->GetSize();i++) array.SetAtGrow(arraylen+i,pByteArray->GetAt(i));//发送的字节数据

TArray is declared as "Array of Byte", as is TBytes. You missed a further very relevant type however, TByteArray (the type referenced by PByteArray). Being a pointer to TByteArray, PByteArray is

作者:lyboy99 e-mail:lyboy99@sina.com url: http://hnh.126.com给大家提供几个常用的转换方法和其转换函数希望可以对你有帮助1.HEX -> Integer2.2.Dec To HEX3.ASCII to HEX / math4.Binary to decimal=====================================

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章