在SQLSEVER中有Image字段，如何用Delphi添加图片？

Question

1、
var 
    jp:TJepgImage;    jp:=TJpegImage.Create;
    jp.LoadFromFile(filename);
    Image1.Picture.Bitmap.Assign(jp)
2、在BDE中改一下Blob的大小，却省为32k.

Answer 1

缺省delphi是不支持jpg格式的图片的，现在uses后面加上jpeg，然后就可以定义jpeg类型的文件了，jpeg1：TJPEGImage；然后使用jpeg1将文件load进来再存入数据库就可以了。

Answer 2

可以用TBlobField.
var  T: TBlobField;
begin
  Query1.Close;
  T := TBlobField.Create(Self);
  T.FieldName := 'Images';
  T.Name := Query1.Name + T.FieldName;
  T.Index := Query1.FieldCount;
  T.DataSet := Query1;
  Query1.FieldDefs.UpDate;
  Query1.Open;end;