Artigo Clube Delphi 73 - Delphi e JavaScript

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Artigo da Revista Clube Delphi Edição 73 - Delphi e JavaScript

Esse artigo faz parte da revista Clube Delphi Edição 73. Clique aqui para ler todos os artigos desta edição

Atenção: por essa edição ser muito antiga não há arquivo pdf para download desta revista. os artigos disponíveis somente em doc.

 

Delphi e JavaAcript

Usando JavaScript de maneira organizada

 

Não são raras as vezes em que precisamos adicionar algum comportamento dinâmico a uma página Web. Exibir mensagens de alerta ou confirmação, redirecionar usuários para outras URLs, alterar a visibilidade de um controle, são tarefas necessárias em qualquer aplicação.

Porém, nem sempre queremos fazer uma nova requisição ao servidor para resolver coisas simples. Este artigo trará algumas idéias de como solucionar isso via JavaScript, de maneira simples e organizada.

 

A classe TJavaScriptDirector

 

O primeiro passo é criar uma classe que ficará responsável por manipular todo o código JavaScript da nossa aplicação. A classe TJavaScriptDirector é um exemplo (Listagem 1).Você pode encontrar o código completo da classe no endereço para download deste artigo, e apenas adicionar a unit ao projeto que fará uso das suas funcionalidades.

 

Listagem 1. A unit JavaScriptDirector

 

unit JavaScriptDirector;

 

interface

 

uses

    System.Web. System.Web.UI.

    System.Web.UI.HtmlControls,

    System.Web.UI.WebControls. System.Text;

 

type

    TJavaScriptDirector = class

    private

       class function HTMLEncode (

         s: string); string; static;

       class procedure RegisterStartupScript (

          AOwner: System.Web.UI.Page; Key: string;

          Code: stringBuilder); static;

 

       class procedure PrintStartScrip t(

          Code: stringBuilder); static;

       class procedure PrintEndScript (

          Code: stringBuilder); static;

       class procedure PrintConfirm (Question: string;

          Code: stringBuilder); static;

       class procedure PrintAlert (Information: string;

          Code: stringBuilder); static;

       class procedure PrintRedirect (ToPage: string;

          Code: stringBuilder); static;

"

A exibição deste artigo foi interrompida :(
Este post está disponível para assinantes MVP

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?