请问如何将JPG转换问十六进制字符串,不考虑先将其转换为BMP处理

解决方案 »

  1.   

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

  2.   

    Base64加密一下就可以了