Как вернуть запись в методе DataSnap - PullRequest
2 голосов
/ 01 декабря 2009

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

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

function GetLoginInfo(const UserId: Integer): TLoginInfo;

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

Ответы [ 2 ]

1 голос
/ 01 декабря 2009
1 голос
/ 01 декабря 2009

сохранить запись в поток и передать поток в метод 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;
...