易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi与SQL2000的图片读取

在一张goods表中有产品名称,规格,图片路径等字段,已经把图片的路径保存到goods表中,请问怎么样才能查询goods表时,查出的记录双击或是怎么样可以直接打开图片路径这个字段相对应的图片,谢谢
不知是什么格式的图片
bmp, jpeg格式的用TImage这个控件加载就可以了。

我发段代码给你.这是不管什么格式的只要你 Uses 上图片单元.如 uses jpeg
if Not OpenpictureDialog1.Execute then Exit;
ADotable1.Edit;
DBImage1.Picture.LoadfromFile(OpenPictureDialog1.FileName);
DBImage1.CopyToClipboard;
DBIMage1.PastefromClipboard;
Adotable1.Post;



用数据流把图片存储到数据库中,这样读取比较方便。

代码供你参考:
存储图片
Delphi(Pascal) code:

procedure TForm1.Button1Click(Sender: TObject);
var
ms: TMemoryStream;
jpg: TJpegImage;
begin
ms := TMemoryStream.Create;
jpg := TJpegImage.Create;
if dlgOpen1.Execute then
img1.Picture.LoadfromFile(dlgOpen1.FileName);
try
if img1.Picture.Graphic<>nil then
begin
//try
img1.Picture.Graphic.SaveToStream(ms);
//判断图片大小,如果图片太大则不允许
if ms.Size >1024*500 then
showmessage('图片太大不允许')
else
//提交图片
begin
qry1.Append;
TBlobField(qry1.FieldByName('pic')).LoadfromStream(ms);
qry1.Post;
end;


相关问答:

Asp+sql server问题 - Web 开发 / ASP

我一个项目,有个插入操作,具体是这样的:
我有进货信息表。在出货时选择相应的进货信息,输入数量,选择部门后,点保存按钮,由于网络延时,点一下没有反映,于是用户就又点一下,导致一次插入了两条记录:
例: ......

请教下,用DELPHI做SOHU的 - Delphi / 非技术区

一般都是怎么接活的?
收入怎么样
sohu?soho?

sohu 可能是small office house unit
小办公室,把家变成单位。

去威客网啊,很多个呢,还有外包的网站

学习学习。

现在Delphi做东西不行了,处于淘汰状 ......

sqlserver错误 - MS-SQL Server / 疑难问题

sqlserver2005 建立的数据库,与手持pda传输数据,最近突然出现无法传递数据的问题,pda端提示的错误时outofmemoryexception,但是pda上面的容量没有问题,
sqlserver的日子上的错误如下:
日期 2010-1-25 14:45: ......

求一SQL - MS-SQL Server / 基础类

tab1 字段:billdate,goodsid,incount,inmoney,outcount,outmoney,endprice,endcount,endamt
tab2 字段:goodsid,goodskind(商品类型)
tab3 字段:goodskind(商品类型),kindname
结果:
得到商品类型在一段时间 ......

求一个SQL语句 - MS-SQL Server / 基础类

字段1,字段2.....字段N,Status,ParentID
1,Name1....test1,1,99
1,Name1....test1,3,99
1,Name2....test2,1,101
1,Name2....test2,3,101
1,Name3....test3,2,101
1,Name1....test1,4,101
想要的结果是:
1,Na ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号