图片的存储 ( 积分: 50 )

wtl · 2007-10-03

怎么往数据库里插入图片，然后怎么用image组件读取图片

cf83325 · 2007-10-03

网上一搜就是一大对 提示你：用blob字段存取图片

lcb139 · 2007-10-04

with self.adoQuery1 do   begin     close;     sql.Clear;     sql.Add('insert into sfis1.USER_SELECTPRG (user_id,modulecode,pic,PIC_TYPE) values

userid,''007'',

IC,

ICTYPE)');     //parameters.ParamByName('pic').LoadFromStream(self.funLoadPic(path), ftgraphic);     parameters.ParamByName('userid').Value:=sUserID;     parameters.ParamByName('pic').Assign(image1.Picture.Graphic);     parameters.ParamByName('PICTYPE').Value:=sPICType;     execsql;   end; procedure TForm1.DBGrid1CellClick(Column: TColumn); var   stream1: TMemoryStream;   sd: TStringStream;   str:string;   path:string;   strm:Tadoblobstream;   bitmap:Tbitmap;   jpegimage : tjpegimage; begin   if self.ADOQuery1.FieldByName('PIC_TYPE').AsString='BMP' then   begin     strm := tadoblobstream.Create(tblobfield(adoQuery1.FieldByName('pic')),bmread);     strm.position :=0;     image1.Picture.Graphic := nil;     bitmap := tbitmap.Create ;     try       bitmap.LoadFromStream(strm);       image1.Picture.Graphic := bitmap;     finally       bitmap.Free;     end;   end   else if self.ADOQuery1.FieldByName('PIC_TYPE').AsString='JPG' then   begin     jpegimage := tjpegimage.Create ;     try       jpegimage.Assign(adoQuery1.FieldByName('pic'));       image1.Picture.Graphic :=jpegimage;     finally       jpegimage.Free;     end;   end   else     showmessage('&frac12;&ETH;&frac12;T&raquo;{¨&auml;&sup1;&Iuml;¤ù&Atilde;&thorn;&laquo;&not;');    end;

piaoping · 2007-10-18

这是我用的代码 procedure TForm1.Button1Click(Sender: TObject); var   i:Integer;   Ext:String;   Strm:TmemoryStream;   JPG:TJPEGImage;   PicName:String; begin   if OpenPictureDialog1.Execute then   begin     //检查图片格式是否是JPG     for i:=0 to OpenPictureDialog1.Files.Count-1 do     begin       application.ProcessMessages;       PicName:=UpperCase(ExtractFileName(OpenPictureDialog1.Files.Strings));       PicName:=Copy(PicName,1,length(PicName)-4);       Ext:=ExtractFileExt(OpenPictureDialog1.Files.Strings);       if Not (UpperCase(Ext)='.JPG') then       begin         showmessage(PicName+'文件格式不对,请选择JPG格式!');         Exit;       end;     end ;     //保存图片及数据     for i:=0 to OpenPictureDialog1.Files.Count-1 do     begin       application.ProcessMessages;       try         ADOQuery1.Close;         ADOQuery1.Sql.Clear;         ADOQuery1.Sql.Add('select * from tPCStylePicData');         ADOQuery1.Open;         ADOQuery1.Append;         PicName:=UpperCase(ExtractFileName(OpenPictureDialog1.Files.Strings));         PicName:=Copy(PicName,1,length(PicName)-4);         ADOQuery1.FieldByName('StyleNO').AsString:=PicName;         JPG:=TJPEGImage.Create;         JPG.CompressionQuality := 30;//压缩率         JPG.Compress;         JPG.JPEGNeeded;         Strm:=TmemoryStream.Create ;         JPG.LoadFromFile(OpenPictureDialog1.Files.Strings);         JPG.SaveToStream(Strm);         Strm.Position:=0;         TBlobField(ADOQuery1.FieldByName('Pic')).LoadFromStream(Strm);         ADOQuery1.Post;       finally         JPG.Free;         Strm.Free;       end;     end;   end ; end;

shadowpj · 2007-10-18

//显示数据库JPG图片字段 procedure THC_DM.showimage(image1:timage; imagers:tadoquery; imagefield: string); Var   Ms:TStringStream;   jpg:Tjpegimage; begin   if imagers.IsEmpty then   begin     image1.Picture.Graphic :=nil;     exit;   end;   if TBlobField(imagers.FieldByName(imagefield)).BlobSize >0 then   begin     Ms:=TstringStream.Create('');     TBlobField(imagers.FieldByName(imagefield)).SaveToStream(Ms);     Ms.Position :=0;     jpg:=tjpegimage.Create ;     Jpg.LoadFromStream(Ms);     image1.Picture.Assign(Jpg);     Ms.Free;     jpg.free;   end   else     image1.Picture.Graphic :=nil; end; //JPG图像保存到数据库 procedure thc_dm.saveimage(filename:string; imagers:tadoquery; imagefield: string); var   Ms:TmemoryStream;   jpg:Tjpegimage; begin   ms:=TmemoryStream.Create;   jpg:=tjpegimage.Create ;   Jpg.LoadFromFile(appdir+filename);   Jpg.SaveToStream(Ms) ;   Ms.Position :=0;   imagers.edit;   TBlobField(imagers.FieldByName(imagefield)).LoadFromStream(Ms);   imagers.Post;   Ms.Free ;   jpg.free; end;

baobao2601 · 2007-10-20

例如：    要将图片保存到数据库，图片大小不变 1、设计界面如图所示 SQLSERVER里的图片的字段为:image,access里的图片的字段为:OLE 对象 2、快捷菜单的具体代码如下：   载入图片： procedure TForm1.N4Click(Sender: TObject); begin if ADOQUERY1.State in [dsedit,dsinsert] then begin if OpenPictureDialog1.Execute then     begin     DBIMAGE1.Picture.LoadFromFile(OpenPictureDialog1.FileName);     DBIMAGE1.CopyToClipboard;     ADOQUERY1.Edit;     DBIMAGE1.PasteFromClipboard;     end; end else messagedlg('记录集不可写！',mtError,[mbOk],0); end;   复制图片： procedure TForm1.N1Click(Sender: TObject); begin DBIMAGE1.CopyToClipboard; end;        粘贴图片： procedure TForm1.N2Click(Sender: TObject); begin DBIMAGE1.PasteFromClipboard; end;    删除图片：  //要在adoquery1里选中字段 注意ADOQUERY1DSDesigner2 的位置 procedure TForm1.N3Click(Sender: TObject); begin if messagedlg('是否要清除该图片！',mtConfirmation,[mbYes,mbNo],0)=mrYes then    begin    if ADOQUERY1.State in [dsedit,dsinsert] then       ADOQUERY1DSDesigner2.Clear       else messagedlg('该记录处于非可写状态！请置于编辑状态再重试！',mtError,[mbOk],0);    end; end;

图片的存储 ( 积分: 50 )

wtl

Unregistered / Unconfirmed

cf83325

Unregistered / Unconfirmed

lcb139

Unregistered / Unconfirmed

piaoping

Unregistered / Unconfirmed

shadowpj

Unregistered / Unconfirmed

baobao2601

Unregistered / Unconfirmed

Similar threads