请问,如何将JPG文件转换为十六进制字符串! 请问如何将JPG转换问十六进制字符串,不考虑先将其转换为BMP处理 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ......procedure TForm1.Button1Click(Sender: TObject);var MS:TMemoryStream; sHex:string; iSize:Integer;begin MS:=TMemoryStream.Create; try MS.LoadFromFile('c:\1.jpg'); iSize:=MS.Size; MS.Position:=0; SetLength(sHex,iSize*2); //sHex里面保存的就是转换结果 BinToHex(PChar(MS.Memory),PChar(sHex),iSize); MS.Clear; MS.WriteBuffer(sHex[1],length(sHex)); MS.SaveToFile('c:\1.txt'); finally MS.Free; end;end; Base64加密一下就可以了 ASCII碼轉字符的函數是哪個? D7怎么做office2003风格的工具条? mysql中time类型和delphi中的时间类型怎么兼容 请教:线程中调用一函数,要等到这函数执行完毕才允许其它线程(包括主线程)运行,可以做到吗? 有没有人想过这个问题? sql语句问题 <The Tomes of Delphi:Algorithms and Date Struchures>中文版海淀图书城有卖吗? 整样变掉窗口标题的字体? 同志们,老问题,新问,对于我来说是技术难题,不是什么错误,请帮帮忙!!! DELPHI6对中文支持不好,怎么办? delphi设计模式问题 这两句怎么理解?
var
MS:TMemoryStream;
sHex:string;
iSize:Integer;
begin
MS:=TMemoryStream.Create;
try
MS.LoadFromFile('c:\1.jpg');
iSize:=MS.Size;
MS.Position:=0;
SetLength(sHex,iSize*2);
//sHex里面保存的就是转换结果
BinToHex(PChar(MS.Memory),PChar(sHex),iSize);
MS.Clear;
MS.WriteBuffer(sHex[1],length(sHex));
MS.SaveToFile('c:\1.txt');
finally
MS.Free;
end;
end;