Delphi源码，图片转base64及base64转图片函数

function BaseImage(fn: string): string; function FileToBase64(FileName: string): string; function InmageToBase64(AImage:TImage): string; function Base64ToImage(const base64:string;AImage:TImage):Boolean; function Base64ToImageFile(const base64:string;AImagefile:string):Boolean; function CheckImgTypeBase64(abase64:string):string;