Você está aqui: Delphi ::: VCL - Visual Component Library ::: TWebBrowser

Acessando um formulário HTML em um TWebBrowser por meio de seu índice

Quantidade de visualizações: 14396 vezes

Em algumas situações gostaríamos de acessar um determinado formulário em uma página HTML carregada em um controle TWebBrowser e retorná-lo como um objeto da interface IHTMLFormElement. Nesta dica eu mostro como isso pode ser feito.

O primeiro passo é criar o documento HTML a ser usado no exemplo. Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

<html>
<head>
  <title>Acessando documentos HTML usando TWebBrowser</title>
</head>
<body>

<form name="form1" action="gravar.php" method="post">
  Usuário: <input type="text" name="usuario">
  <input type="submit" value="Enviar">
</form>

</body>
</html>

Note que este documento HTML contém um formulário com uma caixa de texto e um botão Enviar. Nossa intenção é acessar este formulário a partir de código Delphi e obter suas propriedades, a saber, name, action e method. Eis o código Delphi:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
var
  url: String;
begin
  // vamos carregar o documento HTML
  url := 'pagina.html';

  // vamos acessar a página
  WebBrowser1.Navigate(url);
end;

procedure TForm3.Button2Click(Sender: TObject);
var
  doc: IHTMLDocument2;
  form: IHTMLFormElement;
begin
  // uses MSHTML_TLB

  // vamos obter o documento representando a página web
  doc := WebBrowser1.Document as IHTMLDocument2;

  // o documento foi obtido com sucesso
  if doc <> nil then
    begin
      // vamos agora obter o formulário...queremos o primeiro formulário
      if doc.forms.length = 0 then
        begin
          ShowMessage('O documento HTML não contém formulários');
        end
      else
        begin
          form := doc.forms.item(0, '') as IHTMLFormElement;
          // vamos exibir algumas propriedades do formulário
          ShowMessage('Propriedade name: ' + form.name);
          ShowMessage('Propriedade action: ' + form.action);
          ShowMessage('Propriedade method: ' + form.method);
        end;
    end
  else
    begin
      ShowMessage('O documento HTML não pôde ser obtido.');
    end;
end;

Veja que, diferente de outros exemplos, aqui tivemos que usar a interface IHTMLDocument2 em vez de IHTMLDocument3 ou IHTMLDocument4. Isso acontece porque a interface IHTMLDocument2 é a única que permite acesso à propriedade forms do documento HTML.

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Link para compartilhar na Internet ou com seus amigos:

Delphi ::: Dicas & Truques ::: Imagens e Processamento de Imagens

Como carregar uma imagem JPG, convertê-la em Bitmap e desenhá-la no formulário usando Delphi

Quantidade de visualizações: 18437 vezes

Em algumas situações nós precisamos carregar uma imagem JPG, convertê-la em Bitmap e desenhá-la em nosso formulário. Nesta dica eu mostro como isso pode ser feito. Vamos começar lendo a imagem JPG a partir do diretório da aplicação:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  jpg: TJPEGImage;
begin
  // uses Jpeg; // não esqueça

  // vamos criar o bitmap
  bmp := TBitmap.Create;
  // vamos criar o JPG
  jpg := TJPEGImage.Create;

  try
    // vamos carregar a imagem JPG
    jpg.LoadFromFile('foto.jpg');
    // vamos convertê-la para Bitmap
    bmp.Assign(jpg);
    // vamos desenhar o bitmap no formulário
    // começando nas coordenadas x = 0; y = 0 a partir
    // do canto superior esquerdo da área cliente do formulário
    Form3.Canvas.Draw(0, 0, bmp);
  finally
    Jpg.Free;
    Bmp.Free;
  end;
end;

Veja que a técnica consiste em carregar a imagem JPG e convertê-la em Bitmap usando o método Assign() da classe TBitmap. Em seguida só precisamos usar o método Draw() do Canvas do formulário para desenhar a imagem já convertida.

Caso você precise carregar a imagem JPG em tempo de execução, basta colocar um TOpenPictureDialog no formulário e alterar o código do evento Click do botão para:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  jpg: TJPEGImage;
begin
  // uses Jpeg; // não esqueça

  if OpenPictureDialog1.Execute then
    begin
      // vamos criar o bitmap
      bmp := TBitmap.Create;
      // vamos criar o JPG
      jpg := TJPEGImage.Create;

      try
        // vamos carregar a imagem JPG
        jpg.LoadFromFile(OpenPictureDialog1.FileName);
        // vamos convertê-la para Bitmap
        bmp.Assign(jpg);
        // vamos desenhar o bitmap no formulário
        // começando nas coordenadas x = 0; y = 0 a partir
        // do canto superior esquerdo da área cliente do formulário
        Form3.Canvas.Draw(0, 0, bmp);
      finally
        Jpg.Free;
        Bmp.Free;
      end;
    end;
end;

Vamos complicar um pouco mais? Que tal uma função que carrega a imagem JPG, faz a conversão para Bitmap e retorna o Bitmap para o chamador? Veja:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

function jpg2bitmap(const imagem: String): TBitmap;
var
  bmp: TBitmap;
  jpg: TJPEGImage;
begin
  // uses Jpeg; // não esqueça
  // vamos criar o bitmap
  bmp := TBitmap.Create;
  // vamos criar o JPG
  jpg := TJPEGImage.Create;

  try
    // vamos carregar a imagem JPG
    jpg.LoadFromFile(imagem);
    // vamos convertê-la para Bitmap
    bmp.Assign(jpg);
  except
    bmp := nil;
  end;

  // vamos retornar o bitmap resultante
  Jpg.Free;
  Result := bmp;
end;

procedure TForm3.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
begin
  // vamos obter o Bitmap a partir da função personalizada
  bmp := jpg2bitmap('foto2.jpg');

  // a imagem Bitmap foi obtida com sucesso?
  if bmp <> nil then
    begin
      // vamos desenhar o bitmap no formulário
      // começando nas coordenadas x = 0; y = 0 a partir
      // do canto superior esquerdo da área cliente do formulário
      Form3.Canvas.Draw(0, 0, bmp);
      bmp.Free;
    end
  else
    ShowMessage('Não foi possível obter o Bitmap');
end;

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Delphi ::: VCL - Visual Component Library ::: TListBox

Como pesquisar e selecionar um item em uma ListBox do Delphi

Quantidade de visualizações: 16650 vezes

O trecho de código abaixo mostra como podemos usar a mensagem LB_SELECTSTRING da Windows API para pesquisar e selecionar um item em uma ListBox. Veja que aqui eu usei a função InputBox() para permitir ao usuário inserir o texto a ser pesquisado. Note também o valor -1 fornecido como wParam para a função SendMessage(). Este valor faz com que a busca se inicie no primeiro item da lista e continue até o final da lista. Veja o código:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm1.Button2Click(Sender: TObject);
var
  pesquisa: string;
begin
  // vamos solicitar o texto a ser pesquisado na ListBox
  pesquisa := InputBox('Pesquisar', 'Informe o texto', '');

  // vamos pesquisar e selecionar o item encontrado
  if SendMessage(ListBox1.Handle, LB_SELECTSTRING, - 1,
      Longint(PChar(pesquisa))) <> LB_ERR then
    begin
      ShowMessage('O texto pesquisado foi encontrado no ' +
        'índice: ' + IntToStr(ListBox1.ItemIndex));
    end
  else
    begin
      ShowMessage('O texto pesquisado não foi encontrado.');
    end;
end;

Note que a busca efetuada por LB_SELECTSTRING não é sensitiva a maiúsculas e minúsculas. Assim, Osmar e OSMAR são tratadas igualmente.

Para fins de compatibilidade, esta dica foi escrita usando Delphi 2009.

Delphi ::: dbExpress ::: TSQLDataSet

Como obter a quantidade de campos nos registros retornados em um TSQLDataSet do Delphi usando a propriedade FieldCount

Quantidade de visualizações: 10928 vezes

Em algumas situações precisamos saber a quantidade de campos retornados em um objeto TSQLDataSet depois de dispararmos o comando SQL SELECT definido em sua propriedade CommandText. Para isso podemos usar a propriedade FieldCount. Veja sua assinatura:

property FieldCount: Integer;

Esta propriedade é definida originalmente em TDataSet e herdada pela classe TSQLDataSet.

Veja um trecho de código no qual disparamos um comando SQL SELECT em uma tabela contatos e exibimos a quantidade de campos dos registros retornados:

----------------------------------------------------------------------
Se precisar de ajuda com o código abaixo, pode me chamar
no WhatsApp +55 (62) 98553-6711 (Osmar)
----------------------------------------------------------------------

procedure TForm3.Button1Click(Sender: TObject);
begin
  // vamos definir o comando SQL a ser executado
  SQLDataSet1.CommandText := 'SELECT * FROM contatos';

  // vamos executar o comando
  SQLDataSet1.Open;

  // vamos obter a quantidade de registros retornados
  ShowMessage('Quantidade de campos retornados: ' +
    IntToStr(SQLDataSet1.FieldCount));
end;

Ao executarmos este trecho de código teremos uma mensagem com o seguinte texto:

Quantidade de campos retornados: 5.

Note que a propriedade FieldCount inclui somente os campos listados na propriedade Fields. Quaisquer campos agregados listados pela propriedade AggFields não são incluídos na contagem.

Desafios, Exercícios e Algoritmos Resolvidos de Delphi

Ler uma temperatura em graus Celsius e apresentá-la convertida em graus Fahrenheit - Exercício Resolvido de Delphi

Um programa Delphi que lê dois números e mostra a soma, subtração, multiplicação e a divisão dos números lidos - Exercício Resolvido de Delphi

Como calcular média ponderada em Delphi - Ler o nome de um aluno e as notas de três provas - Exercícios Resolvidos de Delphi

Veja mais Dicas e truques de Delphi

Como carregar uma DLL a partir de seus programas Delphi usando Static Loading (carregamento estático)

Como gerar um número aleatório de 0 a 10 em Delphi usando a função Random()

Como definir o conteúdo de um TEdit do Delphi em tempo de execução usando a função SendMessage() da API do Windows e a mensagem WM_SETTEXT

Como copiar um arquivo em Delphi usando a função CopyFile() da API do Windows

Como usar a função FormatFloat() para formatar valores de ponto-flutuante em Delphi

Como adicionar ou subtrair dias de uma data em Delphi usando a função IncDay()

Como obter o índice do item selecionado em uma ListBox do Delphi usando a propriedade ItemIndex da classe TListBox

Como calcular o cateto oposto dadas as medidas da hipotenusa e do cateto adjascente em Delphi

Como usar a propriedade PickList para definir ou obter a lista de escolhas para uma determinada coluna do TDBGrid do Delphi

Como calcular MDC em Delphi

Dicas e truques de outras linguagens

C++ - Como pesquisar uma substring em uma string C++ usando o método find() e retornar o índice do primeiro caractere

JavaScript - Como construir uma determinada data e hora usando o construtor do objeto Date do JavaScript

Python - Exercícios Resolvidos de Python - Como converter de binário para decimal em Python usando o laço for

C++ - Como testar se um número é primo em C++

Java - Como converter uma imagem colorida para tons de cinza em Java usando o filtro GrayFilter - Processamento de imagens em Java

Java - Exercícios Resolvidos de Java - Como retornar o código ASCII associado a um caractere em Java - Ler um caractere e retornar o código ASCII correspondente

Delphi - Como converter um valor inteiro em um caractere usando a função Chr() do Delphi

Node.js - Node.js Express.js - Como escrever sua primeira aplicação Express.js

Java - Como usar o método System.out.printf() do Java para converter um valor na base decimal para hexadecimal

MySQL - Como adicionar horas ao valor de um campo DATETIME ou TIME usando a função ADDTIME() do MySQL

Códigos Fonte

Programa de Gestão Financeira Controle de Contas a Pagar e a Receber com Cadastro de Clientes e Fornecedores

Software de Gestão Financeira com código fonte em PHP, MySQL, Bootstrap, jQuery - Inclui cadastro de clientes, fornecedores e ticket de atendimento
Diga adeus às planilhas do Excel e tenha 100% de controle sobre suas contas a pagar e a receber, gestão de receitas e despesas, cadastro de clientes e fornecedores com fotos e histórico de atendimentos. Código fonte completo e funcional, com instruções para instalação e configuração do banco de dados MySQL. Fácil de modificar e adicionar novas funcionalidades. Clique aqui e saiba mais

Controle de Estoque completo com código fonte em PHP, MySQL, Bootstrap, jQuery - 100% funcional e fácil de modificar e implementar novas funcionalidades
Tenha o seu próprio sistema de controle de estoque web. com cadastro de produtos, categorias, fornecedores, entradas e saídas de produtos, com relatórios por data, margem de lucro e muito mais. Código simples e fácil de modificar. Acompanha instruções para instalação e criação do banco de dados MySQL. Clique aqui e saiba mais

Linguagens Mais Populares

1º lugar: Java
2º lugar: Python
3º lugar: C#
4º lugar: PHP
5º lugar: Delphi
6º lugar: C
7º lugar: JavaScript
8º lugar: C++
9º lugar: VB.NET
10º lugar: Ruby

Você está aqui: Delphi ::: VCL - Visual Component Library ::: TWebBrowser

Acessando um formulário HTML em um TWebBrowser por meio de seu índice

Delphi ::: Dicas & Truques ::: Imagens e Processamento de Imagens

Como carregar uma imagem JPG, convertê-la em Bitmap e desenhá-la no formulário usando Delphi

Delphi ::: VCL - Visual Component Library ::: TListBox

Como pesquisar e selecionar um item em uma ListBox do Delphi

Delphi ::: dbExpress ::: TSQLDataSet

Como obter a quantidade de campos nos registros retornados em um TSQLDataSet do Delphi usando a propriedade FieldCount

Questões de Concurso para Engenharia Civil

Exercícios Resolvidos

Bancos de Dados

Questões de Concurso

Frameworks

Projetos e Códigos Fonte

Especializações

Calculadoras

Ferramentas

Todas as Linguagens, Frameworks, Biliotecas e Bancos de Dados

Compre pelo WhatsApp: +55 (062) 98553-6711

E-Book 650 Dicas e Truques de Python - Com comentários em Português

PDF COM 1.200 PÁGINAS

Apenas R$ 32,90