delphi4arab منتديات دلفي للعرب

السلام عليكم
كيف بمكاني نقل النص من ويب برورس الى ليست فيو
Huh

وعليكم السلام ورحمة الله وبركاته

افترض انك تستقبل الstring الاتى من webbrowse

PHP كود :
"Ahmed Shoulah","Mohamed Shoulah","Delphi Arab","Coder Programmer" 

قم باستخدام الطريقة التالية لاضافتها الى ListView

PHP كود :
var
 MyString : string;
 I : Integer;
  LItem: TListViewItem;
begin
ListView1.BeginUpdate;
try
 MyString := '"Ahmed Shoulah","Mohamed Shoulah","Delphi Arab","Coder Programmer"';
 I := 0;
 while (length(MyString) > 0) do
 begin
  if MyString[i] = ',' then  Delete(MyString, 1, I);
   if MyString[i] = '"' then
   begin
   if Copy(MyString, 0, I -1) <> '' then
     begin
        LItem := ListView1.Items.Add;
        LItem.Text := Copy(MyString, 0, I -1);
     end;
     Delete(MyString, 1, I);
     I := 0;
   end;
   Inc(I);
 end;
finally
  ListView1.EndUpdate;
end;
end; 

شكرا لك لكن ماهي طريقة استخراج النص من الويب برورس واضافتها الى MyString

هل حاولت؟
لو ممكن بعد اذنك ترفق محاولاتك

function Parser(Buffer,Start,Finish Confused

tring)

tring;
var PosStart, PosFinish:Integer;
begin
PosStart:=Pos(Start, Buffer)+ Length(Start);
PosFinish:=Posex(Finish, Buffer,PosStart);
Result := Copy(Buffer, PosStart, PosFinish - PosStart);
end;

function GetHTML2(WebBrowser:TWebBrowser) Confused

tring;
begin
Result:=(WebBrowser.Document AS IHTMLDocument3).documentElement.outerHTML;
end;

حاولت استخدام فانكشن

procedure TForm3.WebBrowser1DocumentComplete(ASender: TObject;
const pDisp: IDispatch; const URL: OleVariant);
var
s,text Confused

tring;
item:TListItem;
begin
text:=GetHTML2(Webbrowser1);
s:=text;
item:=ListView1.Items.Add;
item.Caption:=Parser(s,'"','"');
end;

جرب هذا الكود سوف يخرج لك الText بعد فتح الصفحة "Documenet.body.innerText"

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
begin
 WebBrowser1.Navigate('https://www.google.com.eg/');
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; const URL: OleVariant);
  var
   // You Should add  mshtml to uses
   Documenet : IHtmlDocument2;
  begin
  Documenet := WebBrowser1.Document as IHTMLDocument2;
  ShowMessage(Trim(Documenet.body.innerText));
end; 

شكرا استفسار بسيط
لماذا قمت بي اضافة هذا السطر
ListView1.BeginUpdate;

حسب وثائق الDelphi
من اجل الحصول على افضل اداء "To achieve the best performance use BeginUpdate and EndUpdate"

الدلفي ضعيف في هته الامور ، عليك ب python او node.js احسن بطثير

محمودد

justnick

محمودد

justnick

محمودد

justnick

محمودد

justnick

Houdini