易截截图软件、单文件、免安装、纯绿色、仅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

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

SQL如何优化问题 - MS-SQL Server / 疑难问题

今天做了一个存储过程   环境是SQL2000数据库  
大致如下
建立临时表
定义员工游标
        循环员工(属于1个公司)  
        ......

数据以xml格式返回 - MS-SQL Server / 应用实例

从数据库中查询一张表的数据
select 部门,姓名 from tb
如何才能生成下面的xml格式
XML code:
<folder state="unchecked" label="全部">
   <folder state="unchecked&qu ......

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

sqlserver2005 建立的数据库,与手持pda传输数据,最近突然出现无法传递数据的问题,pda端提示的错误时outofmemoryexception,但是pda上面的容量没有问题,
sqlserver的日子上的错误如下:
日期 2010-1-25 14:45: ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号