اما از Source بالا توضیح یک بخش مونده بود که الان توضیح میدم ! (در بخش پروژه Server )
همان طور که گفتم هنگامی که یک Client جدید به برنامه Connect می شه به ازای اون Client یک Remote Data Module ایجاد میشه !
دو رویداد مهم در این بخش وجود دارد ... یکی مربوط می شه به OnCreate و OnDestroy که از نام اونها معلومه کی فراخونی میشن !
من برای اینکه تعداد Connection های متصل رو بتونم بشمرم در رویداد Create با PostMessage یکی به شمارنده در فرم Frm_Server اضافه می کنم و در رویداد Destroy یکی کم می کنم ...
procedure TRmtDMServer.RemoteDataModuleCreate(Sender: TObject);
begin
PostMessage(Frm_Server.Handle,UM_CONNECT,1,0);
end;
(
اگر می خوایید بدونید PostMessage چه کار می کنه
https://barnamenevis.org/showthread.php?t=106053
کارش شبیه SendMessage ... باز خودتون یه Search بزنید
)
در فرم Frm_Server هم واسه اینکه Message فرستاده شده دریافت بشه باید کاری کرد !
که با این تابع این کار انجام میشه !
Procedure UMConnect(var Msg:Tmessage);message UM_CONNECT;
خوب حالا یک توضیح مختصر هم در مورد برنامه Client ....
در برنامه Client در فرم من یک Edit گذاشتم که بشه نام Computer سرور رو داد ...
می شه به جای نام Computer سرور از IP استفاده کنید ... برای این کار می تونید از خاصیت SocketConnection1.Address استفاده کنید ...
برای تغیر Port هم می تونید از این SocketConnection1.Port استفاده کنید .
من سعی می کنم آهسته و پیوسته برم جلو ...
اگه یه موقع دیدید بین Post هایی که می زنم خیلی تاخیر افتاد (منظورم بیشتر از 2 روزه ! !) بهم یادآوری کنید