本文整理自网络，侵删。
前几天有个朋友问我这个问题：有段编码字符要转为图片，问我怎么实现？其实凭经验大多数人第一时间想到的就是这是base64编码，告知后但对方就是没法解，没办法啊，好人做到底，动手给对方写个demo，利用indy自带的TIdEncoderMIME和TIdDecoderMIME来完成该过程。关键代码如下：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdCoder, IdCoder3to4, IdCoderMIME, IdGlobal,
StdCtrls, ExtCtrls, jpeg, pngimage;
type
TForm1 = class(TForm)
IdEncoderMIME1: TIdEncoderMIME;
Button1: TButton;
IdDecoderMIME1: TIdDecoderMIME;
Image1: TImage;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
LSrcStream, LDesStream: TMemoryStream;
LPic: TPngImage;
begin
LSrcStream := TMemoryStream.Create;
try
LDesStream := TMemoryStream.Create;
try
LSrcStream.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.txt');
IdDecoderMIME1.DecodeBegin(LDesStream);
IdDecoderMIME1.Decode(LSrcStream);
IdDecoderMIME1.DecodeEnd;
LDesStream.Position := 0;
LPic := TPngImage.Create;
try
LPic.LoadFromStream(LDesStream);
Image1.Picture.Assign(LPic);
finally
LPic.Free;
end;
LDesStream.SaveToFile(ExtractFilePath(ParamStr(0)) + '1.jpg');
finally
FreeAndNil(LDesStream);
end;
finally
FreeAndNil(LSrcStream);
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
LSrcStream, LDesStream: TMemoryStream;
begin
LSrcStream := TMemoryStream.Create;
try
LDesStream := TMemoryStream.Create;
try
LSrcStream.LoadFromFile(ExtractFilePath(ParamStr(0)) + '1.jpg');
IdEncoderMIME1.Encode(LSrcStream, LDesStream);
LDesStream.SaveToFile(ExtractFilePath(ParamStr(0)) + '1.txt');
finally
FreeAndNil(LDesStream);
end;
finally
FreeAndNil(LSrcStream);
end;
end;
end.
窗体文件就不贴了，遇到该问题的可以参考下，Delphi高版本里完成的！
相关阅读 >>
Delphi关闭程序close,application.terminate与halt区别
Delphi 用idhttp打开网页或下载文件时如何显示进度
Delphi 使用twebbrowser组件保存网页为html和mht文件
更多相关阅读请进入《Delphi》频道 >>
