Access中保存图片
来源:互联网 发布:matlab cell转为数组 编辑:程序博客网 时间:2024/05/01 16:19
将JPG格式图片保存到ACCESS数据表中
var
Ind,i:Integer;
FName:string;
AJPeg:TJPEGImage;
temp:TBitmap;
begin
if opd1.Execute then
begin
btnAdd.Enabled:=False;
Ind:=Opd1.Files.Count;
for i:=0 to Ind-1 do
begin
FName:=opd1.Files.Strings[i];
Application.ProcessMessages;
tbl1.Append;
tblPictureName.AsString:=FName;
if UpperCase(Copy(FName,Length(Fname)-3,4))=’.JPG’ then
begin
AJpeg:=TJPEGImage.Create;
AJpeg.LoadFromFile(FName);
Temp:=TBitmap.Create;
Image1.Height:=Ajpeg.Height;
Image1.Width:=Ajpeg.Width;
Image1.Picture:=nil;
Image1.Canvas.Draw(0,0,Ajpeg);
DBImage1.Picture:=Image1.Picture;
AJpeg.Free;
end
else
tblPicture.LoadFromFile(FName);
tbl1.Post;
end;
end;
说明:
tbl1:TADOQuery;
opd1:TOpenPictureDialog;
tblPicture是tbl1的字段,OLE型。
uses
JPEG;
************************************************************
人家是用access,肯定用ado的。
uses Jpeg
procedure SaveBitmapToDb(const FileName: string);
var
Bitmap: TBitmap;
JpegImage: TJpegImage;
MS: TMemoryStream;
begin
Bitmap := TBitmap.Create;
JpegImage := TJpegImage.Create;
MS := TMemoryStream.Create;
try
Bitmap.LoadFromFile(FileName);
JpegImage.Assign(Bitmap);
JpegImage.SaveToStream(MS);
AdoTable1.Append;
TBlobField(AdoTable1.FieldByName('Picture')).LoadFromStream(MS);
AdoTable1.Post;
finally
Bitmap.Free;
JpegImage.Free;
MS.Free;
end;
end;
判断照片字段是否为空用if dmdata.ADOQUserInfo.FieldByName('照片').IsNull,清空image中的图像用image.picture:=NIL值为NIL.
- Access中保存图片
- PB中保存图片
- android 中保存图片
- PB中保存图片
- 从视频中保存图片
- 在access中保存使用对象(Object)
- 在SQLServer中保存和输出图片
- 在中保存和输出图片
- 在数据库中保存和读取图片
- Android 中保存图片的代码
- 在手机相册中保存图片失败
- java中保存图片的缩略图
- Android中保存图片的方式
- jdbc向数据库中保存图片
- jdk1.3中保存jpeg图片
- matlab中保存图片的方法
- Android底层jni中保存RGB565图片
- 在swift中保存图片到相册
- 使用LFS打造自己的Linux心得体会
- 技巧:用ASP在线创建Word与Excel文档
- create encode function and decode function for using
- SOA的业务价值分析:重用和透明
- 计算两个日期的天数差
- Access中保存图片
- 在showModalDialog()窗口裡刷新或按F5刷新
- SOA可重用性让软件工业化
- C#去掉空格
- Struts2利用stream直接输出 例子
- JAVA项目的打包
- vsftp 限制用户切换目录
- 2008中国软件技术英雄会(上海)有感:一个小菜鸟的自白
- Hibernate 中使用oracle临时表