我用indy上的IdBase64Encoder对gif图片进行的base64编码,然后存在c:/tupian.text文件
procedure TForm1.Button1Click(Sender: TObject);
var
MyFileStream :TFileStream;
Buffer :String;
begin
memo1.Clear;
if openDialog1.Execute then
try
MyFileStream:=TFileStream.Create(openDialog1.FileName,fmOpenRead);
SetLength(buffer, MyFileStream.Size);
MyFileStream.Read(Buffer[1], MyFileStream.Size);
Buffer:=IdBase64Encoder1.CodeString(Buffer); //得到编码后的字符串
memo1.Lines.Add(Buffer);
finally
MyFileStream.Free; //eventually
end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
with SaveDialog1 do
if Execute then
begin
Memo1.lines.SaveToFile(Filename);
end
end;
我怎么从c:/tupian.text 中把编好的base64码,用IdBase64Decoder解码成二进制即还原成gif文件呢??
分不够再加。
procedure TForm1.Button1Click(Sender: TObject);
var
MyFileStream :TFileStream;
Buffer :String;
begin
memo1.Clear;
if openDialog1.Execute then
try
MyFileStream:=TFileStream.Create(openDialog1.FileName,fmOpenRead);
SetLength(buffer, MyFileStream.Size);
MyFileStream.Read(Buffer[1], MyFileStream.Size);
Buffer:=IdBase64Encoder1.CodeString(Buffer); //得到编码后的字符串
memo1.Lines.Add(Buffer);
finally
MyFileStream.Free; //eventually
end;end;procedure TForm1.Button2Click(Sender: TObject);
begin
with SaveDialog1 do
if Execute then
begin
Memo1.lines.SaveToFile(Filename);
end
end;
我怎么从c:/tupian.text 中把编好的base64码,用IdBase64Decoder解码成二进制即还原成gif文件呢??
分不够再加。
解决方案 »
- delphi加载窗体时忽略了一控件,如何再加载窗体时显示忽略的控件
- 三层,使用SocketConnection,连接时程序死机
- google事件——不可迷信跨國公司
- delphi能否调用lingo8.0
- 关于进程隐藏问题:远程线程注入方式
- 有关DBTreeView和数据库的问题?
- ★★书上的一道关于卡通控件的例子,无法运行!怎么回事,大虾救命啊!
- 有关INSERT 插入数据到ACCESS 数据库,为什么出错,急,急,急,菜鸟请教,马上给分
- 打印问题?请各位帮忙
- 在wise中什么是表示安装目录的?就象IS for delphi5中的<installdir>,我的数据库文件总放不进程序目录下的data中。
- 开个公司需要办什么手续??请详细点!!
- 为什么MIDAS中的应用服务器有时会有100%占用CUP的现象?
http://delphi.about.com/cs/indy/
http://www.indyproject.org/Articles.html
http://www.indyproject.org/downloads/IndyFAQPDF.zip