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的操作。