Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/BrowserRecord.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
| |