假定字符串存储在文本里,如a.txt,转换结果将图片存储在a.jpg,delphi实现代码如下,须应用EncdDecd unit,代码在Delphi6下编译通过:
var
sl: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上不通过,原因不知道,水平有限。