Repository navigation
[Bug]:TRESTDWIdDatabase do Delphi 10.4 community não reconhece o pooler do servidor #231
Closed as not planned
Description
Descrição do bug
Pessoal, estou realizando alguns testes no Delphi para uma aplicação em 3 camadas. Para tal, criei um servidor de aplicação utilizando o TRESTDWServiceProoler que está iniciando e passando pelo teste localhos:8082, por exemplo. No entanto, quando tento localizar esse Pooler no Client, o mesmo não aparece. Alguém já teve essa diculdade? Se sim, poderiam me ajudar a solucioná-la?
Obrigado
Claudemir Lopes
Passos para reproduzir o problema
Criei um servidor TRESTDWServiceProoler em StandAlone e tente conectar o cliente com o TRESTDEIdDatabase utilizando a propriedade PoolerName. Se o TRESTDWServicePooler não aparecer, eis o problema.
Comportamento esperado
No response
Imagens do problema
No response
Versão RDW:
2.1.0 (branch)
IDE:
Delphi novo
Sistema Operacional:
Windows
Relator do Problema
ClaudemirLopes
Activity
FernandoBanhos commentedon Feb 24, 2023
abre o server em modo release, sem ser por debug...
ClaudemirLopes commentedon Feb 24, 2023
Estou abrindo diretamente no executável e mesmo assim, não funciona.
FernandoBanhos commentedon Feb 24, 2023
tira um print do codigo fonte do seu datamodule
ClaudemirLopes commentedon Feb 24, 2023
unit uDmPrincipal;
interface
uses
System.SysUtils, System.Classes, uRESTDWDatamodule, uRESTDWComponentBase,
uRESTDWServerEvents, uRESTDWConsts, uRESTDWParams, System.JSON,
uRESTDWBasicDB, uRESTDWIdBase, FireDAC.Stan.Intf, FireDAC.Stan.Option,
FireDAC.Stan.Error, FireDAC.UI.Intf, FireDAC.Phys.Intf, FireDAC.Stan.Def,
FireDAC.Stan.Pool, FireDAC.Stan.Async, FireDAC.Phys, FireDAC.Phys.PG,
FireDAC.Phys.PGDef, FireDAC.VCLUI.Wait, Data.DB, FireDAC.Comp.Client,
uRESTDWBasic, uRestDWDriverFD, FireDAC.Stan.Param, FireDAC.DatS,
FireDAC.DApt.Intf, FireDAC.DApt, FireDAC.Comp.DataSet, FireDAC.Comp.UI;
type
TdmPrincipal = class(TServerMethodDataModule)
DWDriveFd: TRESTDWDriverFD;
FdDB: TFDConnection;
FdPgDrive: TFDPhysPgDriverLink;
qryClientes: TFDQuery;
qryClientesnome: TWideStringField;
qryClientesativo: TWideStringField;
qryClientesid: TLargeintField;
FDGUIxWaitCursor1: TFDGUIxWaitCursor;
private
{ Private declarations }
end;
var
dmPrincipal: TdmPrincipal;
implementation
{%CLASSGROUP 'Vcl.Controls.TControl'}
uses uFrmPrincipal;
{$R *.dfm}
end.
gledstonprego commentedon Feb 24, 2023
suba o server e como cliente aberto no delphi RESTDWIdDatabase1 va na propriedade poolername
e veja se aparece ali so com o server ativo
ClaudemirLopes commentedon Feb 24, 2023
Então, eu já fiz isso e não aparece. O estranho é que se eu for no browser e digitar localhost:8082, o mesmo me retorna que o server está on-line. Inclusive, piguei o meu ip em outra máquina e o server respondeu que está on-line também. O server eu tenho a certeza que está funcionando!
mobius1qwe commentedon Feb 24, 2023
Faltou o PoolerDB.
ClaudemirLopes commentedon Feb 24, 2023
Infelizmente, mesmo eu inserindo o RESTDWPoolerDB e vinculando o RESTDriver no dmPrincipal.DWDriveFd, não funcionou.
FernandoBanhos commentedon Feb 24, 2023
me chama no PV, se nao conseguir...
gledstonprego commentedon Feb 24, 2023
pelo visto voce abriu o demo e com 2 DM pode ser que voce esta definindo um DM e apontando para outro
verifique se esta apontando para o DM que voce esta informando com ativo