如何用将 Form 提交的图片存入数据库？（菜鸟散分啦）

请问如何在网页中制作一个   Form，提交一个图片文件到服务器  
  然后再将这个图片存入到数据库中。  
   
  另外，当用户检索到这条记录之后，如何将这个图片在网页当中显示出来？？  
   
  谢谢！ 问题点数：100、回复次数：6Top

1 楼linzhisong（無聊）回复于 2002-10-10 12:42:26 得分 0

怎麼在這裡?  
   
  將文件路徑名稱寫進去,然後通過路徑訪問這樣比較好吧,節省數據庫  
   
  讀取的時候把這個路徑讀出來就行了.  
   
  存到數據庫,我也不知道,可以搜索一下以前的帖子Top

2 楼blazingfire（烈焰)(对.net极度憎恨中....）回复于 2002-10-10 12:50:47 得分 0

图片的入库，出库处理，以前这样的贴子很多，搜一下吧Top

3 楼twkwang（）回复于 2002-10-10 14:05:55 得分 0

(adodataset1.FieldByName('picture')   as   tblobfield).LoadFromFile('c:\picture.bmp');Top

4 楼dhjdut（walter）回复于 2002-10-10 14:33:00 得分 50

可以采用流处理。数据库中的字段为BLOB类型，Access中为ole类型。procedure    
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
        bs:TBlobStream;  
  begin  
        Table1.open;  
        Table1.edit;  
        bs:=TBlobStream.Create(图像字段,bmReadWrite);  
        图像.SaveToStream(bs);  
        Table1.Append;  
        图像字段.LoadFromStream(bs);  
        Table1.Post;  
        bs.Free;  
  end;  
   
  procedure   TForm1.Button2Click(Sender:   TObject);  
  begin  
      if   not   图像字段.IsNull   then   begin  
            图像字段.SaveToFile('tmp');  
            图像显示控件.LoadFromFile('tmp');  
  end;  
  end;  
  Top

5 楼boy2002（结交delphi高手）回复于 2002-10-10 15:54:33 得分 50

try  
                  try  
                      m_jpegStream:=TMemoryStream.Create;  
                      (aqurProduct.FieldByName('BSPPicture1')   as   TBlobField).SaveToStream(m_JpegStream);  
                      m_JpegStream.Position:=0;  
                      try  
                          image1.Picture.Graphic:=nil;  
                          image1.Picture.Graphic:=TJpegImage.Create;  
                          image1.Picture.Graphic.LoadFromStream(m_JpegStream);     //读Jpeg  
                      except  
                          Image1.Picture.Bitmap.LoadFromStream(m_JpegStream);       //读Bmp  
                      end;  
                  except  
                  end;  
              finally  
                  m_JpegStream.Free;  
              end;  
   
  strFieldName:=fmDM.OpenPictureDialog1.FileName;//保存  
              if   FileExists(strFieldName)   then  
                  (aqurProduct.FieldByName('BSPPicture1')   as   TBlobField).LoadFromFile(strFieldName);  
              Image1.Picture.LoadFromFile(strFieldName);Top

6 楼dove_young（小和平鸽）回复于 2002-10-11 10:23:35 得分 0

谢谢大家！这两天把她消化一下！^_^  
   
  和和，Delphi   俺是菜鸟。  
   
  开始俺也是想把图片放在文件系统里面，但是领导说考虑到在数据库里面，删除比较方便   :-(  
   
  而且一定得用   Delphi   作。Top

相关问题

• 字段
• 数据库
• 图像
• 文件
• jpegstream
• strfieldname
• 图片
• picture
• loadfromfile
• loadfromstream

• 帖主：dove_young
• dhjdut
• boy2002

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载