Acho que nestes casos, vc deveria colocar antes uma descrição do seu ambiente: qual versão do Delphi, do FB, e SO. Facilita as pessoas pensarem no seu problema.
----- Original Message ----- From: Charlestown Dias da Cunha To: delphi-br@yahoogrupos.com.br Sent: Thursday, November 13, 2008 8:33 AM Subject: [delphi-br] Aplicativo n-tier trava ao tentar carregar servidor Bom dia pessoal! Não tenho muita experiência em Delphi e estou "apanhando" com uma aplicação n-tier. Estou usando conexão DBX com firebird. O problema é que quando executo o cliente, o servidor deveria ser automaticamente carregado, mas o servidor chega a ir pro Tray mas fica travado e o cliente não termina de executar também. Já tentei de tudo mas nada dá certo. Não sei mais o que fazer, por isso estou recorrendo ao grupo. Segue abaixo alguns trechos do código. Grato, Charlestown Maringá-PR ---------------------------------------------------------- // DataModule //////////////////////////////////////////////////////// constructor TDM1.Create(AOwner: TComponent); begin inherited; SocketConnection1.Address := '127.0.0.1'; SocketConnection1.ServerName := 'OdontoServer.rdmMain'; ConnectionBroker1.Connected := True; if not ConnectionBroker1.Connected then ShowMessage('Não conectado!'); end; ///////////////////////////////////////////////////////////////////////////////////////// // RemoteDataModule //////////////////////////////////////////////////////// initialization // uRDMMain TComponentFactory.Create(ComServer, TrdmMain, Class_rdmMain, ciMultiInstance, tmApartment); end. //////////////////////////////////////////////////////// // Form do Servidor //////////////////////////////////////////////////////// procedure TfrmConfigServer.FormCreate(Sender: TObject); begin if FileExists(GetCurrentDir + '\OdontoDB.Ini') then begin ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoDB.Ini'); Try (*Texto := ArqIni.ReadString('OdontoDB', 'Database', ''); for i := 1 to length(Texto) do begin if Copy(Texto,i,1) = ':' then begin edBDIP.Text := Copy(Texto,1, i - 1); edBDName.Text := Copy(Texto,i + 1, length(Texto)); break; end; end; *) edBDArquivo.Text := ArqIni.ReadString('OdontoDB', 'Database', ''); edBDUsuario.Text := ArqIni.ReadString('OdontoDB', 'User_Name', ''); edBDSenha.Text := ArqIni.ReadString('OdontoDB', 'Password', ''); Finally ArqIni.Free; end; end else begin gravaOdontoDB; end; if FileExists(GetCurrentDir + '\OdontoServer.Ini') then begin ArqIni := TIniFile.Create(GetCurrentDir + '\OdontoServer.Ini'); Try edOSIP.Text := ArqIni.ReadString('Server', 'IP', ''); Finally ArqIni.Free; end; end else begin gravaOdontoServer; end; end; procedure TfrmConfigServer.gravaOdontoDB; begin ArqIni := TIniFile.Create(trim(GetCurrentDir) + '\' + 'OdontoDB.Ini'); Try ArqIni.WriteString('OdontoDB', 'DriverName', 'Interbase'); ArqIni.WriteString('OdontoDB', 'Database', edBDArquivo.Text); ArqIni.WriteString('OdontoDB', 'RoleName', 'RoleName'); ArqIni.WriteString('OdontoDB', 'User_Name', edBDUsuario.Text); ArqIni.WriteString('OdontoDB', 'Password', edBDSenha.Text); ArqIni.WriteString('OdontoDB', 'ServerCharSet', ''); ArqIni.WriteString('OdontoDB', 'SQLDialect', '3'); ArqIni.WriteString('OdontoDB', 'ErrorResourceFile', ''); ArqIni.WriteString('OdontoDB', 'LocaleCode', '0000'); ArqIni.WriteString('OdontoDB', 'BlobSize', '-1'); ArqIni.WriteString('OdontoDB', 'CommitRetain', 'False'); ArqIni.WriteString('OdontoDB', 'WaitOnLocks', 'True'); ArqIni.WriteString('OdontoDB', 'Interbase TransIsolation', 'ReadCommited'); ArqIni.WriteString('OdontoDB', 'Trim Char', 'False'); Finally ArqIni.Free; end; end; procedure TfrmConfigServer.gravaOdontoServer; begin ArqIni := TIniFile.Create(trim(GetCurrentDir) + '\' + 'OdontoServer.Ini'); Try ArqIni.WriteString('Server', 'IP', edOSIP.Text); Finally ArqIni.Free; end; end; //////////////////////////////////////////////////////// [As partes desta mensagem que não continham texto foram removidas] ------------------------------------------------------------------------------ No virus found in this incoming message. Checked by AVG - http://www.avg.com Version: 8.0.175 / Virus Database: 270.9.2/1785 - Release Date: 11/13/aaaa 09:12 [As partes desta mensagem que não continham texto foram removidas]