关于对SQL-SERVER2000进行图片存取的问题

Question

procedure Tfrminfo1.Button3Click(Sender: TObject); 
 var MyFormat : Word;
    AData :cardinal;
    APalette : hpalette;
  pblob1:TAdoBlobstream;
  pJ1:TjpegImage;
begin
if(ADOQuery1.Fields[10].asstring<>'')then
begin
str:=ADOQuery1.Fields[22].AsString;
pblob1:=Tadoblobstream.create(Tblobfield(ADOQuery1.FieldByName('Certificate')),bmRead);
pblob1.Position:=0;
pJ1:=TjpegImage.create;
pJ1.LoadFromStream(pblob1);
Image1.picture.Graphic:=pJ1;
pJ1.free;
end；
if((CheckBox16.Checked=true)and(Image1.picture<>nil))then
begin
Image1.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);
Clipboard.SetAsHandle(MyFormat,AData);
Fdoc.Sentences.Last.Paste;
end;
end;
请问我用“pblob1:TAdoBlobstream; pJ1:TjpegImage;Tadoblobstream.create时需要声明或者调用哪个单元函数？我现在需要把IMAGE1控件里边图片存入数据表中的某个字段，然后要查询时再可以显示到IMAGE1控件里边，那位大侠能给实例吗？谢谢

Answer 1

存储图片的代码：
 //存储图片
   MyJPEG := TJPEGImage.Create;
   try
    with MyJPEG do
    begin
      Assign(Image1.Picture.Graphic);
      MS:=TMemoryStream.create;
      SaveToStream(MS);
      MS.Position:=0;
      TBlobField(FieldbyName('图片')).LoadFromStream(MS);
    end;
   finally
    MyJPEG.Free;
   end;
   try
   Post;
   except
   showmessage('数据无法提交');读取图片的代码：
 if ef_adoquery.RecordCount<>0 then
        begin
        try
          tempstream:=TmemoryStream.Create();
          //将图像字段保存到流中
          TBlobField(mainform.ef_ADOQuery.FieldByName('图片')).SaveToStream(tempstream);
          ////给留定位
          tempstream.Position:=0;  
          //省城临时image
          tempjpeg:=TJPEGImage.Create;
          //存留信息
          tempjpeg.LoadFromStream(tempstream);
          //显示图像
          Image1.Picture.Bitmap.Assign(tempjpeg);
        finally
          tempstream.Free;
          tempjpeg.Free;
        end;
        end;

Answer 2

如何用SQL语句中插入图片.对于SQL Server有一个TextCopy的函数，具体请参考SQL Server的帮助
Copies a single text or image value into or out of SQL Server. The value
is a specified text or image 'column' of a single row (specified by the
"where clause") of the specified 'table'.
If the direction is IN (/I) then the data from the specified 'file' is
copied into SQL Server, replacing the existing text or image value. If the
direction is OUT (/O) then the text or image value is copied from
SQL Server into the specified 'file', replacing any existing file.
TEXTCOPY [/S [sqlserver]] [/U [login]] [/P [password]]
  [/D [database]] [/T table] [/C column] [/W"where clause"]
  [/F file] [{/I | /O}] [/K chunksize] [/Z] [/?]
  /S sqlserver       The SQL Server to connect to. If 'sqlserver' is not
                     specified, the local SQL Server is used.
  /U login           The login to connect with. If 'login' is not specified,
                     a trusted connection will be used.
  /P password        The password for 'login'. If 'password' is not
                     specified, a NULL password will be used.
  /D database        The database that contains the table with the text or
                     image data. If 'database' is not specified, the default
                     database of 'login' is used.
  /T table           The table that contains the text or image value.
  /C column          The text or image column of 'table'.
  /W "where clause"  A complete where clause (including the WHERE keyword)
                     that specifies a single row of 'table'.
  /F file            The file name.
  /I                 Copy text or image value into SQL Server from 'file'.
  /O                 Copy text or image value out of SQL Server into 'file'.
  /K chunksize       Size of the data transfer buffer in bytes. Minimum
                     value is 1024 bytes, default value is 4096 bytes.
  /Z                 Display debug information while running.
  /?                 Display this usage information and exit.
You will be prompted for any required options you did not specify.
CREATE PROCEDURE sp_textcopy (
  @srvname     varchar (30),
  @login       varchar (30),
  @password    varchar (30),
  @dbname      varchar (30),
  @tbname      varchar (30),
  @colname     varchar (30),
  @filename    varchar (30),
  @whereclause varchar (40),
  @direction   char(1))
AS
DECLARE @exec_str varchar (255)
SELECT @exec_str =
         'textcopy /S ' + @srvname +
         ' /U ' + @login +
         ' /P ' + @password +
         ' /D ' + @dbname +
         ' /T ' + @tbname +
         ' /C ' + @colname +
         ' /W "' + @whereclause +
         '" /F ' + @filename +
         ' /' + @direction
EXEC master..xp_cmdshell @exec_str
This is the example to copy image into SQL Server database pubs, table pub_info, column name logo from picture.bmp file where pub_id='0736': 
sp_textcopy @srvname = 'ServerName',
            @login = 'Login',
            @password = 'Password',
            @dbname = 'pubs',
            @tbname = 'pub_info',
            @colname = 'logo',
            @filename = 'c:\picture.bmp',
            @whereclause = " WHERE pub_id='0736' ",
            @direction = 'I'

Answer 3

textcopy方便倒是方便,只是假如我的图片文件与数据库不在同一台电脑就用不了了.