我程序是用Ado方式操作数据库。
Access2000中的jpg文件格式,怎么读入到DBImage中呢?还有,如何才能将图片写到Access2000中呢?
Access2000中的jpg文件格式,怎么读入到DBImage中呢?还有,如何才能将图片写到Access2000中呢?
解决方案 »
- 一个关于查询控件的ExecSQL方法触发事件问题.
- 添加数据的速度问题
- 关于Cxgrid
- 创建窗体时提示'The window does not have scroll bars 错误怎么解决?
- ShellTreeView中怎样把选中的目录中的文件名称放到ListView中???
- sql group by
- 能不能在系统运行时在街面上动态生成edit组件?
- 当BitBtn按钮选择Kind后,运行时当点击时居然会关闭窗体,百思不得其解?
- 请教:坐标轴是在哪儿画的?在Image上,还是在Chart就有?
- 想form没有最大化按钮也不允许拖动改变窗口大小怎么做?
- 大家编程之余都干什么???
- 怎么统计查询出来的在DBGRID中的结果?
给你一个通用涵数:
function Tform1.imagesavetosql(dataset:TCustomADODataSet;zdxh:integer):boolean;
{
////////////////////图片信息存入SQL数据库///////////////////////////
///////输入参数: 1.dataset 数据集控件名 2.zdxh 字段序号(integer)
///////输出参数: 无 结果成功返回true
///////涵数功能: 把bmp,jpg,ico类型的图片数据存入sql中的image字段
///////autor: coolfilm
///////完成时间:2003-07-15
///////最后修改时间:2003-07-15
////////////////////////////////////////////////////////////////////
}
var
imagebmp:Timage; //bmp图片
imagejpg:Tjpegimage; //jpg图片
imageico:Ticon; //ico图片
zhbl:Tbitmap; //ico到bmp的转化变量
lx:string; //图片类型
picdialog:Topenpicturedialog;//自定义对话框
image:Timage; //自定义图片控件
begin
imagebmp:=Timage.Create(nil);
imagejpg:=Tjpegimage.Create;
imageico:=Ticon.Create;
zhbl:=Tbitmap.Create;
image:=Timage.Create(nil);
picdialog:=Topenpicturedialog.Create(nil);
picdialog.InitialDir:=extractfilepath(Application.ExeName);
picdialog.Title:='请选择要保存的图片';
if picdialog.execute then
begin
image.Picture.LoadFromFile(picdialog.FileName);
image.Hint:=picdialog.FileName;
image.showhint:=true;
end;
if image.Hint<>'' then
begin
lx:=ExtractFileExt(image.Hint);
if (lx='.bmp') or (lx='.BMP') then
begin
imagebmp.Picture.Bitmap.LoadFromFile(image.Hint);
end;
if (lx='.jpg') or (lx='.JPG') then
begin
imagejpg.LoadFromFile(image.Hint);
imagebmp.Picture.Bitmap.Assign(imagejpg);
end;
if (lx='.ico') or (lx='.ICO') then
begin
imageico.LoadFromFile(image.Hint);
zhbl.Width:=imageico.Width;
zhbl.Height:=imageico.Height;
zhbl.canvas.Draw(0,0,imageico);
end;
end;
try
if (lx='.ico') or (lx='.ICO') then
begin
dataset.Fields[zdxh].Assign(zhbl);
end
else
begin
dataset.Fields[zdxh].Assign(imagebmp.Picture);
end;
result:=true;
finally
imagebmp.Free;
imagejpg.Free;
imageico.Free;
zhbl.Free;
picdialog.Free;
image.Free;
end;
end;