نوشتن برنامه سرور [بایگانی]

mahmood_s

دوشنبه 10 خرداد 1389, 08:44 صبح

با سلام

دوستان در مورد برنامه سرور اطلاعاتی دارین

یک برنامه نوشتیم که در کلاینت ها نصب میشه و کاربران یک سری اطلاعات برای ادمین سیستم ارسال میکنند

برنامه سرور باید به محض دریافت اطلاعات به ادمین سیستم اعلام کنه

اگه پیشنهاد دیگه ای هم دارید ممنون میشم

M.T.P

دوشنبه 10 خرداد 1389, 16:44 عصر

الان در چه مرحله ای از برنامه هستین؟ مشکلتون دقیقا کجاست؟ چه نوع اطلاعاتی رو میخواین به سرور ارسال کنید؟ واضح تر عنوان کنید.:متفکر:

mahmood_s

سه شنبه 11 خرداد 1389, 11:48 صبح

M.T.P

سه شنبه 11 خرداد 1389, 18:07 عصر

منظورم اینکه که

یک یانک اطلاعاتی داریم که کاربران اطلاعاتی رو در اون ثبت میکنند

می خوام زمانی که اطلاعات ثبت شد در برنامه ادمین یک پیام نمایش داده بشه که فلان کاربر پیام داده
معمولا در سرور یه برنامه قرار میدن که این کار ها رو کنترل میکنه و وقتی کاربر اطلاعاتی ثبت کنه اونو به ادمین اطلاع میده

باید قبل از ثبت دیتا در دیتابیس اونو بررسی کرد.
اگه با Winsock کار کنید که مشکلی نداره میتونین دیتای دریافتی رو بررسی و چک کنید و در صورت لزوم اونو به Admin نشون بدید. و در صورت تایید Admin اونو ثبت کنید. (البته نمیدونم اطلاعات شما در زمینه کار در شبکه با Winsock در چه حد هست! )
و اگر چنانچه با Winsock کار نمیکنید باید مرتبا DataBase رو چک کنید (مثلا از لحاظ حجم دیتابیس) بعد در صورت تغییرات Record های آخر رو بخونید و به Admin گزارش بدید.

mahmood_s

یک شنبه 16 خرداد 1389, 20:36 عصر

فكر كنم با winsock بهتر باشه

كمي اطلاعات دارم ولي اگه راهنمايي بفرماييد ممنون ميشم

FinalMOB

دوشنبه 17 خرداد 1389, 19:48 عصر

فكر كنم با winsock بهتر باشه

كمي اطلاعات دارم ولي اگه راهنمايي بفرماييد ممنون ميشم

سلام، شما باید یه سیستم کلاینت - سرور بنویسید. فکر کنم توی اینترنت از این مدل برنامه خیلی زیاد باشه، ولی اگه نتونستین چیزی پیدا کنین، بگین تا همینجا توضیح بدیم، البته قبلش ذکر کنین که اطلاعاتتون از WinSock چقدره؟

موفق باشید.

AntiViruse

شنبه 22 خرداد 1389, 11:36 صبح

این کد یک سرور هستش. امیدوارم مفید واقع بشه و بدردتون بخوره.

Private Sub Form_Load()
On Error Resume Next
TCP1.LocalPort = 1018
TCP1.Listen
End Sub

Private Sub tcp1_ConnectionRequest(ByVal requestID As Long)
If (TCP1.State <> sckClosed) Then TCP1.Close
TCP1.LocalPort = 0
TCP1.Accept requestID
End Sub

Private Sub tcp1_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
On Error Resume Next
TCP1.GetData Data
If Data = "end" Then End
A$ = Data
MsgBox A$
End Sub

Private Sub tcp1_Close()
On Error Resume Next
TCP1.Close
TCP1.LocalPort = 1018
TCP1.Listen
End Sub

توضیحات: اسم wincock این برنامه TCP1 میباشد.
این کدها پورت 1018 را برای کلاینت در حالت باز (Listen) نگه میدارد و منتظر ارسال فایل توسط کلاینت میشود.
در خط مشخص شده میبینید که فایل دریافتی در $A قرار میگیرد (برای مثال: من یک msgbox گذاشته ام که اطلاعات متنی دریافت شده را نمایش میدهد و شما میتوانید این خط پررنگ را حذف نمایید) و شما میتوانید متناسب به نیاز خود از آن استفاده کنید.:لبخندساده:

رفقای گرامی تشکر یادتون نره.:قلب: