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.4 by h677, Sat Aug 12 22:19:57 2006 UTC revision 1.5 by h677, Mon Sep 11 15:56:45 2006 UTC
# Line 162  var Line 162  var
162          PtrGUID: PGUID;          PtrGUID: PGUID;
163  begin  begin
164          if (Self.Browser <> nil) and (Self.Browser.Document <> nil) then begin          if (Self.Browser <> nil) and (Self.Browser.Document <> nil) then begin
165                    //ブラウザがデータの読み込み中の時は読み込みを待つ
166                    while (Self.Browser.ReadyState <> READYSTATE_COMPLETE) and
167                                            (Self.Browser.ReadyState <> READYSTATE_INTERACTIVE) do begin
168                            Sleep(1);
169                            Application.ProcessMessages;
170                    end;
171            vaIn  := 0;
172            vaOut := 0;
173                  New(PtrGUID);                  New(PtrGUID);
174                  PtrGUID^ := CGID_WebBrowser;                  PtrGUID^ := CGID_WebBrowser;
175                  try          try
176                          Self.Browser.Document.QueryInterface(IOleCommandTarget, CmdTarget);                  try
177                          if CmdTarget <> nil then begin                          if Self.Browser.Document
178                                  try                      .QueryInterface(IOleCommandTarget, CmdTarget)
179                                          CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);                      = S_OK then begin
180                                  finally                              if CmdTarget <> nil then begin
181                                          CmdTarget._Release;                                      try
182                                  end;                                              CmdTarget.Exec(PtrGUID, HTMLID_FIND, 0, vaIn, vaOut);
183                          end;                                          finally
184                  except                                                  CmdTarget._Release;
185                  end;                                          end;
186                  Dispose(PtrGUID);                                  end;
187                    end;
188                        except
189                        end;
190            finally
191                    Dispose(PtrGUID);
192            end;
193          end;          end;
194  end;  end;
195    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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