救命?如何将大文本插入sqlserver7的表字段中?

Question

大文本和image存入sql 有类似之处，仅供参考：
//保存 
procedure TForm1.ImageIntoDBBitBtnClick(Sender: TObject); 
begin 
  try 
    with Query1 do 
      begin 
        close; 
        sql.clear; 
        sql.add('insert into img (imga) values(:imag)'); 
      end; 
    try 
      if FileName<>'' then 
        ParamByName('Img').LoadfromFile(FileName,ftGraphic) 
      else 
        ParamByName('Img') .asBlob:=''; 
      Query1.ExecSQL; 
    except 
      ShowMessage('图片保存出错！'); 
      exit; 
    end; 
  except 
  end; 
end; 
 
//读取 
procedure TForm1.ImageFromDBBitBtnClick(Sender: TObject); 
var 
  m_jpegstream:tmemorystream; 
begin 
  with Query1 do 
  begin 
    close; 
    sql.clear; 
    sql.Add('select imga from img'); 
    try 
      Open; 
    except 
      exit; 
    end; 
  end; 
  if (Query1.FieldByName('imga') as tblobfield).asstring='' then 
  begin 
    exit; 
  end 
  else 
  begin 
    try 
    try 
      m_jpegStream:=TMemoryStream.Create; 
      (Query1.fieldbyname('imga') as TBlobField).SaveToStream(m_JpegStream); 
      m_JpegStream.Position:=0; 
      try 
        image2.Picture.Graphic:=nil; 
        image2.Picture.Graphic:=TJpegImage.Create; 
        image2.Picture.Graphic.LoadFromStream(m_JpegStream);  //读Jpeg 
      except 
        Image2.Picture.Bitmap.LoadFromStream(m_JpegStream);   //读Bmp 
      end; 
    except 
    end; 
    finally 
      m_JpegStream.Free; 
      Query1.Close; 
      Query1.UnPrepare; 
    end; 
  end; 
end; 
 

Answer 1

我已实现!谢谢你的参与.给分.
var 
    TempStream:TMemoryStream;
begin
 TempStream:=TMemoryStream.Create;
 memo1.Lines.SaveToStream(TempStream); 
 table1.Open;
 table1.Locate('ssss',sss,[]) ;
 table1.Edit;
 (table1.fieldbyname(ssss') as TBlobField).LoadFromStream(TempStream);
 table1.Post;
 TempStream.Free;
end;