delphi向SQL Server2005中存取图片

SQL Server2005中，我用image类型来存取图片，首先把数据库表设置好

例如我的pic表有如下两列：时间，图片。

delphi中，我用ADOQuery来连接数据库，但是数据库中有好几张表，我只往其中一张表里存图片。

首先将摄像头传来的jpeg图片存入文件中，将路径设为全局变量以供后续使用。（当然你也可以用现成的jpeg图片）

function/procedure 存入图片过程

var

    strmDB: TMemoryStream;

begin

   strmDB:= TMemoryStream.Create;
   TMemoryStream(strmDB).LoadFromFile(sLocate1);//此处sLocate1为文件路径 
   with ADOQuery1 do

    begin

          Close;

          SQL.Clear;

          SQL.Text:='INSERT INTO pic  VALUES('''+DateTimeToStr(Now)+''',  :a) ';

          Parameters.ParamByName('a').LoadFromStream(strmDB, ftBlob);

          ExecSQl;    

    end;

    strmDB.Free;

end;

读取过程

strmDB := tadoblobstream.Create(tblobfield(fieldbyname('图片')),bmread);
   

这是关键一句，前提是按你自己的条件打开pic这张表，再操作，如果提示找不到‘图片’这一列之类的错误，请务必将你的sql代码放到SQLServer2005上去试一下

就知道哪里出错了，经常是没有运行open之类的句子就进行fieldbyname的操作。