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

[ltmb118]

如何用流的方式将 xls doc 文件保存到ms sql 又如何用流的方式毒出来，

请提供详细的代码？？？

[ltmb118]

今天下午 三点前结贴

[DWGZ]

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

[ltmb118]

谢谢 DWGZ() ( )

读出的方法？

[「已注销」]

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

[pengdali]

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;

[XXSingle]

再帮你顶一顶....

[pandengzhe]

up吧

[firetoucher]

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

[ltmb118]

谢谢各位老大，我马上结贴