1,185
社区成员




class function Base64DecodeImageFile(fileName: string; encodeStr: AnsiString): boolean;
var
bts: TBytes;
ms :TMemoryStream;
decoder: TIdDeCoderMIME;
begin
decoder := TIdDeCoderMIME.Create(nil);
ms := TMemoryStream.Create();
try
bts := decoder.DecodeBytes(encodeStr);
ms.Write(bts[0],Length(bts));
ms.SaveToFile(fileName);
result := true;
except
result := false;
end;
decoder.Free;
ms.Free;
end;