delphi 中怎样打开jpg图片，保存到数据库中并要打印

delphi 中怎样打开jpg图片，保存到数据库中并要打印

jpg:TJpegImage;
temp:string;
sum:string;
i,j:integer;
jj,bb:boolean;beginif openpicturedialog1.Execute thenbeginedit1.Text:=openpicturedialog1.FileName;
bmp:=TBitmap.create;
jj:= AnsiEndsText('.jpg',edit1.Text);//看看是jpg文件还是bmp文件
bb:= AnsiEndsText('.bmp',edit1.Text);if jj thenbeginJpg:=TJpegImage.Create;
Jpg.LoadFromFile(openpicturedialog1.FileName);
bmp.assign(jpg);jpg.free;key:=extractfilename(edit1.Text);//将jpg转化bmpsum:=key;i:=length(sum);i:=i-4;temp:='';for j:=1 to i dobegintemp:=temp+sum[j];end;key:=temp;key:=key+'.bmp';
bmp.savetofile(key);//转化结束，因为mysql不能存jpgbiao:=1;endelse if bb thenbeginbmp.LoadFromFile(openpicturedialog1.FileName);
key:=extractfilename(edit1.Text);biao:=0;end;image1.Picture.LoadFromFile(openpicturedialog1.FileName);bmp.free;end;保存图片：varPicture1:TPicture;begin// 保存图片到数据库中
Picture1:=TPicture.create;trytryif fileexists(edit1.text) then
with ADOtable1 dobeginadotable1.Close;
adotable1.Open;
Picture1.LoadFromFile(key);
if Locate('name',extractfilename(edit1.text),[loCaseInsensitive])=false thenbeginindexfieldnames:='name';
ADOtable1.Insert;
Fields[0].AsString:=extractfilename(key);
Fields[1].Assign(Picture1);Post;showmessage('图象保存成功！');endelseshowmessage('图象已经存在！');end;finallyPicture1.Free;bmp1.Free;end;exceptshowmessage('图象保存失败！');end;if biao=1 then
DeleteFile(key);end;打印则qreport中的qrimage，或者是fastrepot exports中的frBMPExport和frJPEGExport！！

1打开jpg图片用timage的picture属性.还可以加载tjpeg单位,用tjpeg类直接处理也可以将picture中的jpg图片粘贴捣⒕貔板,在经由过程粘贴板写入字段.保存到数据库要应用流类(tstream),将picture中的图片信息写入数据库的图像或二进制类型的字段打印时用quickreport页中的qrimage调出即可打印