Ver Mensaje Individual
  #3  
Antiguo 14-04-2013
velario velario is offline
Registrado
NULL
 
Registrado: abr 2013
Posts: 1
Reputación: 0
velario Va por buen camino
Hola, yo tambien estoy trabajando en algo relacionado con la automatizacion por web y tambien me encontre con muchos problemas, al final me cree una unit con las funciones necesarias para simplificarme las cosas.
En particular tu problema creo que radica en que deberias recorrer con un for todos los "FORM" que contiene la pagina para asegurarte de que lo encuentras en algun lado.
Te dejo una de las funciones que hice a ver si te vale tal cual o por lo menos el codigo te aclara algo.

Código Delphi [-]
function clickonvalue(value_: string; web: TWebbrowser): Boolean;
var
  Item: Variant;
  I, j: Integer;
begin
  Result := False;
  if web.OleObject.Document.all.tags('FORM').Length = 0 then
  begin
    Result := False;
    Exit;
  end;
  for I := 0 to web.OleObject.Document.forms.Length - 1 do
  begin
    Item := web.OleObject.Document.forms.Item(I);
    for j := 0 to Item.Length - 1 do
    begin
      try
        if Item.Item(j).Value = value_ then
        begin
          Item.Item(j).Click;
          Result := True;
          Exit;
        end;
      except
        Result := False;
        Exit;
      end;
    end;
  end;
end;

Saludos.
Responder Con Cita