O Banco de dados esta hospedado em um Servidor de um amigo Meu.

* A porta 3050 do Firebird esta liberada.

* Desenvolvi o Servidor ele Rodou Perfeitamente, tanto na maquina local quanto em outra maquina via internet.
* Tou desenvolvendo a parte Cliente só que, quando eu rodo na maquina que estou desenvolvendo o Servidor e a parte cliente funciona, mais quando coloco o servidor para outra maquina, o Servidor Funciona mais o lado cliente não Funciona da Erro de Socket, e também se coloco o Servidor e a parte cliente para outro maquina o Servidor Funciona mais a Parte cliente Não Roda.

Acho que os Erro é só na parte cliente.

Se poder me ajudar fico Grato

Estou recebendo o mesmo ID para todas as sessões, mesmo com o TDSServerClass.LifeCycle = Session.
Fiz uma aplicação cliente win32 e rodando ela em máquinas diferentes simultaneamente recebo o mesmo SessionID, tens ideia do que possa ser?

Segue fonte da minha classe que devolve o session ID.

unit uServer;

interface

Uses Classes, DsService;

type
{$MethodInfo ON}
TServer = class(TPersistent)
public
function GetSessionID: Integer;
end;
{$MethodInfo OFF}

implementation

{ TServer }

function TServer.GetSessionID: Integer;
begin
Result := TDSSessionManager.GetThreadSession.Id;
end;

end.

Aqui o trecho de código da aplicação cliente Win32, utilzando classe proxy e um objeto SqlConection apontando para o servidor DataSnap.

procedure TFrmPrincipal.Button1Click(Sender: TObject);
var
pServer: TServerClient;
begin
SQLConnection1.Open;
pServer := TServerClient.Create(SQLConnection1.DBXConnection);
Edit1.Text := IntToStr(pServer.GetSessionID);
pServer.Free;
SQLConnection1.Close;
end;

Não consigo utilizar o TDictionary no delphi 2010. Tem alguma diferença na declaração:

Obrigado.

Se você colocou no onDisconnect do server não tem problema.

e outra coisa, fiz uma alteração no evento onDisconnect .

if GetConnection nil then
begin
GetConnection.Close;
GetConnection.Free;
ListofConnection.Remove(GetCurrentThreadID);
end;

Tem algum problema? Utilizo Delphi 2010…

Rodrigo, tem muita informação no EDN.

Para saber a quantidade de sessões ativas você terá que controlar pelos eventos onConnect/onDisconnect do DataSnap Server

Gostaria de saber como fazer para pegar a quantidade de sessões ativas no servidor, se vc pude me responder eu agradeceria bastante, migrei meus sistemas para datasnap 2010 e a quantidade de informação disponível a respeito é muito pouca, fora os seus, os demais conteúdos são muito básicos.

Se colocar um SQLConnection em um ServerModule e no ServerClass desse ServerModule definirmos o LifeCycle como server, não teria o mesmo efeito?

todos os outros ServerModule estaria linkado a esse ServerModule que contém o LifeCycle = Server…

Oi Rodrigo,

Seria quase a mesma coisa, apenas mudando a forma com que se captura o ID da Thread, como no Delphi 2010 não tinha o Session Manager, você pode obter o ID da thread através do método GetCurrentThreadID

Você tem algum exemplo de como implementar isso no Delphi 2010?

Grato

Oi Frainer,

Coloca essa dúvida na lista e também um exemplo do problema, assim vai ser mais fácil te ajudar e antes disso entender o problema 🙂

Obrigado,
Frainer