function SaveBlob(const FileName: string): string;
begin
if FileExists(FileName) then
begin
with TfileStream.Create(FileName, fmopenread) do
try
SetLength(Result, size);
read(pointer(Result)^, size);
finally
Free;
end;
end
else begin
Application.MessageBox('你选择的图片文件不存在!', '提示', MB_OK + MB_DEFBUTTON1 + MB_ICONInformation);
exit;
end;
end;