想做人事管理系统,照片上传怎么插入数据库

Question

关于员工照片上传的,将照片上传至指定文件夹后如何显示,并且如何插入数据库,浏览时如果显示

Answer 1

TBlobField和DBImage不过我喜欢只存路径，不存图片

Answer 2

我们是用FTP上传和下载图片的,不要直接保存数据库中。

Answer 3

//写进数据库
TBlobField(CDS_Main.FieldByName('FileOBJ')).LoadFromFile('文件名');
//从数据库读
TBlobField(CDS_Main.FieldByName('FileOBJ')).SaveToStream(lStream);
Image1.Picture.Graphic.LoadFromStream(lStream);

Answer 4

angle097113（深思不解）兄弟的代码你参考一下。
var    
      MyJPEG   :   TJPEGImage;  
      MS:   TMemoryStream;  
  begin  
      openpicturedialog1.Execute;  
      if   openpicturedialog1.FileName<>''   then  
      begin  
          image.Picture.LoadFromFile(openpicturedialog1.FileName);  
          openpicturedialog1.FileName:='';  
          MyJPEG   :=   TJPEGImage.Create;  
          try  
              with   MyJPEG   do  
              begin  
                  Assign(Image.Picture.Graphic);  
                  MS:=TMemoryStream.create;  
                  SaveToStream(MS);  
                  MS.Position:=0;  
                  adotable1.Append;  
                  TBlobField(adotable1.FieldbyName('photo')).LoadFromStream(MS);  
                  adotable1.Post;  
                  messagebox(getactivewindow(),'图像保存完毕！','保存',mb_ok);  
                  image.Picture.CleanupInstance;  
              end;  
          finally  
              MyJPEG.Free;  
          end;  
      end;  
   
   
  显示图片  
  var  
      tempstream:TStringStream;  
      tempjpeg:TJPEGImage;  
  begin  
      try  
          tempstream:=TStringStream.Create('   ');  
          TBlobField(adodataset1.FieldByName('photo')).SaveToStream(tempstream);  
          tempstream.Position:=0;  
          tempjpeg:=TJPEGImage.Create;  
          tempjpeg.LoadFromStream(tempstream);  
          DBImage1.Picture.Bitmap.Assign(tempjpeg);  
      finally  
          tempstream.Free;  
          tempjpeg.Free;  
      end;  
  end;