Fórum Como Criar essa DLL. #226469

unit _menu;

interface
Uses
  SysUtils, DateUtils, ADODB, StrUtils,Classes,HTTPProd,HTTPApp;

type TMenu = class
       cd_noticia           : Integer;
       cd_cat_noticia       : Integer;
       cd_lg                : Integer;
       titulo               : String;
       chamada              : String;
       cd_destaque          : integer;
       img_destaque         : String;
       img_legenda          : String;
       data_noticia         : String;
       link                 : String;
       target               : Integer;
       data                 : String;
end;
type TobjMenu = class(TComponent)
      menu     : TMenu;
  private
      function    fu_menu(posicao : Integer; opcao:String): string;
  public
      Constructor Create(AOwner: TComponent);
      destructor  Destroy; override;
      Procedure   pr_rmenu(codigo : Integer; const TagString: String; TagParams: TStrings; var ReplaceText: String;Request : TWebRequest; var page:TPageProducer);
end;

Var
   objMenu    : TobjMenu;
   
implementation

uses funcoes, variaveis, md_conteudo;

Procedure TobjMenu.pr_rmenu(codigo : Integer; const TagString: String; TagParams: TStrings; var ReplaceText: String;Request : TWebRequest; var page:TPageProducer);
Var
   tp_mes , tp_ano  : integer;
Begin
   if (TagParams.Values[´nome´] = ´MENU´) Then
     Begin
       page.HTMLDoc.Text := fu_menu(strtoint(TagParams.Values[´posicao´]),TagParams.Values[´opcao´]);
       ReplaceText  := page.Content ;
     end;

end;


function TobjMenu.fu_menu(posicao : Integer; opcao:String): string;
begin
result := ´MENU´;
end;

//================================\\
// Cria a Classe na Memoria       \\
//================================\\
Constructor TobjMenu.Create(AOwner: TComponent);
Begin
  inherited Create(AOwner);
  menu := TMenu.Create;

end;
//================================\\
// Destroi a Classe da Memória     \\
//================================\\
Destructor TobjMenu.Destroy;
begin
   menu.Destroy;
   inherited Destroy;
end;

end.