我程序是用Ado方式操作数据库。
Access2000中的jpg文件格式,怎么读入到DBImage中呢?还有,如何才能将图片写到Access2000中呢?
Access2000中的jpg文件格式,怎么读入到DBImage中呢?还有,如何才能将图片写到Access2000中呢?
解决方案 »
- 怎样根据考勤刷卡数据怎样查询得出人员某天的上下班时间
- 线程释放问题
- 我将TLabel改了一下,生成了dpk,安装的时候也没什么不对,但在标签栏上就是看不到,请问如何解决?
- 如何在delphi5中安装sreport?
- 一个很头痛的背景图的问题??//// 在线等待
- onclick过程中要调用一个控件的keydown?how to do
- 求助关于SERVICE_TABLE_ENTRY结构
- 如何在button1中直接调用button2的onclick事件。
- 毕业三年了,在北京工作也一年了,如今辞职两周了,还没找到工作,给点意见!!!
- 好久没贴过了,送点分。。。
- 大家编程之余都干什么???
- 怎么统计查询出来的在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;