TEmbededWB ile bir siteyi açıyorum
Bu sitede bir liste var listedeki HTML kodlarını istediğim şekilde düzenledikten sonra aşağıdaki şekilde bir kodla refresh ettiriyorum
Fakat refresh işlemi bazen 1-2 sn sürerken bazen 40-50 sn sürebiliyor
Bu konuda bilgisi olan arakadaşlardan yardım rica ederim.
Not: WB üzerinde veri işleme konudunda ileri düzeyde bilgi sahibi olan arkadaşlar var ise
özel derste almakta isterim. Bu konuda benimle özelden yazışabilirmisiniz.
Teşekkürler
Kod: Tümünü seç
procedure Tfrm.WBDocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);
begin
.....
strHTML : function WBGetDocumentHTML(WB) : String;
//strHTML içeriği düzenleniyor....
..
..
prc_YenidenUygula(WB);
....
end;
function WBGetDocumentHTML(WebBrowser : TEmbeddedWB) : String;
var
DOM : variant;
begin
result := '';
try
DOM := WebBrowser.Document;
if WebBrowser.LocationURL <> '' then
begin
result := DOM.Body.outerHTML;
end;
except on e : exception do
...............
end;
end;
procedure prc_YenidenUygula(WebBrowser : TEmbeddedWB);
var
ADoc : Variant;
begin
ADoc := WebBrowser.Document;
ADoc.clear;
ADoc.write(sHtml);
ADoc.close;
WebBrowser.Refresh;
end;