نوشتن چند ServrMethod در یک سرور

[amir_alaki]

با سلام دوستان

من دارم یک برنامه سرور می نویسم با DataSnap یه سوال داشتم من نمی تونم همزمان چند تا کلاس ServerMethod داشته باشم و از اونها در client استفاده کنم

اینجوری که من بررسی کردم فقط در client یه دونه از ServerMethod ها رو میشه استفاده کرد و اگه خواستی عوضش کنی باید در کد سرور قسمت زیر رو عوض کنی



procedure TServerContainer2.DSServerClass1GetClass(
DSServerClass: TDSServerClass; var PersistentClass: TPersistentClass);
begin
PersistentClass := BASEMethods.TDSServerModule1;
end;


دوستان چه جوری این مشکل رو میشه حل کرد؟
اگه اینجوری باشه که در نوشتن پروژه بزرگ یکم کار سخت میشه
تشکر

[amir_alaki]

دوستان راه حل با کمی تلاش و بررسی پیدا کردم:عصبانی++:!
اگه پیدا نمیشد خیلی پیاده سازی یه سیستم بزرگ سخت میشد.
و اما راه حل
کافی در سرور چند تا DSServerClass متفاوت قرار بدین به تعداد کلاس هایی که میخواهید در کلاینت از اونها استفاده کنین که به طور پیش فرض یه دونه هست که خودش میسازه نکته دیگه اینکه در رویدادGetClass هرکدوم همون کد بالارو با کلاسی که می خواهین ارسال بشه می نویسین به این صورت




procedure TForm8.DSServerClass2GetClass(DSServerClass: TDSServerClass;
var PersistentClass: TPersistentClass);
begin
PersistentClass := TParametersServerModule1;
end;

procedure TForm8.DSServerClass3GetClass(DSServerClass: TDSServerClass;
var PersistentClass: TPersistentClass);
begin
PersistentClass := TDSServerModule2;
end;


با تشکر