用TBlobStream,TStream类试试把

解决方案 »

  1.   

    不能用 Assign, LoadFromStream, LoadFromFile 吗?
      

  2.   

    我刚才用webconnection作连接,delta传送成功,但是速度奇慢。
    谢谢大家参与,期待更好的解决方案!
      

  3.   

    /保存 
    procedure TForm1.ImageIntoDBBitBtnClick(Sender: TObject); 
    begin 
      try 
        with Query1 do 
          begin 
            close; 
            sql.clear; 
            sql.add('insert into img (imga) values(:imag)'); 
          end; 
        try 
          if FileName<>'' then 
            ParamByName('Img').LoadfromFile(FileName,ftGraphic) 
          else 
            ParamByName('Img') .asBlob:=''; 
          Query1.ExecSQL; 
        except 
          ShowMessage('图片保存出错!'); 
          exit; 
        end; 
      except 
      end; 
    end;两层下是这样写的,三层的多一个提交(applyupdates)应该就可以了
      

  4.   

    我的三层式时这样的形式,
    应用服务器只用到Ado_base: TADOConnection;
        Com_base: TADOCommand;
        Qry_base: TADOQuery;
        Dsp_base: TDataSetProvider;
      

  5.   

    应用服务器端只有这四个控件(我需要干净统一的代码)
    Ado_base: TADOConnection;连接数据库
    Com_base: TADOCommand;写
    Qry_base: TADOQuery;读
    Dsp_base: TDataSetProvider;连接客户端客户端Tclientdataset只用于显示,不用于写。
    连接用Twebconnection.
    所有存储都用应用服务器的interface--->method 实现。
    客户端不能用Tdb***控件。
    客户端不能出现诸如insert,append,post,applyupdate等不知只用sql语句(应用服务器端)能否实现?