Servidor De Aplicação Datasnap.

[CelsoVS]

 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

Cara, desculpe a perturbação, e mais uma vez obrigado pelo apoio. Só uma coisa esta me deixando bolado. Se esses arquivos são necessários, porque funciona na minha máquina ? Entendeu minha dúvida ?

[EMBarbosa]

Está pedindo o arquivo rtl lá na máquina do cliente?

Se for isso, veja o menu Project->Options->Packages->Build with runtime packages -> verifique se está desmarcado.

[CelsoVS]

Está pedindo o arquivo rtl lá na máquina do cliente?

Se for isso, veja o menu Project->Options->Packages->Build with runtime packages -> verifique se está desmarcado.

OK Elton. Obrigado pela ajuda. Já desmarquei.

[xyberx]

Cara, desculpe a perturbação, e mais uma vez obrigado pelo apoio. Só uma coisa esta me deixando bolado. Se esses arquivos são necessários, porque funciona na minha máquina ? Entendeu minha dúvida ?

 

 Pq qndo você tem o Delphi instalado ele tem as libs necessárias instaladas no PC, e no dir BIN do próprio Delphi...VLW

[CelsoVS]

 Pq qndo você tem o Delphi instalado ele tem as libs necessárias instaladas no PC, e no dir BIN do próprio Delphi...VLW

Meu camarada boa tarde.

Apaga tudo. Você não vai acreditar! Sabe ali no Data Explorer, onde vc cria a sua conexão com o BD ? Pois é. Esse era o problema, porque aquela conexão que é criada ali para o seu acesso a dados NÂO vai no seu executável de forma nenhuma, e essa era a causa. Não sei se você pode me dizer isso, mas preciso descobrir como faço para instalar isso na máquina onde vou montar meu servidor. Eu resolvi instalando o Delphi nessa maquina, abrindo o projeto lá e criando a conexão no Data Explorer. Mas claro que não deve ser assim e eu preciso descobrir como fazer. De QQ forma, já posso seguir em frente.

 

Mais uma vez , obrigado pela sua ajuda e a paciência em participar do problema. Vamos continuar buscando uma solução menos lusitana ... rs ...

Abç

[xyberx]

Meu camarada boa tarde.

Apaga tudo. Você não vai acreditar! Sabe ali no Data Explorer, onde vc cria a sua conexão com o BD ? Pois é. Esse era o problema, porque aquela conexão que é criada ali para o seu acesso a dados NÂO vai no seu executável de forma nenhuma, e essa era a causa. Não sei se você pode me dizer isso, mas preciso descobrir como faço para instalar isso na máquina onde vou montar meu servidor. Eu resolvi instalando o Delphi nessa maquina, abrindo o projeto lá e criando a conexão no Data Explorer. Mas claro que não deve ser assim e eu preciso descobrir como fazer. De QQ forma, já posso seguir em frente.

 

Mais uma vez , obrigado pela sua ajuda e a paciência em participar do problema. Vamos continuar buscando uma solução menos lusitana ... rs ...

Abç

 

 Segue como está minha conexão:

Editado 10 Novembro, 2014 por xyberx

[CelsoVS]

Olá xybery. Tudo bem?

 

A minha tem umas diferenças, mas não acho que tenha a ver não:

librarynameosx=libsqlfb.dylib

vendorlibwin64=fbclient.dll

vendorlibosx=/Library/Frameworks/Firebird.framework/Firebird

blobsize=-1

commitretain=False

database=database.fdb

localecode=0000

password=masterkey

rolename=RoleName

sqldialect=3

isolationlevel=ReadCommitted

user_name=sysdba

waitonlocks=True

trim char=False

[CelsoVS]

 

Olá xybery. Tudo bem?

 

A minha tem umas diferenças, mas não acho que tenha a ver não:

librarynameosx=libsqlfb.dylib

vendorlibwin64=fbclient.dll

vendorlibosx=/Library/Frameworks/Firebird.framework/Firebird

blobsize=-1

commitretain=False

database=database.fdb

localecode=0000

password=masterkey

rolename=RoleName

sqldialect=3

isolationlevel=ReadCommitted

user_name=sysdba

waitonlocks=True

trim char=False

 

A propósito, vc sabe como faço para que outra pessoa veja a API do meu servidor datasnap ?

[xyberx]

A propósito, vc sabe como faço para que outra pessoa veja a API do meu servidor datasnap ?

 

 Falta o vendorlibwin32=fbclient.dll caso precise...

 

Depende como vc Fez o seu Datasnap, pq no meu caso, só de eu adicionar uma conexão ao Datasnap e apontar pelo delphi o meu servidor eu já consigo utilizar...

[CelsoVS]

 Falta o vendorlibwin32=fbclient.dll caso precise...

 

Depende como vc Fez o seu Datasnap, pq no meu caso, só de eu adicionar uma conexão ao Datasnap e apontar pelo delphi o meu servidor eu já consigo utilizar...

Fala xybery. Tudo bem?

Cara, interessante. Realmente aí no params ele não está, mas está no Object Inspector. Eu tenho aqui o fbcliente.dll, obrigado mais uma vez.

 

Quanto ao Datasnap, acho que não me expressei bem. Eu quero que o programador que vai fazer a outra parte veja a API via internet porque ele está em SP e eu aqui no Rio. Eu consigo ver aqui na minha máquina, mas quando eu tento ver via internet, ele só mostra o ReverseString.

[xyberx]

Fala xybery. Tudo bem?

Cara, interessante. Realmente aí no params ele não está, mas está no Object Inspector. Eu tenho aqui o fbcliente.dll, obrigado mais uma vez.

 

Quanto ao Datasnap, acho que não me expressei bem. Eu quero que o programador que vai fazer a outra parte veja a API via internet porque ele está em SP e eu aqui no Rio. Eu consigo ver aqui na minha máquina, mas quando eu tento ver via internet, ele só mostra o ReverseString.

 

 Redirecione a porta que você está usando no seu Router para sua máquina e abra uma exceção no seu firewall para essa porta aí funfa na boa...

[CelsoVS]

 Redirecione a porta que você está usando no seu Router para sua máquina e abra uma exceção no seu firewall para essa porta aí funfa na boa...

Olá xybery, boa tarde.

Meu camarada, é o seguinte cara. E já fiz isso e está funcionando, apenas, não consigo ver remotamente os métodos que eu crio, mas vejo o ReverseString que é o método de teste que o Delphi cria. Sacou ?

[xyberx]

Olá xybery, boa tarde.

Meu camarada, é o seguinte cara. E já fiz isso e está funcionando, apenas, não consigo ver remotamente os métodos que eu crio, mas vejo o ReverseString que é o método de teste que o Delphi cria. Sacou ?

 

 Vc está usando REST, se for, lembra que você terá que alterar o html que lista os métodos pq ele somente mostra os métodos para o computador local nem mostra para outro diferente do local, só alterar facilmente a parte do html que valida se é local nada de mais, acho que no seu caso vai resolver...

[CelsoVS]

 Vc está usando REST, se for, lembra que você terá que alterar o html que lista os métodos pq ele somente mostra os métodos para o computador local nem mostra para outro diferente do local, só alterar facilmente a parte do html que valida se é local nada de mais, acho que no seu caso vai resolver...

Olá xybery, bom dia!

Desculpe a demora, mas o ritmo anda meio quente por aqui. Eu estou usando REST sim, e tentei achar onde alterar o html mas ainda não consegui descobrir, porque estava (entre outras coisas) dando prioridade a questão inicial desse post, lembra ? Pois bem, tenho boas notícias e vou postar aqui para dar como RESOLVIDO esse post, e certamente vai ser muito útil. Vamos lá:

1 - Mudei meu fonte, como já estava previsto para que se possa setar a conexão e a porta através de parâmetros. Segue o código que retorna a conexão:

 

function TParamsServidor.GetConnection( ConnectionProperties: TDBXProperties ): TDBXConnection;

Var

  vProps    : TDBXProperties ;

  vDataBase : String;

Begin

  if ConnectionProperties = Nil then

     vProps:= TDBXConnectionFactory.GetConnectionFactory.GetDriverProperties('Firebird')

  Else

     vProps:= ConnectionProperties

  ;

  With frmParamsServ Do

    Begin

    //Acessando a Base Um

    Try

      vDataBase := 'NomeComputador-ou-IP:X:\Caminho\NomeBancoDeDados';

      vProps.Properties.Values['DataBase'] := vDataBase;

      Result    := TDBXConnectionFactory.GetConnectionFactory.GetConnection(vProps);

    Except

      On E:Exception Do Begin

         Result := Nil;

         ... coloque aqui seu código para caso de algum erro ...

         End

      ;

      End

    ;

    End

  ;

End;

 

2 - Identifiquei o que é preciso levar para a máquina onde será instalado o meu servidor, como segue:

     a - Compilei em meu projeto, a MidasDLL para não ter que distribuir tambem a Midas.dll (menos uma preocupação - não há esquecimento). 

     b - Em Arquivos de "Programas\Common Files", criei a pasta "Borland Shared" e para dentro dela eu copiei a pasta "DBExpress" (para usar Firebird).

         Essa pasta está na sua máquina de desenvolvimento na mesma localização, e contém os arquivos "dbxconnections.ini" e "dbxdrivers.ini".

     c - Na minha máquina de desenvolvimento, onde está instalado o Delphi , na sub-pasta "Redist" existem uma sub-pasta "win32" e "win64"

        (atentar para a versão usada), selecionei as dll´s "fbclient.dll" e "dbxfb.dll". ATENÇÃO. Por precaução, coloquei-as na mesma pasta de meu executável.

 

BEM!

Aí foi só partir pro abraço e ser feliz! Emfim uma solução menos lusitana.

Editado 2 Dezembro, 2014 por CelsoVS

[xyberx]

Olá xybery, bom dia!

Desculpe a demora, mas o ritmo anda meio quente por aqui. Eu estou usando REST sim, e tentei achar onde alterar o html mas ainda não consegui descobrir, porque estava (entre outras coisas) dando prioridade a questão inicial desse post, lembra ? Pois bem, tenho boas notícias e vou postar aqui para dar como RESOLVIDO esse post, e certamente vai ser muito útil. Vamos lá:

1 - Mudei meu fonte, como já estava previsto para que se possa setar a conexão e a porta através de parâmetros. Segue o código que retorna a conexão:

 

function TParamsServidor.GetConnection( ConnectionProperties: TDBXProperties ): TDBXConnection;

Var

  vProps    : TDBXProperties ;

  vDataBase : String;

Begin

  if ConnectionProperties = Nil then

     vProps:= TDBXConnectionFactory.GetConnectionFactory.GetDriverProperties('Firebird')

  Else

     vProps:= ConnectionProperties

  ;

  With frmParamsServ Do

    Begin

    //Acessando a Base Um

    Try

      vDataBase := 'NomeComputador-ou-IP:X:\Caminho\NomeBancoDeDados';

      vProps.Properties.Values['DataBase'] := vDataBase;

      Result    := TDBXConnectionFactory.GetConnectionFactory.GetConnection(vProps);

    Except

      On E:Exception Do Begin

         Result := Nil;

         ... coloque aqui seu código para caso de algum erro ...

         End

      ;

      End

    ;

    End

  ;

End;

 

2 - Identifiquei o que é preciso levar para a máquina onde será instalado o meu servidor, como segue:

     a - Compilei em meu projeto, a MidasDLL para não ter que distribuir tambem a Midas.dll (menos uma preocupação - não há esquecimento). 

     b - Em Arquivos de "Programas\Common Files", criei a pasta "Borland Shared" e para dentro dela eu copiei a pasta "DBExpress" (para usar Firebird).

         Essa pasta está na sua máquina de desenvolvimento na mesma localização, e contém os arquivos "dbxconnections.ini" e "dbxdrivers.ini".

     c - Na minha máquina de desenvolvimento, onde está instalado o Delphi , na sub-pasta "Redist" existem uma sub-pasta "win32" e "win64"

        (atentar para a versão usada), selecionei as dll´s "fbclient.dll" e "dbxfb.dll". ATENÇÃO. Por precaução, coloquei-as na mesma pasta de meu executável.

 

BEM!

Aí foi só partir pro abraço e ser feliz! Emfim uma solução menos lusitana.

 

 Show, eu faço mais ou menos assim, porém como sei o que mando no meu pacote, vai tudo que configurei no driver + midas.dll, não gosto de usar embarcada pois quando tem uma atualização do midas.dll tem que mandar o serviço de novo no meu caso mando somente o midas.dll.

 Os meus funcionam certinho, mais quando tenho problemas a lista do tópico que deixei foram a solução em vários mais vários casos mesmo, pois como trabalhamos com as máquinas dos clientes de lojas e coisas do tipo, imagina o tanto de baidu e coisas do tipo que achamos nas máquinas kkkkk....

[CelsoVS]

 Show, eu faço mais ou menos assim, porém como sei o que mando no meu pacote, vai tudo que configurei no driver + midas.dll, não gosto de usar embarcada pois quando tem uma atualização do midas.dll tem que mandar o serviço de novo no meu caso mando somente o midas.dll.

 Os meus funcionam certinho, mais quando tenho problemas a lista do tópico que deixei foram a solução em vários mais vários casos mesmo, pois como trabalhamos com as máquinas dos clientes de lojas e coisas do tipo, imagina o tanto de baidu e coisas do tipo que achamos nas máquinas kkkkk....

... KKKKKKKKKKKKKKKKKKK ... o triste é ter que olhar pra'quilo sem dizer nada ... karaka , nunca tinha escrito "pra'quilo" ... nem sei se está certo, mas vale assim mesmo ... abç meu camarada conterrâneo ... qq coisa estamos por aqui ... 

[xyberx]

... KKKKKKKKKKKKKKKKKKK ... o triste é ter que olhar pra'quilo sem dizer nada ... karaka , nunca tinha escrito "pra'quilo" ... nem sei se está certo, mas vale assim mesmo ... abç meu camarada conterrâneo ... qq coisa estamos por aqui ... 

 

 Show, se precisar de algo só mandar email para [email protected] ou [email protected] que respondo dúvidas sobre programação Delphi em Geral....VLW