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