将文字和图，转成需要的格式 ( 积分: 200 )

哪位大哥，可以帮我写下呀！把图像和字转换成二进制和汇编的DB表。可以用TXT文本打开。

哪位大哥，可以帮我写下呀！把图像和字转换成二进制和汇编的DB表。可以用TXT文本打开。

两位的黑白的。刚忘说了。。

没人帮忙哟。。。哪里大哥可以帮下忙呀。急呀！

next proc from classes.pas
-----------
procedure BinToHex(Buffer, Text: PChar; BufSize: Integer);


example
-----------
{$APPTYPE CONSOLE}
uses
classes;

var
stream : TMemoryStream;
text : PChar;
begin
stream := TMemoryStream.create;
stream.LoadFromFile('c:/boot.ini');
stream.Position := 0;

GetMem(Text, stream.Size * 2);
BinToHex(stream.memory, text, stream.Size);
writeln(Text);
end.

我不能用QQ。另外，剩下的事情，你应该自己做了。