关于 流 存取的问题

Question

1.我存图片进数据库的时候用 
 Image.Picture.Graphic.SaveToStream(strm); 这句就可以将图片存进流.但是我要将文件存进数据库的时候就不知道怎么办了???
2.网页是怎么保存的啊??   应该如何将网页保存到数据库里面??
3.我用RICHEDIT 进行查找的时候, 在查找窗口点击查找时出错,提示信息是:Cannot focus a disabled or invisible window  .  它提示这句出错 RichEdit.Perform(em_setsel, 0, 0);
我是点查找就弹出 查找窗口,怎么会这样呢???大家帮帮我啊~~~~~~~~
很急~~~~~~~

Answer 1

图片的存储，给你一个例子，我存储的是声音，道理一样：
try
    s:=TFileStream.Create(cxButtonEdit1.Text,fmopenread);
  except
    s.Free;
    Application.MessageBox('声音文件不正确，请检查路径是否正确','提醒您',mb_ok+MB_ICONWARNING);
    exit;
  end;  ADOQ_SoundA:=TADOQuery.Create(nil);
  ADOQ_SoundA.Connection:=DM_DATABASELINK.ADO_CDLINK;
  try
    Screen.Cursor:=crHourGlass;
    with ADOQ_SoundA do
    begin
      close;
      sql.Clear;
      sql.Add('insert into FM_ALAMR_SOUND (SOUND_FILE,SOUND_MEMO) VALUES (:sfi,:sme) ');      parameters.ParamByName('sfi').LoadFromStream(s,ftblob);       //强制转化为二进制流文件(路径)
      Parameters.ParamByName('sme').Value:=Trim(cxTextEdit1.Text);      try
        ExecSQL;
        WriteOperateLog(UserMessage.UserID,UserMessage.UserName,'增加','增加声音文件 '+cxTextEdit1.Text);
      except
        Application.MessageBox('新增出错，请检查新增内容是否正确！','提醒您',MB_OK+MB_ICONWARNING);
        WriteOperateLog(UserMessage.UserID,UserMessage.UserName,'错误','增加声音文件 '+cxTextEdit1.Text+ '出错误');
        exit;
      end;
    end;
    CreateAlarmSound;                                  //创建告警声音    cxButtonEdit1.Text:='';
    cxTextEdit1.Text:='';
  finally
    s.Free;
    ADOQ_SoundA.Free;
    Screen.Cursor:=crDefault;
  end;

Answer 2

我用的是ADO连接ACCESS表 ~~~~~~~
第2,3 个问题怎么没人啊???????

Answer 3

窗体没有显示或隐藏，不能设置焦点。你看看弹出的窗体中那个控件设置了SetFocus。