Servidor De Aplicação Datasnap.

[CelsoVS]

Fiz um pequeno aplicativo no Delphi XE2, que vai funcionar como Servidor de Aplicação DataSnap. Ele roda em minha máquina de desenvolvimento, mas quando o coloco em outra máquina, que é onde ele vai ter que rodar mesmo, ele dá erro ao carregar o aplicativo. O que eu teria que instalar nessa máquina para que ele rode? Estou usando o Firebird 1.5. Alguém poderia me ajudar nisso ? Não tenho a menor idéia do que está faltando, mas sei que tem alguma coisa instalado na minha máquina que tem que ser instalado na máquina do cliente. E é algo referente a acesso a dados, porque antes de implementar rotinas que acessam o BD ele não dava erro.

 

Erro mostrado:

http://arquivo.devmedia.com.br/forum/imagem/12069-20141103-130335.jpg

Editado 3 Novembro, 2014 por CelsoVS

[EMBarbosa]

Se você está utilizando o FIrebird, provavelmente tenha que instalar o Firebird. Mas sem a mensagem de erro não dá pra saber.

[CelsoVS]

Olá Elton, boa tarde.

 

Obrigado pela atenção, mas a mensagem que ele mostra não diz muita coisa. Quanto ao Firebird, eu já instalei e outro aplicativo funciona com ele.

 

Editado 3 Novembro, 2014 por CelsoVS

[EMBarbosa]

Boa tarde.

O que aparece quando clica em exibir detalhes do problema?

Você tentou em outras máquinas com outro sistema operacional? Por falar nisso, qual é o sistema?

[CelsoVS]

Elton, o sistema operacional é Windows 7 Ultimate. Seguem os detalhes do erro:

 

Assinatura do problema:

  Nome do Evento de Problema: APPCRASH

  Nome do Aplicativo: ServidorCSB.exe

  Versão do Aplicativo: 1.0.0.0

  Carimbo de Data/Hora do Aplicativo: 54554b57

  Nome do Módulo de Falhas: KERNELBASE.dll

  Versão do Módulo de Falhas: 6.1.7600.16385

  Carimbo de Data/Hora do Módulo de Falhas: 4a5bdaae

  Código de Exceção: 0eedfade

  Deslocamento de Exceção: 00009617

  Versão do sistema operacional: 6.1.7600.2.0.0.256.1

  Identificação da Localidade: 1046

  Informações Adicionais 1: 9262

  Informações Adicionais 2: 9262d9ac73b0024f7b8944c2ac606a2f

  Informações Adicionais 3: 201d

  Informações Adicionais 4: 201d755540466d9504a251f88b4ee2b5

[EMBarbosa]

Você copiou a midas.dll para a pasta do seu aplicativo? Poderia ser um problema de versão dela?

[CelsoVS]

Olá Elton, boa tarde.

 

Eu realmente não tinha me lembrado disso. Agora que vc me lembrou, eu copiei a midas e não funcionou. Compilei ela com o aplicativo, e também não funcionou.

[Juliomar Marchetti]

Boa noite

Tente colocar um log em sua aplicação pra poder achar o problema e de onde ele está se originando!

[xyberx]

 Perguntas básicas :

 

Você usa FireDAC ?

 Qual o componente de conexão ?

 Se usa fbclient.dll ela está no dir da aplicação ?

 Seu Windows é x64 se for tem a fbclient.dll x64 na pasta SysWOL ?

  

 Eu tenho uns WebServices na empresa (800 mais ou menos em vários tipos de ambientes de produção), tive vários problemas no Windows.

 

 1 - Erro pelo Serviço do Firewall estar desabilitado, tem um log de erro sobre isso no site da microsoft com a solução. (http://support.microsoft.com/kb/2530126/pt-br)

 2 - Faltando a Midas.dll que usei. Utilizar na pasta do seu programa o mesmo midas que utilizou para programar, pois o cliente pode ter outro sistema em Delphi mais velho que tem uma midas muito velha que te daria erro. (Para solucionar isso adicione a unit MidasLIB no seu projeto que o mesmo manda a Midas.dll embarcada no projeto).

 3 - No registro do Windows a Midas.dll que estava registrada estava em um path que não existe mais. (Esse foi o problema que tive que me dava o mesmo erro que o seu). Solução : Entrar no regedit, mandar localizar tudo com midas.dll, alterar o path do valor da sequência que vai aparecer nas chaves que registraram a midas.dll para o path correto onde ela se encontra atualmente.

 4 - Regclean estragou o registro. esse caso eu utilizei o RegInOut (Esse programa corrige o registro do Windows) esse programa me salvou também pois corrigiu o Registro e tchau.

 5 - Problemas de permissão na Pasta do sistema. Isso também me deu problemas tendo eu que mudar a permissão da pasta do grupo TODOS para acesso a tudo, pois depende do que tem no seu sistema você precisa de Privilégio ADMIN.

 6 - Usuário contaminado. Esse aqui eu somente criei outro user novo no Windows e abri, nele funcionava tranquilo, copiei as coisas do cliente para o novo USER e tchau.

 

 Coloquei para você uma pequena lista de problemas que tive com WebServices que desenvolvi aqui na empresa com Delphi XE5 e XE6, mais tem alguns outros porém o seu problema é mais para a opção 3 que citei, tente ela primeiro se não for, aí tente na sequência que ditei.

 O erro é igual, não dava detalhes nem nada, achei por procurar mesmo.

Editado 4 Novembro, 2014 por xyberx

[CelsoVS]

Olá conterrâneo xyberx.

 

Boa noite e obrigado pela ajuda. Passei o dia hoje checando sua variada lista . O triste é que não consegui sair do lugar e o erro persiste. Vou continuar tentando e se alguém se lembrar de algo mais que possa me tirar dessa, eu agradeço de coração. 

 

Eu uso Win 7 32bits e o aplicativo é em Delphi XE2 com DBExpress. Ainda não fiz nada com FireDAC, mas pretendo conhecê-lo em breve, assim que sair do sufôco. 

 

Não sei exatamente o que é preciso instalar, além do Firebird. Tenho outro aplicativo em Delphi 7 que usa o mesmo BD e roda sem problemas nessa máquina. Acho que falta alguma coisa (dll ... ) referente ao DataSnap, se é que não estou dizendo bobagem.

 

Abç, e obrigado mesmo pela ajuda.

[xyberx]

Olá conterrâneo xyberx.

 

Boa noite e obrigado pela ajuda. Passei o dia hoje checando sua variada lista . O triste é que não consegui sair do lugar e o erro persiste. Vou continuar tentando e se alguém se lembrar de algo mais que possa me tirar dessa, eu agradeço de coração. 

 

Eu uso Win 7 32bits e o aplicativo é em Delphi XE2 com DBExpress. Ainda não fiz nada com FireDAC, mas pretendo conhecê-lo em breve, assim que sair do sufôco. 

 

Não sei exatamente o que é preciso instalar, além do Firebird. Tenho outro aplicativo em Delphi 7 que usa o mesmo BD e roda sem problemas nessa máquina. Acho que falta alguma coisa (dll ... ) referente ao DataSnap, se é que não estou dizendo bobagem.

 

Abç, e obrigado mesmo pela ajuda.

 

 Como seu aplicativo é DBX tenho quase certeza que você esqueceu a dll do driver do DBX que mudou nos Delphi XE.

 No delphi 7 era dbexpint.dll por isso seu aplicativo funciona em Delphi 7 nesta máquina, no Delphi XE6 é dbxfb.dll que caso você utilize o Delphi XE2 e não for essa, clique em Params da sua conexão e verifique a LibraryName, verifique também se a GetDriverFunc está getSQLDriverINTERBASE.

 

 Isso também dá o erro acima.

 

 Se o seu programa foi portado do Delphi 7, delete a conexão e adicione novamente pois aí o XE vai recriar com os parametros corretos.

 

 Caso ainda tenha problemas, email para [email protected] que trocamos mais informações ao invés de poluir o Forum e postamos somente o resultado final...

 Caso resolvido, poste os resultados para as pessoas terem acesso a solução...VLW...

Editado 5 Novembro, 2014 por xyberx

[CelsoVS]

Senhores, boa tarde!

 

Pelo menos, descobri onde ocorre o erro:

 

Initialization

  Try

    //{

    Con := TDBXConnectionFactory.GetConnectionFactory.GetConnection ----------> O erro ocorre nessa linha

                                ('FB_CONEXAO','SYSDBA','masterkey');

    //}

    DataSet     := Con.CreateCommand;

  Except

    On E:Exception Do

       raise Exception.Create ( 'Conectando o Banco de Dados.' )

    ;

    End

  ;

end.

[xyberx]

 

Senhores, boa tarde!

 

Pelo menos, descobri onde ocorre o erro:

 

Initialization

  Try

    //{

    Con := TDBXConnectionFactory.GetConnectionFactory.GetConnection ----------> O erro ocorre nessa linha

                                ('FB_CONEXAO','SYSDBA','masterkey');

    //}

    DataSet     := Con.CreateCommand;

  Except

    On E:Exception Do

       raise Exception.Create ( 'Conectando o Banco de Dados.' )

    ;

    End

  ;

end.

 

 

 Verifica a dbxfb.dll que caso você utilize o Delphi XE2 e não for essa, clique em Params da sua conexão e verifique a LibraryName, verifique também se a GetDriverFunc está getSQLDriverINTERBASE que pode estar com problema.

 

 Verifique os parâmentros da conexão 'FB_CONEXAO' pois se é um INI pode ser que ele está configurado no LibraryName com dbexpint.dll e teria de ser o dbxfb.dll então está te dando o erro.

 Muita gente utiliza ini's de conexão com DBX mais esqueceram que mudou a biblioteca de conexão. Verifique se for ini as opções que lhe falei acima porém ao invés de ir em Params do componentes vá no seu ini e olhe isso pois no XE tem como paramentro de conexão a libdriver e a function driver, no Delphi 7 você definia isso em propriedades definidas no XE é em parâmetro, caso tenha portado o ini de uma conexão Delphi 7, troque o ini pelo que está funcionando no outro PC, pois ele pode estar configurado corretamente.

[CelsoVS]

Boa tarde xyberx.

Não está em INI ainda não. Estou tentando fazer funcionar o principal primeiro, para depois organizar a casa, parametrizando tudo com .ini e tudo mais. Só que estou agarrado nisso e não consigo evoluir de forma nenhuma. Acredito que funciona na minha máquina de desenvolvimento porque ao instalar o Delphi, se instala tambem toda a parte do DBExpress. Ma quando vou colocar em outra máquina que não tem nada instalado, precisa de ter uma forma de instalar esse tal DBExpress, sem ter que instalar o Delphi, é claro. Ou, se é que isso é possível, compílar o executável com ele embarcado. Não sei se falei alguma bobagem, mas tenho que tentar de tudo. O prazo está correndo e eu ficando louco com isso. ... kkk ...

[xyberx]

Boa tarde xyberx.

Não está em INI ainda não. Estou tentando fazer funcionar o principal primeiro, para depois organizar a casa, parametrizando tudo com .ini e tudo mais. Só que estou agarrado nisso e não consigo evoluir de forma nenhuma. Acredito que funciona na minha máquina de desenvolvimento porque ao instalar o Delphi, se instala tambem toda a parte do DBExpress. Ma quando vou colocar em outra máquina que não tem nada instalado, precisa de ter uma forma de instalar esse tal DBExpress, sem ter que instalar o Delphi, é claro. Ou, se é que isso é possível, compílar o executável com ele embarcado. Não sei se falei alguma bobagem, mas tenho que tentar de tudo. O prazo está correndo e eu ficando louco com isso. ... kkk ...

 

 Já respondeu a pergunta tecnicamente.

 

 O DBX não precisa ser instalado, só as Libs que estão em Params estarem no path da aplicação já funfa, porém tem alguns detalhes.

 1 - Seu WebService é Serviço do Windows ? Se for a dbxfb.dll tem que estar no System32 e caso x64 no sysWol.

 2 - A fbClient tem que estar no system também.

 3 - No meu XE6 em Params está assim :

 

DriverName=Firebird

Database=Meu Banco de Dados

RoleName=RoleName

User_Name=sysdba

Password=masterkey

ServerCharSet=

SQLDialect=3

ErrorResourceFile=

LocaleCode=0000

BlobSize=-1

CommitRetain=False

WaitOnLocks=True

IsolationLevel=ReadCommitted

Trim Char=False

 

na Propriedades

ConnectionName = FBConnection

Driver = Firebird

 

Tente com as instruções acima, qualquer coisa agente vê de eu conectar essa máquina e colocar uma aplicação DBX em XE6 para testar se eu conseguir corretamente, passo o fonte e você copia tranquilo...VLW

[CelsoVS]

Olá xybery.

Ola senhores do fórum. Boa tarde! 
Já estou no osso com isso. Mais um dia se indo, e nada.

[xyberx]

Olá xybery.

Ola senhores do fórum. Boa tarde! 

Já estou no osso com isso. Mais um dia se indo, e nada.

 

 Não vi a midas.dll no dir do Programa.

 Em anexo a minha midas.dll

 Coloca ela no mesmo dir que tirou o screenshot...

 Caso ainda apresente problema coloque ela no System32 e no SysWOL do seu cliente para substituir a velha caso haja uma.

midas.rar

Editado 6 Novembro, 2014 por xyberx

[CelsoVS]

 Não vi a midas.dll no dir do Programa.

 Em anexo a minha midas.dll

 Coloca ela no mesmo dir que tirou o screenshot...

 Caso ainda apresente problema coloque ela no System32 e no SysWOL do seu cliente para substituir a velha caso haja uma.

 

Olá xybery, obrigado pela ajuda. Eu compilei com a MidasLIB para evitar essa dependência. Mesmo assim eu testei para eliminar a possibilidade. Está muito difícil.

Ontem, cheguei a formatar a máquina e atualizar o Windows, e NADA. Testei em mais 3 maquinas e também não funciona (dá o mesmo erro ). Na minha maquina funciona blz. VLW mais uma vez. Preciso seguir em frente.

[xyberx]

Olá xybery, obrigado pela ajuda. Eu compilei com a MidasLIB para evitar essa dependência. Mesmo assim eu testei para eliminar a possibilidade. Está muito difícil.

Ontem, cheguei a formatar a máquina e atualizar o Windows, e NADA. Testei em mais 3 maquinas e também não funciona (dá o mesmo erro ). Na minha maquina funciona blz. VLW mais uma vez. Preciso seguir em frente.

 

Qualquer coisa, a última opção seria recompilar com os packages dentro do exe, pois se for dependências pode ser que seu exe não está levando os packages e no seu PC como o Delphi está instalado, tudo está no System32.

 Pegue para testar todos os bpl's que estão no seu system32 e coloca nesta máquina para testar, se for isso, mude a instrução de compilação para levar as packages junto no exe, ele vai ficar grande mais não terá problemas de dependências mais...

 No meu caso, já deixo isso como padrão, meus exe's de XE6 ficam gigantes mais não tenho problemas com dependências mais...VLW

Editado 6 Novembro, 2014 por xyberx

[CelsoVS]

Qualquer coisa, a última opção seria recompilar com os packages dentro do exe, pois se for dependências pode ser que seu exe não está levando os packages e no seu PC como o Delphi está instalado, tudo está no System32.

 Pegue para testar todos os bpl's que estão no seu system32 e coloca nesta máquina para testar, se for isso, mude a instrução de compilação para levar as packages junto no exe, ele vai ficar grande mais não terá problemas de dependências mais...

 No meu caso, já deixo isso como padrão, meus exe's de XE6 ficam gigantes mais não tenho problemas com dependências mais...VLW

 

Cara tu não vai acreditar. Copiei todas as bpls do meu System32 e coloquei lá, na pasta do aplicativo. NADA! Coloquei no System32 de lá. NADA!

[CelsoVS]

Cara tu não vai acreditar. Copiei todas as bpls do meu System32 e coloquei lá, na pasta do aplicativo. NADA! Coloquei no System32 de lá. NADA!

Olá xybery. Eu de novo. Compilei novamente, com calma, sem os pacotes. Coloquei as bpls novamente, e pelo menos está dando outro erro. Ele está pedindo a rtl160.bpl. Só que eu não tenho essa bpl, nem na minha máquina (onde funciona - estranho!). Você sabe o que ela é? Você tem ela aí ? 

Abç.

[xyberx]

Olá xybery. Eu de novo. Compilei novamente, com calma, sem os pacotes. Coloquei as bpls novamente, e pelo menos está dando outro erro. Ele está pedindo a rtl160.bpl. Só que eu não tenho essa bpl, nem na minha máquina (onde funciona - estranho!). Você sabe o que ela é? Você tem ela aí ? 

Abç.

 

 Agora ficou fácil...

 

 http://www.activedelphi.com.br/forum/viewtopic.php?t=75327&sid=83ba78102a94e02729697e21b2e4c1ec

 

 Download aki

 

 http://minhateca.com.br/robson_lopes/Galeria/Aplicativos/Kit+Ferramentas+Portatil/PortableApps/ARegCleanerPortable/App/RegCleaner/rtl160,39533272.bpl

 

 Tentei upar pra você mais não consegui então nem baixa o anexo abaixo, baixa direto do servidor.

 

 Imaginei que poderia ser alguma coisa com seu Delphi o XE2 tem muitos Bugs, verifica a instalação do mesmo pq o regys já respondeu uma questão assim neste post 

rtl160.part1.rar

Editado 7 Novembro, 2014 por xyberx

[CelsoVS]

 Agora ficou fácil...

 

 http://www.activedelphi.com.br/forum/viewtopic.php?t=75327&sid=83ba78102a94e02729697e21b2e4c1ec

 

 Download aki

 

 http://minhateca.com.br/robson_lopes/Galeria/Aplicativos/Kit+Ferramentas+Portatil/PortableApps/ARegCleanerPortable/App/RegCleaner/rtl160,39533272.bpl

 

 Tentei upar pra você mais não consegui então nem baixa o anexo abaixo, baixa direto do servidor.

 

 Imaginei que poderia ser alguma coisa com seu Delphi o XE2 tem muitos Bugs, verifica a instalação do mesmo pq o regys já respondeu uma questão assim neste post 

[CelsoVS]

 

 Agora ficou fácil...

 

 http://www.activedelphi.com.br/forum/viewtopic.php?t=75327&sid=83ba78102a94e02729697e21b2e4c1ec

 

 Download aki

 

 http://minhateca.com.br/robson_lopes/Galeria/Aplicativos/Kit+Ferramentas+Portatil/PortableApps/ARegCleanerPortable/App/RegCleaner/rtl160,39533272.bpl

 

 Tentei upar pra você mais não consegui então nem baixa o anexo abaixo, baixa direto do servidor.

 

 Imaginei que poderia ser alguma coisa com seu Delphi o XE2 tem muitos Bugs, verifica a instalação do mesmo pq o regys já respondeu uma questão assim neste post 

 

Olá xybery boa tarde. Agora passou pelo rtl160.bpl, que eu baixei da minhatec. Agora está pedindo dbrtl160.bpl, mas não estou encontrando lá. Mas já foi mais um passo. VLW.

[xyberx]

Olá xybery boa tarde. Agora passou pelo rtl160.bpl, que eu baixei da minhatec. Agora está pedindo dbrtl160.bpl, mas não estou encontrando lá. Mas já foi mais um passo. VLW.

 

 Aqui tem esse e mais alguns que pode estar faltando também https://code.google.com/p/zsderp/source/browse/ZSDERP/?r=8

 

 Lembrando que todos esses arquivos que estão faltando deveriam estar na sua pasta do PC com XE2.

 

 C:\Program Files (x86)\Embarcadero\Studio\XX.X\bin

 

 Não cole o path acima pois o XX.X é que meu XE6 é 14.0 e o XE2 não sei então entra pelo Explorer e vê...VLW

Editado 7 Novembro, 2014 por xyberx