procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then png := TPngObject.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) div 2); HexToBin(PChar(str), stream.Memory, stream.Size); png.LoadFromStream(stream); stream.Free; end; function Png2Hex(png: TPngObject): string; var stream: TMemoryStream; begin stream := TMemoryStream.Create; png.SaveToStream(stream); SetLength(Result, stream.Size * 2); BinToHex(stream.Memory, PChar(Result), stream.Size); stream.Free; end; function bmp2Hex(out bmp: TBitmap):string; var stream: TMemoryStream; begin stream := TMemoryStream.Create; bmp.SaveToStream(stream); SetLength(Result, stream.Size * 2); BinToHex(stream.Memory, PChar(Result), stream.Size); stream.Free; end; procedure Hex2bmp(str: string; out bmp: TBitmap); var stream: TMemoryStream; begin if not Assigned(bmp) then bmp := TBitmap.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) div 2); HexToBin(PChar(str), stream.Memory, stream.Size); bmp.LoadFromStream(stream); stream.Free; end; //十六进制字符串转入byte数组 1 function Hex2Byte(sRandomPwd:String):TByteArr; var Buf:TByteArr; begin SetLength(Buf, Length(sRandomPwd) div 2); // HexToBin(PAnsiChar(sRandomPwd), @Buf[0], Length(sRandomPwd) div 2); //HexToBin(PChar(sRandomPwd), @Buf[0], Length(sRandomPwd) div 2); HexToBin(PAnsiChar(sRandomPwd), @Buf[0], Length(sRandomPwd) div 2); Result:=buf; end; //自定义函数，转换十六进制数为十进制数 function HexToInt(Hexa: string): LongWord; const ValoresHexa: array['A'..'F'] of integer = (10, 11, 12, 13, 14, 15); var nDecimal: LongWord; nIndex: byte; begin nDecimal := 0; Hexa := Uppercase(Hexa); for nIndex := Length(Hexa) downto 1 do if Hexa[nIndex] in ['0'..'9'] then nDecimal := nDecimal + StrToInt(Hexa[nIndex]) * Trunc(Exp((Length(Hexa) - nIndex) * ln(16))) else nDecimal := nDecimal + ValoresHexa[Hexa[nIndex]] * Trunc(Exp((Length(Hexa) - nIndex) * ln(16))); Result := nDecimal; end; //十六进制字符串转入byte数组 2 function Hex2Byte2(sRandomPwd:String):TByteArr; var Buf:TByteArr; i:Integer; begin sRandomPwd := StringReplace(sRandomPwd,' ', '',[]); if ((Length(sRandomPwd) mod 2) <> 0) then begin sRandomPwd := sRandomPwd+' '; end; i:= Trunc(Length(sRandomPwd)/2); SetLength(Buf,i); for i := 0 to Length(Buf)-1 do begin Buf[i]:=HexToInt(Copy(sRandomPwd,i*2+1,2)); end; Result:=Buf; end; //byte数组转入十六进制字符串1 function Byte2Hex(arrByte:TByteArr):string; var stream: TMemoryStream; begin stream := TMemoryStream.Create; stream.Write(arrByte[0],Length(arrbyte)); SetLength(Result, stream.Size * 2); BinToHex(stream.Memory, PChar(Result), stream.Size); stream.Free; end; //byte数组转入十六进制字符串2 function Byte2Hex2(arrByte:TByteArr):string; var i:integer; begin for i:=0 to length(arrByte)-1 do begin Result := Result + Copy( IntToHex(arrByte[i],16),15,2) end; end; procedure TForm1.btnHex2PngClick(Sender: TObject); var png: TPngObject; begin png := TPngObject.Create; Hex2Png(Memo1.Text, png); Canvas.Draw(0, 0, png); png.Free; end; procedure TForm1.btnPng2HexClick(Sender: TObject); var png: TPngObject; begin png := TPngObject.Create; png.LoadFromFile('dyc.png'); Memo1.Text := Png2Hex(png); png.Free; end; procedure TForm1.btnBmp2HexClick(Sender: TObject); var bmp: TBitmap; begin image1.Picture.Bitmap.SaveToFile('2.bmp'); bmp := TBitmap.Create; bmp.LoadFromFile('2.bmp'); Memo1.Text := bmp2Hex(bmp); bmp.Free; end ; procedure TForm1.btnHex2BmpClick(Sender: TObject); var bmp: tbitmap; begin bmp := tbitmap.Create; Memo1.Text:=StringReplace(Memo1.Text,#13,'',[]); Memo1.Text:=StringReplace(Memo1.Text,#10,'',[]); Hex2bmp(Memo1.Lines.GetText,bmp); Canvas.Draw(1, 1, bmp); bmp.Free; end; procedure TForm1.btnByte2HexClick(Sender: TObject); var m:TMemoryStream; b:TByteArr; begin m:=TMemoryStream.Create(); Image1.Picture.Bitmap.SaveToStream(m); m.Position:=0; SetLength(b,m.size); m.ReadBuffer(b[0],m.Size); Memo1.Text:=Byte2Hex2(b);//或者Memo1.Text:=Byte2Hex2(b); end; procedure TForm1.btnHex2ByteClick(Sender: TObject); var m:TMemoryStream; b:TByteArr; bmp:TBitmap; begin b:=Hex2Byte2(Memo1.text);//或者Hex2Byte2(Memo1.text); m:=TMemoryStream.Create; m.WriteBuffer(b[0],Length(b)); m.Position:=0; m.Seek(0,soBeginning); bmp:=TBitmap.Create; bmp.LoadFromStream(m); Canvas.Draw(0,0,bmp); end; 来源：博客园
作者：癫狂编程
链接：https://www.cnblogs.com/jijm123/p/11470755.html