用adoquery可不可以?我只保存过cad文件。sql 7,字段类型 image
var
s : TMemoryStream;
begin
s := TMemoryStream.Create;
s.LoadFromFile('C:\temp.dwg');
s.Position := 0;
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
Parameters.ParamByName('no').Value := Edit1.Text;
Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
Execsql;
end;
s.Free;
showmessage('save ok!');
end;
var
s : TMemoryStream;
begin
s := TMemoryStream.Create;
s.LoadFromFile('C:\temp.dwg');
s.Position := 0;
with ADOQuery1 do begin
Close;
SQL.Clear;
SQL.Add('insert into drawdwg (tabno,filedwg) values (:no,:dwg)');
Parameters.ParamByName('no').Value := Edit1.Text;
Parameters.ParamByName('dwg').LoadFromStream(s,ftBlob);
Execsql;
end;
s.Free;
showmessage('save ok!');
end;
解决方案 »
- dbGridEh中,那个checkBox,能否去掉那个方框,只显示对号?
- 字符串问题,delphi里有从字符串指定位置开始取到末尾的函数吗?copy不行啊。
- vCard 数据格式,******
- 免费电影!!http://free.dlmovie.net/movie/freemovie.asp?userid=photon15
- 怎样在一个主程序运行之前先运行一个form?
- 谁能帮解决这个安装程序制做的问题?在线等待
- 淮安的朋友请到这来
- 用IdTcpClient怎么计算传输速度啊?
- 天哪,看我找到了什么?我在我家的地下室里的一个古老的箱子里发现一张光盘,里面有个叫ABC的控件套件,其规模之大,设计领域之广,仅次于Delphi自带的控件,Rxlib与之相比简直是小巫见大巫,还有源代码,可是,请问这套控件是免费的吗?可以放心的用吗?
- 出 500 分 外加人民币 200 元购买一份源程序(代理服务器软件,要求能分别让各机在不同时间内限上网,最好有日志记录)2/x
- 曾经以为自己对技术的热情无人能及,但现在我才见识了什么叫做精益求精的技术狂人;
- 当MAPX中的MAP为miEditModeNode or miEditModeAddNode 时候,如何增加一个NODE了
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('exec 存储过程 :Pic');
adoquery1.Parameters.ParamByName('Pic').LoadFromFile('图片路径',ftGraphic);
adoquery1.execSql;
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.add('exec 存储过程 :Pic');
adoquery1.Parameters.ParamByName('Pic').LoadFromFile('图片路径',ftGraphic);
adoquery1.execSql;