Как вернуть запись в методе DataSnap

Question

Я хочу, чтобы иметь возможность объявить метод Привязки данных с помощью следующей сигнатуры

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

function GetLoginInfo(const UserId: Integer): TLoginInfo; 

Когда я пытаюсь назвать это говорит, что TLoginInfo не хорошо известен ,

Answer 1

Если ваш используете «новый» Datasnap см. здесь:

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

Answer 2

магазин запись в поток и передать поток методу DataSnap

// на стороне сервера

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

// на стороне клиента

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;