كيفية إرجاع سجل في 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