(Resolvido) Adicionar Codigo em Tempo de Execucao

[Geomar Canjundo]

Olá Pessoal,

Alguém sabe como faço para adicionar código em tempo de Execucao, se for possível fazer isso. A minha ideia é, após o inicio do Programa, ele escreva o conteudo armazenado num variável O meu codigo vai abaixo:

with ModuloDados.QryPerfil do
   begin
     Close;
     Sql.Add(' AND P.CODIGO_GRUPO = :GRUPO AND E.NOME_EMPRESA = :EMPRESA ');
     Parameters.ParamByName('GRUPO').Value:=grupo;
     Parameters.ParamByName('EMPRESA').Value:=empresa;
     open;
     if IsEmpty then
      begin
        FormPrincipal.rbMenu.Destroy;
      end
      else
       begin
       registo:=0;
         First;
         while registo <RecordCount do
         begin
              Perfil(ModuloDados.QryPerfilPRIVILEGIO.Text); // Função contendo o código que será escrito, armazenado na tabela
              next;
              Inc(registo, 1)
         end;
       end;
        FormPrincipal.empresa:=ModuloDados.QryPerfilCODIGO_EMPRESA.AsInteger;
        FormPrincipal.utilizador:=ModuloDados.QryUtilizadoresUTILIZADOR.Text;
        FormPrincipal.ShowModal;
   end;

Aguardo o vosso parecer,

Obrigado.

[Jhonas]

Alguém sabe como faço para adicionar código em tempo de Execucao, se for possível fazer isso

amigo, voce tem que ser mais claro quanto ao que quer fazer...

a que tipo de código voce esta se referindo ? delphi ? assembler ? Php ? Script ?

quanto mais detalhada a sua dúvida, mais rapido terá uma resposta .. ok ?

abraço

[Geomar Canjundo]

Alguém sabe como faço para adicionar código em tempo de Execucao, se for possível fazer isso

amigo, voce tem que ser mais claro quanto ao que quer fazer...

a que tipo de código voce esta se referindo ? delphi ? assembler ? Php ? Script ?

quanto mais detalhada a sua dúvida, mais rapido terá uma resposta .. ok ?

abraço

Viva Jhonas,

Obrigado pela dica.

O código que quero adicionar é delphi. Esse código está armazenado num dos campos da tabela em que é feita a consulta. Eu quero antes da abertura do FormPrincipal, o sistema adicione esse conteudo armazenado na tabela (FormClientes.visible:=False/True) no código fonte já existente.

Espero ter sido mais claro...

[Jhonas]

while registo <RecordCount do
   begin
       Perfil(ModuloDados.QryPerfilPRIVILEGIO.Text); // Função contendo o código que será escrito, armazenado na tabela
       next;
       Inc(registo, 1)
   end;

amigo, quando falo para detalhar é detalhar mesmo .... observe:

voce disse que quer usar uma função...

depois que esse código está armazenado num dos campos da tabela em que é feita a consulta.

se eu entendi direito, voce quer colocar um codigo ( por exemplo: FormClientes.visible:=False/True que esta num campo da tabela ) e depois tentar adicionar esse código ao código já existente ( ou seja o seu programa executavel )

se for isso não é possivel, pois se fosse, seria uma farra para os hackers

o que voce pode fazer é criar dlls externas ( que contenham as funções ) que podem ser chamadas pelo seu programa

abraço

[Geomar Canjundo]

while registo <RecordCount do
   begin
       Perfil(ModuloDados.QryPerfilPRIVILEGIO.Text); // Função contendo o código que será escrito, armazenado na tabela
       next;
       Inc(registo, 1)
   end;

amigo, quando falo para detalhar é detalhar mesmo .... observe:

voce disse que quer usar uma função...

depois que esse código está armazenado num dos campos da tabela em que é feita a consulta.

se eu entendi direito, voce quer colocar um codigo ( por exemplo: FormClientes.visible:=False/True que esta num campo da tabela ) e depois tentar adicionar esse código ao código já existente ( ou seja o seu programa executavel )

se for isso não é possivel, pois se fosse, seria uma farra para os hackers

o que voce pode fazer é criar dlls externas ( que contenham as funções ) que podem ser chamadas pelo seu programa

abraço

Jhonas o seu entendimento foi perfeito, e sua explicação mais clara ainda, obrigado pela ajuda. Vou criar as DLL e tentar usa-las

Obrigado pela ajuda,

Valeu