哪位高手帮一下忙啊.就是把图片(jpg,bmp)转换成十六进制,怎么转换啊??有点急,先谢谢各位了.

[gou_xp]

哪位高手帮一下忙啊.就是把图片(jpg,bmp)转换成十六进制,怎么转换啊??有点急,先谢谢各位了.


都困扰我好几天了,希望有这方面知识的朋友们来援助一下哦

[madyak]

什么意思呀,转换成十六进制字符串吗?
一个字节一个字节的转换就行了呀

[gou_xp]

怎么转啊?给一个函数,谢谢了

[madyak]

procedure TForm1.Button1Click(Sender: TObject);
var
c: array of Char;
i: Integer;
p: PByte;
Stream: TMemoryStream;
begin
Stream := TMemoryStream.Create;
Stream.LoadFromFile('D:\1.bmp');
SetLength(c, 2 * Stream.Size);
p := Stream.Memory;
for I := 0 to Stream.Size - 1 do
begin
Move(IntToHex(P^, 2)[1], C[I * 2], 2);
Inc(p);
end;
//转换完成 结果在C数组里。
Stream.Free;
end;

[肥仔胧]

function BufferToHex(const Buf; BufSize: Cardinal): string;
var
I: LongInt;
begin
Result := '';
for I := 0 to BufSize - 1 do
Result := Result + IntToHex(TByteArray(Buf)[I], 2);
end;

定义个Var Temp:TMemoryStream;
Temp.LoadFromFile('jpg,bmp文件');
BufferToHex(Temp.Memory, temp.Size);

[jackdaniel01]

学习了……

[山东蓝鸟贵薪]

其实，你在窗体中加入一个 图片控件，将图片载入后
再用记事本打这个DRM中就可以看到 图片数据了