(query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.gif');
这个字段什么格式都可以保存了,你试试,用上面的。

解决方案 »

  1.   

    可以建一blob型字段,然后用updateblob
      

  2.   

    用内存流和Image,jpg绝对没问题。
     我完整的调试过,
    你可以搜索一下以前的帖子,我就不贴了,
     该类型的帖子比较多
      

  3.   

    use jpeg;
    procedure TForm1.DBImage1DblClick(Sender: TObject);
    var filepath,extname:string  ;
        jpeg:Tjpegimage;begin
        query1.RequestLive:=true;
        if openpicturedialog1.Execute then
        begin
             filepath:=openpicturedialog1.FileName;
             if filepath<>'' then
           extname:=extractfileext(filepath);
             if (uppercase(extname)='.JPEG') or (uppercase(extname)='.JPG')  then
             begin
             query1.Edit;
             jpeg:=Tjpegimage.Create;
             jpeg.LoadFromFile(filepath);
             dbimage1.Picture.Graphic.Assign(jpeg);
             end
             else
             begin
             query1.edit;
             query1graphic.LoadFromFile(filepath);
             end;
             query1.Post;
             end;
    end;
    ============解决不能插入jpeg图片的问题========
      

  4.   

    (query1.FieldByName('img') as TBlobField).LoadFromFile('e:\temp.gif');