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

Question

哪位高手帮一下忙啊.就是把图片(jpg,bmp)转换成十六进制,怎么转换啊??有点急,先谢谢各位了.
都困扰我好几天了,希望有这方面知识的朋友们来援助一下哦

Answer 1

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;

Answer 2

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);

Answer 3

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