100一求！！！ 在线等！！！

Question

  如何用流的方式将 xls doc 文件保存到ms sql 又如何用流的方式毒出来，  请提供详细的代码？？？

Answer 1

http://expert.csdn.net/Expert/topic/1879/1879680.xml?temp=.8489344
第23条
感谢delphiyesterday (郑康益)网友
：）

Answer 2

var
  fs: TFileStream;
begin  
  fs := TFileStream('aa.xls', fmOpenRead);
  fs.Seek(0, 0);
  TBlobField(YourDataSet.FieldByName('yourfield')).LoadFromStream(fs);

Answer 3

 谢谢 DWGZ() ( )  读出的方法？

Answer 4

var
  MS: TStream;
begin
  try
    MS:=CreateBlobStream(adoquery1.FieldbyName('image'),bmRead);
    Image1.Picture.Bitmap.LoadFromStream(MS);
  finally
    MS.Free;
  end;
end;

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
   Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
   ADOTable1.Append;
   TBlobField(ADOTable1.FieldByName('FImage')).LoadFromFile(OpenPictureDialog1.FileName);
   ADOTable1.Post;
end;