Browser周りの参照方式を変えて見た。

diff --git a/Editor.pas b/Editor.pas
index d1c7ebb..ec1c98b 100644 (file)
--- a/Editor.pas
+++ b/Editor.pas
@@ -357,6 +357,7 @@ begin
     FSambaTimer.Interval := 0;
        Browser.Navigate('about:blank');
        TitlePictureBrowser.Navigate('about:blank');
+    WebBrowser1.Navigate('about:blank');
        FBoard := nil;
        FThreadItem := nil;
 
@@ -702,8 +703,8 @@ procedure TEditorForm.SetContent(Content: string; ABrowser: TWebBrowser);
 var
        doc: OleVariant;
 begin
-       if ABrowser.ControlInterface.Document <> nil then begin
-               doc := ABrowser.OleObject.Document;
+       if Assigned(ABrowser.ControlInterface.Document) then begin
+               doc := OleVariant(ABrowser.Document);
                doc.Clear;
                doc.open;
                doc.charset := 'Shift_JIS';
@@ -1821,7 +1822,8 @@ begin
        end;
 
     try
-       range := WebBrowser1.OleObject.Document.body.createTextRange;
+    ;
+       range := OleVariant(WebBrowser1.Document).body.createTextRange;
            LocalEdit.Text := range.text;
     except
     end;