挑战——如何将一个图像存到数据库中

Question

将存放此图片的字段定义为Binary，然后将图片转成字符串，存放到数据库中；function PicToString(const APic: String): String;
begin
  with TFileStream.Create(APic, fmOpenRead) do
  try
    SetLength(Result, Size);
    Read(Pointer(Result)^, Size);
  finally
    Free;
  end;
end;

Answer 1

如果图像是文件，可以这样试一下：
if not (Query.State in [dsInsert, dsEdit]) then
Query1.Insert;
Query1Images.LoadFromFile('c:\Windows\Waves.bmp');
Query1.Post;

Answer 2

数据库的大字段如BLOB可以可以！