下载一个1stclass控件包,里面有个jpg格式的dbimage,它可以存任何文件
解决方案 »
- Delphi 做OCX当前网页截图
- datasource 与 dataset
- 理不清思路了,delphi调用winapi 用一段时间后就不能用了~~~
- 有谁研究过anyq的源代码请进入?
- 超简单问题,散分~怎样让窗体上的关闭按钮(X)禁止掉,
- 这个菜单是如何实现的
- WebSnap页面模块的Activate事件和Create事件的区别是?????????????????
- 简单wt
- Button2Click(nil)与Button2Click(Sender),有何区别?
- 考!!为什么我说:“我回来了”,散点分大家高兴一下。不但不欢迎,还扣除我的信誉分!!
- 怎么使程序最小化时在任务栏中生成一个图标?
- listview控件,我添加的节点,可以使他的visiable为看不见吗?我不想删除它.好像没有这个属性,有什么办法吗?
var str:Tmemorystream;
Filestring:string;
Fileext:string;
begin
IF OpenDialog1.Execute Then
str:=Tmemorystream.Create;
str.LoadFromFile(OpenDialog1.FileName);
str.Position:=0; adoquery3.Append; //图片
Tblobfield(adoquery3.FieldByName('jpg')).loadfromstream(str);
try
adoquery3.Post;
finally
str.Free;
end;
end;