delph iи twebbrowser

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by realcoder, 17 Mar 2011.

  1. realcoder

    realcoder Member

    Joined:
    9 Dec 2010
    Messages:
    226
    Likes Received:
    11
    Reputations:
    4
    как в twebbrowser программено выделить радиобокс(желательно без использования js)?
    к примеру есть

    <input type=radio name=somename value="m">
    и
    <input type=radio name=somename1 value="j">

    как мне через ole объект браузера выделить чекбокс
    somename?
     
  2. realcoder

    realcoder Member

    Joined:
    9 Dec 2010
    Messages:
    226
    Likes Received:
    11
    Reputations:
    4
    траблу решил, если кому интересно:

    Code:
     
    function Fillcheck(WebBrowser: TWebBrowser; FieldName,item: string; Value: boolean): Boolean;
      var
        i, j: Integer;
        FormItem: Variant;
      begin
        Result := False;
        //no form on document
      if WebBrowser.OleObject.Document.all.tags('FORM').Length = 0 then
        begin
          Exit;
        end;
        //count forms on document
      for I := 0 to WebBrowser.OleObject.Document.forms.Length - 1 do
        begin
          FormItem := WebBrowser.OleObject.Document.forms.Item(I);
          for j := 0 to FormItem.Length - 1 do
          begin
            try
              //when the fieldname is found, try to fill out
            if (FormItem.Item(j).Name = FieldName)and(FormItem.Item(j).value=item) then
              begin
    
                 FormItem.Item(j).checked:=true;
                 Result := True;
              end;
            except
              Exit;
            end;
          end;
        end;
      end;
    
    функция выделяет чебокс или радио с заданным значением и именем