Comment retourner un enregistrement dans une méthode DataSnap

Question

Je souhaite pouvoir déclarer une méthode snap données avec la signature suivante

type 
    TLoginInfo = record 
    Username: string; 
    Password: string; 
    LastLogged: DateTime; 
    end; 

function GetLoginInfo(const UserId: Integer): TLoginInfo; 

Lorsque je tente de l'appeler, il dit que TLoginInfo est pas bien connue .

Answer 1

Si que vous utilisez le "nouveau" Datasnap voir ici:

http://blogs.embarcadero.com/adrian/2009/08/19/json-types-for-server-methods-in-datasnap-2010/ http://www.danieleteti.it/?p=146

Answer 2

magasin l'enregistrement dans un cours d'eau et passer le courant à la méthode DataSnap

// côté serveur

function GetLoginInfo(const UserId: Integer): TStream; 
begin 
    Result := TMemoryStream.Create; 
    Result.Write(loginRec, SizeOf(TLoginInfo)) 
    Result.Seek(0, TSeekOrigin.soBeginning); 
end; 

// côté client

procedure TfrmMain.getLogInto(sUser: string); 
var 
    AStr : TStream; 
    loginRec : TLoginInfo; 
begin 
// cycleConnection; 

    with TMethodsClient.Create(SQLConn.DBXConnection, False) do begin 

    AStr := GetLoginInfo(sUser); 
    AStr.Read(loginRec, SizeOf(TLoginInfo)) 
    Free; 
    end; 

    FreeAndNil(AStr); 
end;