您的位置：程序门 -> delphi -> game，图形处理/多媒体

如何把一张图片转换成16位编码

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

如何把一张图片转换成16位编码

发表于：2007-09-23 19:22:29 楼主

如何把一张图片转换成16位编码
如这样
0000010001002020000001002000a81000001600000028000000200000004000
000001002000000000008010000000000000000000000000000000000000ffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff
ffff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d
7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d
7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d
7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dff7d7d7dffffffffffffff
ffff000000ff572001ff572001ff582001ff582001ff582001ff572001ff5820
01ff582001ff581f01ff582001ff592001ff5f2302ff602303ff5e2302ff5e23
03ff612504ff5e2202ff612504ff602504ff5f2404ff5f2404ff5e2303ff5d22
03ff622605ff5e2304ff5f2404ff612505ff602505ff7d7d7dffffffffffffff
ffff000000ff582101ff582001ff582001ff582001ff582001ff592001ff5820
01ff582001ff5d2203ff592102ff5a2101ff642b0dff652b0cff632605ff5e23
03ff602404ff622605ff662807ff692b09ff6c2d0aff692a08ff5f2404ff5e24
04ff622706ff612505ff602505ff622706ff622606ff7d7d7dffffffffffffff
ffff000000ff582103ff5c2303ff602504ff5f2404ff5e2404ff5b2304ff5c23
04ff5a2203ff5e2404ff5d2608ff643f2aff93847dff826f65ff614231ff5132
22ff541f03ff592203ff662a09ff692c0bff652908ff5e2505ff572002ff5720
02ff562002ff572002ff572002ff572002ff632808ff7d7d7dffffffffffffff
ffff000000ff5f2506ff622707ff6b2d0aff672b09ff5d2406ff5b2304ff5723
06ff56311dff6d4e3eff988b83ffc0bbb9ffdadadaff969696ff848382ff6961
5dff5d2a0dff5f2707ff6c2f0dff6d300eff682d0cff5c2405ff5b2305ff5d24

发表于：2007-09-24 09:31:441楼得分:0

var
buf:array[0..15]of byte;
f: file;
str:string;
numread,i: integer;
begin
if not opendialog1.ＥＸＥＣute then exit;
memo1.lines.beginupdate;
memo1.lines.clear;
assignfile（f, opendialog1.filename);
reset（f, 1);
repeat
fillchar（buf,sizeof（buf),0);
blockread（f, buf, sizeof（buf), numread);
str:='';
for i:=low（buf) to high（buf) do
str:=str + inttohex（buf[i],2)+' ';
memo1.lines.add（ str );
until （numread = 0);
memo1.lines.endupdate;
closefile（f);
end;

发表于：2007-09-24 09:42:062楼得分:0

代码你自己看个好几种编解码格式都有，收藏吧

szcodebasex.zip v.1.3.3

http://www.torry.net/authorsmore.php?id=5726

下一篇：有偿寻求定制一个长篇文本转gif图片的组件
上一篇：有人能帮忙吗？已经做好的exe程序如何完整修改窗体大小？

其他资讯