将一个Base64字符串转换成jpg图片的方法

假定字符串存储在文本里，如a.txt，转换结果将图片存储在a.jpg，delphi实现代码如下，须应用EncdDecd unit，代码在Delphi6下编译通过：

varsl:Tstringlist;buf:string;begin  sl:=TStringList.Create;  sl.LoadFromFile('d:\a.txt');  buf:=string(sl.GetText);  buf:=DecodeString(buf);  sl.Clear;  sl.Add(buf);  sl.SaveToFile('d:\a.jpg');  sl.Free ;end;

Xe2上不通过，原因不知道，水平有限。