Codigo dentro do arquivo DPR (no view source)

[[VAZA] 0]

Pessoal..eu posso fazer isso dentro do DPR:?begin Application.Initialize; Application.Title := 'VE PROVEDOR INTERNET'; Application.CreateForm(TUDMprincipal, UDMprincipal); Application.CreateForm(TForm1, Form1);mysql_principal.Connected := false;try mysql_principal.HostName := '192.168.0.22'; mysql_principal.Connected := true;Excepttry mysql_principal.HostName := := InputQuery('ERRO NA CONEXÃO', 'Selecione o IP do servidor de Banco de Dados:', s); mysql_principal.Connected := true; conexaook := true;Except Showmessage('Desculpe, Impossível conectar ao servidor'); application.Terminate; end end; Application.Run;end.Tipo..to tentando um try para ver se conecta ao servidor...só que ta dando erro no codigo...ele nao ta achando o componente mysql_principal.Falow

[LODVini 0]

nunca testei isso :D

mas tente fazer o seguinte:

deixe o componente mysql_principal no desenvolvimento ja desconectado, e depois tente fazer ele conectar no mysql_principal protegido com o try.

 

ocorre erro pq nao acha o banco com o ip passado?

 

pensei em algo assim:

// no show do form...   try	  mysql_principal.HostName := '192.168.0.22';	  mysql_principal.Connected := true;   Except	  try		  mysql_principal.HostName := := InputQuery('ERRO NA CONEXÃO', 'Selecione o IP do servidor de   Banco de Dados:', s);		  mysql_principal.Connected := true;		  conexaook := true;	  Except...

avisa se funcionar :D

[William Thiago 0]

o mysql_principal está dentro do datamodule UDMprincipal?você tem que referenciar ele direto, e ele tem que ser um objeto/metodo/propriedade com proteção simples (public por exemplo) que permita ser visto fora do UDMprincipal....UDMprincipal.mysql_principal. .... ;) se estiver em um outro formulario, ou datamodule, ele deve ser criado antes e depois usado na referencia tb..Espero ter ajudado...

[[VAZA] 0]

Ele esta dentro de um datamodule principal e que esta sendo carregado como primeiro objeto do sistema.