Fórum Recuperar valores do HTMl e salvar na tabela #351066

procedure RecuperaValorHTML;
var
 Doc: IHTMLDocument2;
 I: Integer;
 Element: OleVariant;
 Elements: IHTMLElementCollection;

 anexo : string;

 Checado : Boolean;
 StringTemp,ValueCheck,ResultSubs : string;

begin
Checado := false;
Doc := Wb.Document as IHTMLDocument2;
Elements := Doc.All;

   for I := 0 to Elements.length - 1 do
   begin
      Element := Elements.item(I, varEmpty);

          if (UpperCase(Element.tagName) = ´INPUT´) and (UpperCase(Element.Type) = ´CHECKBOX´) then
          begin
              if (Element.Checked = true) then
              begin
                ValueCheck := Element.value;
                StringTemp := ValueCheck;
                Checado := true;
                //ShowMessage(´CheckBox: ´ + ValueCheck[i]);
              end;
          end;

          // edit responável pelo resultado da substancia escolhida
          if (UpperCase(Element.tagName) = ´INPUT´) and (UpperCase(Element.Type) = ´TEXT´) then
          begin
              ResultSubs := ReplaceStr(RemoveChar(Element.Value),´.´,´,´);// transforma a variavel em apenas numeros e virgula
              //ShowMessage(´edit: ´ + ResultSubs[i]);
              if Checado = true then
              begin
                Checado := false;
                InsereSubs( StringTemp, ResultSubs);
              end;
          end;

   end; // final do laço For
end;

procedure insereSubs(ID, Resultado: string);
begin
  // insere as substâncias e seus resultados no CdsSubstancias
   cdsSubstancias.Open;
   cdsSubstancias.Insert;
   cdsSubstanciasID.AsInteger        := StrToint(ID);
   cdsSubstanciasResultado.AsString  := Resultado;
   cdsSubstancias.Post;
end;