Artigo Clube Delphi 86 - SOAP - Aprenda t�cnicas avan�adas em um exemplo passo a passo- Parte 2

Na primeira parte deste artigo, começamos a construir nosso disco virtual, um aplicativo onde o usu�rio poder� enviar arquivos para um servidor remoto, list�-los e recuper�-los posteriormente. Criamos a interface gr�fica do cliente, vimos um pouco sobre autenticaç�o com SOAP, exceç�es remotas, envio e recebimento de SOAP Headers e como rastrear as chamadas ao servidor. Nesta ediç�o, veremos gerenciamento de sess�o, envio de arquivos via SOAP, compactaç�o e muito mais.

Gerenciamento de sess�o

O mecanismo de autenticaç�o que implementamos funciona, mas n�o est� completo. Ele retorna sempre o mesmo identificador de sess�o, definido de forma hard-coded no c�digo do servidor, o que n�o �, obviamente, uma soluç�o segura. Precisamos gerar um valor que seja �nico entre todos os usu�rios que podem vir a se autenticar.

Aqui temos um problema: Web Service s�o por natureza stateless, o que significa que nenhuma informaç�o � persistida entre as requisiç�es processadas. Mas o servidor precisa �lembrar� dos identificadores gerados, para poder comparar com os fornecidos pelos clientes. Como conseguir isso? Uma alternativa � controlar sess�es.

A implementaç�o do protocolo SOAP dispon�vel com o Delphi n�o fornece nenhum mecanismo de persist�ncia nativo. Dessa forma, precisamos criar um. Atente ent�o para um detalhe importante: nosso Web Service reside em uma DLL ISAPI, que � carregada pelo IIS na primeira requisiç�o recebida pelo servidor.

Essa DLL fica no contexto do processo DLLHost.exe, tamb�m conhecido como COM Surrogate. E ela ficar� l�, em mem�ria, at� ser descarregada, como voc� fez algumas vezes ao longo desse artigo. Mas Web Service n�o s�o statesless?

Sim, s�o! Abra novamente uDiscoVirtualImpl e observe a classe TDiscoVirtual. Esse � o nosso Web Service. � essa classe que � criada e destru�da automaticamente a cada execuç�o remota. O resto da unit permanece intacto, carregado na mem�ria. Confuso? Vamos implementar para voc� entender melhor.

Selecione o projeto do servidor e adicione a ele um Data Module. Chame-o de �TdmSession� e salve o arquivo com o nome �uSessionDataModule�. Clique agora no menu Project e escolha View Source. Remova a seguinte linha de c�digo: Application.CreateForm(tdmSession, dmSession);

Fizemos isso porque criaremos manualmente o Data Module. Adicione um ClientDataSet. D� um duplo clique sobre ele para abrir o editor de campos e insira os seguintes Fields:

SessionID: Tipo String, tamanho 38;
LastAccess: Tipo DateTime;
UserName: Tipo String, tamanho 10;
UserID: Tipo Integer.

Clique de direita sobre o ClientDataSet e escolha Create DataSet. Pronto, j� temos um DataSet para armazenar os identificadores de sess�o gerados para cada usu�rio. Vamos ent�o criar alguns m�todos para gerenciar sess�es. Adicione as linhas da Listagem 1 na seç�o public da classe TdmSessions:


function NewSession(const UserID: Integer; 
 UserName: string): string;
procedure RemoveSession(const SessionID: string);
function IsValidSession(
 const SessionID: string): Boolean;
function GetUserID(const SessionID: string): Integer;
procedure UpdateLastAccess(const SessionID: string);

Listagem 1. M�todos de TdmSessions

Implemente agora todos esses m�todos (Ctrl+Shift+C) com o c�digo da Listagem 2.


function TdmSessions.NewSession(const UserID: Integer; 
 UserName: string): string;
var
 SessionID: TGUID;
begin
 CriticalSection.Enter;
 try
 if not cdsSessions.Active then
 cdsSessions.Open;

 CreateGUID(SessionID);
 Result := GuidToString(SessionID);

 cdsSessions.Insert;
 cdsSessionsSessionID.AsString := Result;
 cdsSessionsStartDateTime.AsDateTime := Now;
 cdsSessionsLastAccess.AsDateTime := Now;
 cdsSessionsUserName.AsString := UserName;
 cdsSessionsUserID.AsInteger := UserID;
 cdsSessions.Post;
 finally
 CriticalSection.Leave;
 end;
end;

function TdmSessions.IsValidSession(
 const SessionID: string): Boolean;
begin
 CriticalSection.Enter;
 try
 Result := cdsSessions.Locate('SessionID', 
 SessionID, []);
 if Result then
 Result := MinutesBetween(
 cdsSessionsLastAccess.AsDateTime, Now) < 1;
 finally
 CriticalSection.Leave;
 end;
end;

function TdmSessions.GetUserID(
 const SessionID: string): Integer;
begin
 CriticalSection.Enter;
 try
 Result := 0;
 if IsValidSession(SessionID) then
 Result := cdsSessionsUserID.AsInteger;
 finally
 CriticalSection.Leave;
 end;
end;

procedure TdmSessions.RemoveSession(
 const SessionID: string);
begin
 CriticalSection.Enter;
 try
 if IsValidSession(SessionID) then
 cdsSessions.Delete;
 finally
 CriticalSection.Leave;
 end;
end;

procedure TdmSessions.UpdateLastAccess(
 const SessionID: string);
begin
 CriticalSection.Enter;
 try
 if IsValidSession(SessionID) then
 begin
 cdsSessions.Edit;
 cdsSessionsLastAccess.AsDateTime := Now;
 cdsSessions.Post;
 end;
 finally
 CriticalSection.Leave;
 end;
end;

Listagem 2. M�todos de manipulaç�o de sess�o

Esses m�todos servem para:

Criar um novo registro no ClientDataset de sess�es, retornando um identificador �nico (NewSession);
Remover uma sess�o do DataSet (" [...] continue lendo...

Artigo Clube Delphi 86 - SOAP - Aprenda t�cnicas avan�adas em um exemplo passo a passo- Parte 2

Nesta edição, veremos gerenciamento de sessão, envio de arquivos via SOAP, compactação e muito mais.

Gerenciamento de sess�o

Artigos relacionados