DataSNAP 메소드에서 레코드를 반환하는 방법
-
10-07-2019 - |
문제
다음 서명으로 데이터 스냅 메소드를 선언 할 수 있기를 바랍니다.
type
TLoginInfo = record
Username: string;
Password: string;
LastLogged: DateTime;
end;
function GetLoginInfo(const UserId: Integer): TLoginInfo;
내가 그것을 부르려고 할 때 그것은 그렇게 말합니다 tlogininfo 잘 알려져 있지 않습니다.
해결책
"새로운"DataSnap을 사용하는 경우 여기를 참조하십시오.
http://blogs.embarcadero.com/adrian/2009/08/19/json-types-for-server-methods-in-datasnap-2010/ http://www.danieleteti.it/?p=146
다른 팁
레코드를 스트림에 저장하고 스트림을 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;
제휴하지 않습니다 StackOverflow