我用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文件呢??
分不够再加。
http://delphi.about.com/cs/indy/
http://www.indyproject.org/Articles.html
http://www.indyproject.org/downloads/IndyFAQPDF.zip