怎样将一个文本文件存入库中，然后再从数据库中读出来呢？

Question

StringStream := TStringStream.Create ('');
MemQw.Lines.SaveToStream (StringStream); //在这里创建一个字符流StringStream.Position := 0;
with Query1.SQL do
begin
   Clear;
   Add ('insert into tablename(id,kzm,qw)'
      + ' values (:a, :b, :c);
end;
with Query1 do
  begin
     ParamByName ('a').asstring :=IntToStr(nlwid);
     ParamByName ('b').asstring := 'txt';
     ParamByName ('c').asBlob := StringStream.DataString;  //就在这里赋值
  end;
StringStream.Free; //用完了马上Free掉
Query1.ExecSQL; //开始插入记录

Answer 1

从数据库中读出：
Query2.Close;
Query2.SQL.Clear;
Query2.SQL.Add('select Qw from oadbo.bw_qwb where Wjid =' + IntToStr(lwid)
              + ' and kzm = "txt"')；
Query2.Open;
Memo1.Lines.Text :=Query2.FieldByName('Qw').AsString;

Answer 2

memo1.Lines.SaveToFile(SaveDialog1.FileName);