要从SYBASE的image字段里存取图片,应该怎么做?有DELPHI的代码示例就太好了。
   多谢了!

解决方案 »

  1.   

    Query1.parambyname(image_field).Assign(Image1.);
      

  2.   

    procedure TForm1.Button3Click(Sender: TObject);
      var
        B: TBitmap;
      begin
        B := TBitmap.Create;
        try
          B.LoadFromFile('c:\delphi\images\splash\16color\athena.bmp');
          DBImage1.Picture.Assign(B);
        finally
          B.Free;
        end;
      end;
    ///////////////////////////////////////////////////////////
    var
      st: TStringStream;
    begin
      st := tstringstream.create('');
      bitmap.savetostream(st);
      query1.sql.text := 'insert into table Image_field values :bmp';
      query1.parambyname('bmp').asblob := st.datastring;
      query1.execsql;
      st.free;
    end;
      

  3.   

    to  del_c_sharp(摩托~◎~◎~◎) 
     那怎么样取图片呢?