Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/BrowserRecord.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.7 by h677, Sun Apr 15 16:21:29 2007 UTC revision 1.8 by h677, Sat Mar 1 15:34:33 2008 UTC
# Line 183  const Line 183  const
183  var  var
184          CmdTarget : IOleCommandTarget;          CmdTarget : IOleCommandTarget;
185          vaIn, vaOut: OleVariant;          vaIn, vaOut: OleVariant;
         PtrGUID: PGUID;  
186  begin  begin
187          if (Self.Browser <> nil) and (Self.Browser.Document <> nil) then begin          if Assigned(Self.Browser) then begin
188                  //ブラウザがデータの読み込み中の時は読み込みを待つ                  vaIn  := 0;
189                  while (Self.Browser.ReadyState <> READYSTATE_COMPLETE) and                  vaOut := 0;
190                                          (Self.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin                  try
191                          Sleep(1);                          CmdTarget := Self.Browser.ControlInterface.Document as IOleCommandTarget;
192                          Application.ProcessMessages;                          if Assigned(CmdTarget) then begin
193                                    CmdTarget.Exec(@CGID_WebBrowser, HTMLID_FIND, 0, vaIn, vaOut);
194                            end;
195                    except
196                  end;                  end;
         vaIn  := 0;  
         vaOut := 0;  
                 New(PtrGUID);  
                 PtrGUID^ := CGID_WebBrowser;  
         try  
                 try  
                         if Self.Browser.Document  
                     .QueryInterface(IOleCommandTarget, CmdTarget)  
                     = S_OK then begin  
                             if CmdTarget <> nil then begin  
                                     try  
                                             CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);  
                                         finally  
                                                 CmdTarget._Release;  
                                         end;  
                                 end;  
                 end;  
                     except  
                     end;  
         finally  
                 Dispose(PtrGUID);  
         end;  
197          end;          end;
198  end;  end;
199    

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26