5,386
社区成员
发帖
与我相关
我的任务
分享对照片进行base64编码，解码
对照片进行base64编码，先用TIdEncoderMIM编码，然后用TIdDecoderMIME解码，为什么解出来的为空
...全文
请发表友善的回复…
发表回复
Hedonism 2004-01-07
- 打赏
- 举报
关注，
blueshrimp 2004-01-07
- 打赏
- 举报
我也有兴趣学一下
zswangII 2004-01-07
- 打赏
- 举报
//ts.WriteBuffer(ts,ts.Size); //这条语句去掉试试～～
aabb0281 2004-01-07
- 打赏
- 举报
代码大概如下，现在可以解码出来，但是解出来的照片比以前的大了一倍，怎么办？
var
fs:TfileStream;
str:string;
ts:Tfilestream;
begin
fs:=TfileStream.Create('c:\pic1.JPG',fmOpenreadWrite);
str:=idEncoderMIME1.Encode(fs);
fs.Destroy;
ts:=TFileStream.Create('c:\pic2.jpg',fmCreate);
idDecoderMIME1.DecodeToStream(str,ts);
ts.WriteBuffer(ts,ts.Size);//用这条语句输出的pic2比pic1大了一倍，ts.size div 4096就可以了，为什么？
ts.Destroy;
end;
var
fs:TfileStream;
str:string;
ts:Tfilestream;
begin
fs:=TfileStream.Create('c:\pic1.JPG',fmOpenreadWrite);
str:=idEncoderMIME1.Encode(fs);
fs.Destroy;
ts:=TFileStream.Create('c:\pic2.jpg',fmCreate);
idDecoderMIME1.DecodeToStream(str,ts);
ts.WriteBuffer(ts,ts.Size);//用这条语句输出的pic2比pic1大了一倍，ts.size div 4096就可以了，为什么？
ts.Destroy;
end;
aabb0281 2004-01-07
- 打赏
- 举报
谢谢： zswangII(伴水清清)(职业清洁工) 。
zswangII 2004-01-06
- 打赏
- 举报
其他文件可以吗？～～
具体代码贴出来看看～～
具体代码贴出来看看～～
mxk19791116 2004-01-06
- 打赏
- 举报
UP
