我用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 xe2 firemonkey 和c#的 WPF做个比较?
- DELPHI里面用QuickRep控件打印效果与打印预览不一致
- 如何实现在程序中禁用串口和USB口
- 摆在小弟面前的难题,急急!!!请指教!关于数据库的插值问题
- 有谁知道在EXCEL表中查找一条记录时能否根据条件直接定位!急
- 一般年初时到几月份之前工作机会比较多呢???>>>>
- 如何打开一个帮助文件
- 如何控制窗体不能谁意托动,且大小也固定呢??
- delphi6+sql2000在数据库连接(用BDE)时遇到怪问题,请看........
- 如何只允许用户在文本框中输入数字?(菜鸟 ^-^)
- 如何解决分辨率的问题?
- 关于dbgrid的问题
fm: TFileStream;
sl: TStringList;
s: String;
i: Integer;
begin
sl := TStringList.Create;
sl.LoadFromFile('c:\tupian.text');
for i:=0 to sl.Count-1 do
begin
if sl[i] <> '' then
s := s + sl[i];
end;
fm := TFileStream.Create('c:\tupian.gif',fmCreate);
IdDecoderMIME1.DecodeToStream(s,fm);
fm.Free;
sl.free;
end;