如何把存入SQLserver2000中的文本文件读出到相应文件中或者Memo中？
我把文本文件内容存到了数据库中，是以Steam存入的，如何再把它取出来存到相应文件或者Memo组件中呢？
存入代码如下：
procedure TForm1.Button2Click(Sender: TObject);
var
fFileName, filename: string;
fFileStream: TFileStream;
begin
if dlgOpen1.Execute then
begin
fFileName := dlgOpen1.filename;
filename := ExtractFilePath(dlgOpen1.filename);
filename := copy(dlgOpen1.filename, length(filename) + 1, length(dlgOpen1.filename));
fFileStream := TFileStream.Create(fFileName,
fmOpenRead or fmShareDenyWrite);
end;
try
with tbl1 do
begin
Open;
Append;
FieldByName( 'ti ').AsString := filename;
TBlobField(FieldByName( 'doc ')).LoadFromStream(fFileStream);
Post;
//Application.MessageBox( '导入成功 ', '提示！ ', mb_ok + mb_iconinformation);
end;
finally
fFileStream.Free;
end;
end;
end;
[解决办法]
fFileStream.SavetoFile('c:\aa.doc')
这样就以.doc的格式直接导到c盘下去了
