delphi - DataSnap メソッドでレコードを返す方法

Question

次の署名で Data Snap メソッドを宣言できるようにしたい

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

function GetLoginInfo(const UserId: Integer): TLoginInfo;

呼び出そうとすると、TLoginInfoはよく知られていないと表示されます。

Answer 1

レコードをストリームに保存し、ストリームを 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;

Answer 2

「新しい」Datasnap を使用している場合は、こちらを参照してください。

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