做一个编辑器,可以从数据库BLOB字段中载入HTML格式的文档，并且编辑和保存HTML格式到BLOB字段

Question

做一个编辑器,可以从数据库BLOB字段中载入HTML格式的文档，并且编辑和保存HTML格式到BLOB字段

Answer 1

一、装入：
  if OpenDialog1.Execute then
    begin
    ADODataSetBG.Edit;
    TBlobField(ADODataSetBG.FieldByName('wj')).LoadFromFile(OpenDialog1.FileName);
    ADODataSetBG.FieldByName('wjm').AsString:=ExtractFileName(OpenDialog1.FileName);
    ADODataSetBG.post;
    ShowMessage('文件成功装入！');
    end;
二、编辑：
  try
    wjm:=ExtractFilePath(Application.ExeName)+ADODataSetBG.FieldByName('wjm').AsString;
    TBlobField(ADODataSetBG.FieldByName('wj')).SaveToFile(wjm);
    Shellexecute(Handle,'open',pchar(wjm),nil,nil,1);
  except
    showmessage('没有文件或者没有安装相应的文档软件！');
  end;