07-02-2017, 09:26 AM
(آخر تعديل لهذه المشاركة: 07-02-2017, 09:39 AM بواسطة محمد عبد العزيز.)
السلام عليكم
اين الخطا في هذا الكود ؟
احاول جلب جميع النصوص الموجودة بالموقع التي بينIP-WB
نجحت في جلب اول نص وحاولت عمل حلقة تكرارية الجلب جميع النصوص لاكن الامر لم ينجح
اين الخطا في هذا الكود ؟
احاول جلب جميع النصوص الموجودة بالموقع التي بينIP-WB
نجحت في جلب اول نص وحاولت عمل حلقة تكرارية الجلب جميع النصوص لاكن الامر لم ينجح
كود :
var
Start, Stop: Integer;
Str, SubStr, SubStr2, S: string;
iall : IHTMLElement;
i:Integer;
begin
if Assigned(WebBrowser1.Document) then
begin
iall := (WebBrowser1.Document AS IHTMLDocument2).body;
while iall.parentElement <> nil do
begin
iall := iall.parentElement;
end;
for I := 0 to WebBrowser1.OleObject.Document - 1 do
begin
Str := WebBrowser1.OleObject.Document[I];
Str := iall.outerHTML[i];
SubStr := 'IP';
SubStr2 := 'WB';
if Pos(SubStr, Str) > 0 then
begin
Start := Pos(SubStr, Str);
Stop := Pos(SubStr2, Str);
S := Copy(Str, Start + Length(SubStr) , Stop - (Start + Length(SubStr)));
Memo1.Text:= S;
end;
end;
end;
end;