盒子论坛 v2.1

m1:=FileToString(label6.Caption);
a1:=strToHexstr(m1);
b1:=HexStrToStr(a1);
StringToFile(b1,'c:\99.jpg');
在d2007里面可以转回来jpg，xe-安卓就图片损坏
我将那些16进制字符直接放到安卓里面，读出来转换也是坏的
----------------------------------------------
-

作者：

szlbz (秋风)	★☆☆☆☆	-
	盒子活跃会员

2023/8/17 11:38:01

2楼：

d2007编码是ansi,xe是utf8
----------------------------------------------
-

作者：

supermay (supermay)	★☆☆☆☆	-
	盒子活跃会员

2023/8/19 8:56:51

3楼：

直接用base64呀
----------------------------------------------
链接：https://pan.baidu.com/s/12jzmECYKhGCsHBxz8tmB6w 提取码：pelr --来自百度网盘超级会员V9的分享

作者：

pcplayer (pcplayer)	★☆☆☆☆	-
	普通会员

2023/8/19 11:53:08

4楼：

2 楼说的在理。同样是字符串，不同编码，最终处理结果不同。
----------------------------------------------
-

作者：

iamdream (银河恒久远，梦想无止境！)	★☆☆☆☆	-
	大贡献会员

2023/8/19 15:23:02

5楼：

你直接当二进制数据处理就没有问题，不要用字符串。高版本Delphi本身提供了BinToHex/HexToBin来操作二进制数据。
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……

作者：

sail2000 (小帆工作室)	★☆☆☆☆	-
	盒子活跃会员

2023/8/19 19:37:54

6楼：

真搞不懂，就一个base64编码的问题，偏要自己搞一套显得高大上？
----------------------------------------------
delphi 是兴趣，和工作无关，即使它倒闭。又不靠它 delphi 吃饭，怕甚？

作者：

tuesdays (Tuesday)	▲▲▲▲△	-
	普通会员

2023/8/19 23:12:16

7楼：

base64 长度增加4倍以上,
建议用json.
----------------------------------------------
delphi界写python最强, python界写delphi最强. 写自己的代码, 让别人去运行.

作者：

emailx45 (emailx45)	▲▲▲▲△	-
	普通会员

2023/8/20 8:41:36

8楼：

An alternative can be:

uses
  System.NetEncoding {TBase64Encoding.Base64String.Encode / Decode}
  System.ZLib {TZCompressionStream, TZDecompressionStream}

1 )  Converter BITMAP to BASE64 string  (  +/- ) = 1/3 + bitmap.size)
2 )  Compress this Base64 string using TZCompressStream
3 )  Save this data in your DB as strings =  until 90% < bitmap.size

3... 2... 1  = Bitmap uncompressed again!

without any data/quality loss

此帖子包含附件:

大小:44.1K

----------------------------------------------
The higher the degree, the greater the respect given to the humblest!RAD 11.3

信息

登陆以后才能回复