Web parse Değer alma yöntemi

Lord_Ares · Mesaj gönderen **Lord_Ares** » 08 Eyl 2011 03:53

arkadaşlar merak ettiğim bir konu var. Html parse ile uğraşırken ,
bilgi:= Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).Value
şeklinde websayfasındaki input bir alandaki değeri herhangi bir değişkene alabiliyorsak.
aşağıdaki webkodundaki HİZM.TAŞ.SAN.TİC.LTD.ŞTİ kısmını şu şekilde neden alamıyoruz. Alınabilirmi.

bilgi:= WebBrowser1.OleObject.Document.GetElementByID('ADRES').value;
veya
bilgi:= Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).Value

//// websayfası kodu
<TD align=left><SPAN id=ADRES >HİZM.TAŞ.SAN.TİC.LTD.ŞTİ.</SPAN> </TD>
/////
Eğer alabiliyorsak, parse işlemine gerek kalmaz

barutali · Mesaj gönderen **barutali** » 08 Eyl 2011 04:38

sadece sonuca ulaşmak için aşağıdaki @marman hocanın function ı işini görebilir..

Kod: Tümünü seç

Function aradansec( text, ilk, son:String ): String;
begin
   Delete(Text, 1, pos(ilk, Text) + Length(ilk)-1);
   Result := Copy(Text, 1, Pos(Son, Text)-1);
end;

orhancc · Mesaj gönderen **orhancc** » 08 Eyl 2011 04:42

Kod: Tümünü seç

uses
  MSHTML, SysUtils, Variants;

function GetElementById(const Doc: IDispatch; const Id: string): IDispatch;
var
  Document: IHTMLDocument2;    
  Body: IHTMLElement2;         
  Tags: IHTMLElementCollection; 
  Tag: IHTMLElement;           
  I: Integer;                   
begin
  Result := nil;

  if not Supports(Doc, IHTMLDocument2, Document) then
    raise Exception.Create('Invalid HTML document');

  if not Supports(Document.body, IHTMLElement2, Body) then
    raise Exception.Create('Can''t find <body> element');

  Tags := Body.getElementsByTagName('*');

  for I := 0 to Pred(Tags.length) do
  begin

    Tag := Tags.item(I, EmptyParam) as IHTMLElement;

    if AnsiSameText(Tag.id, Id) then
    begin
      Result := Tag;
      Break;
    end;
  end;
end;

Kullanımı:

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
  Elem: IHTMLElement;
begin
  Elem := GetElementById(WebBrowser1.Document, 'myid') as IHTMLElement;
  if Assigned(Elem) then
    ShowMessage(
      'Tag name = <' + Elem.tagName + '>'#10 +
      'Tag id = ' + Elem.id + #10 +
      'Tag innerHTML = "' + Elem.innerHTML + '"'
    );
end;

Lord_Ares · Mesaj gönderen **Lord_Ares** » 08 Eyl 2011 08:11

ilginiz için teşekkürler, fakat arkadaşlar ben zaten şu şekilde bilgiyi alabilyorum. Sanırım tam anlmatamdım. şöyle göstereyim.

bilgi:= Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).Value

benim sorduğum şu, yukarıdaki şekilde sadece input alanlarlarda geçerli ( edit, combobax gibi..) alanlardan bilgiyi alabiliyoruz.
Fakat,
<TD align=left><SPAN id=ADRES >HİZM.TAŞ.SAN.TİC.LTD.ŞTİ.</SPAN> </TD>aa

gibi alanlarında bi id numarası olmasına rağmen bilgiyi neden çekemiyoruz . Bu yüzden pos gibi fonksionlar ile parse etmek zorunda kalıyoruz.
Sonuçta oda id nurası olan bir nesne ve içerisine bilgi yazılabiliyor.(sayfanın içindeki değişkenden bilgiyi buraya çekiyor)

unicorn64 · Mesaj gönderen **unicorn64** » 09 Eyl 2011 08:09

Kod: Tümünü seç

Form1.WebBrowser1.OleObject.Document.Forms.Item(i).Elements.Item(j).innerHTML

şeklinde denediniz mi?

Delphi Forum

Web parse Değer alma yöntemi

Web parse Değer alma yöntemi

Re: Web parse Değer alma yöntemi

Re: Web parse Değer alma yöntemi

Re: Web parse Değer alma yöntemi

Re: Web parse Değer alma yöntemi