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

Question

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

Answer 1

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

Answer 2

可以采用流处理。数据库中的字段为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;

Answer 3

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);

Answer 4

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