گرفتن IP سیستم [بایگانی]

desatir7316

شنبه 17 بهمن 1388, 12:41 عصر

سلام دوستان و اساتید محترم
با چه دستوری میشه IP سیستم رو برگردوند؟

desatir7316

شنبه 17 بهمن 1388, 15:20 عصر

دوستان جوابشو پیدا کردم البته هنوز تستش نکردم:
منبع : http://delphi4we.persianblog.ir
طرز بدست آوردن IP کامپيوتر خود در دلفي
1)از گزينه ابزارها به تب Indy Misc رفته و به دنبال TIdIPWatch گشته و آن را به فرم
اضافه کنيد
2)سپس يک تايمر روي فرم قرار بدهيد و IntervalL آن را به عدد يک تغيير دهيد
3)سپس کد زير را درون آن اضافه کنيد
کد:;Caption:=IdIPWatch1.LocalIP

دلفــي

یک شنبه 18 بهمن 1388, 08:32 صبح

دوستان جوابشو پیدا کردم البته هنوز تستش نکردم:
منبع : http://delphi4we.persianblog.ir
طرز بدست آوردن IP کامپیوتر خود در دلفی
1)از گزینه ابزارها به تب Indy Misc رفته و به دنبال TIdIPWatch گشته و آن را به فرم
اضافه کنید
2)سپس یک تایمر روی فرم قرار بدهید و IntervalL آن را به عدد یک تغییر دهید
3)سپس کد زیر را درون آن اضافه کنید
کد:;Caption:=IdIPWatch1.LocalIP

نیازی به تایمر نیست همین کد
Caption:=IdIPWatch1 .LocalIP کافیه !

gbg

شنبه 18 اردیبهشت 1389, 21:33 عصر

به نظر من کارمد نیست
چون من 3 تا کارت شبکه دارم و آی پی هیچ کدوم رو بر نگردوند

مهران رسا

شنبه 18 اردیبهشت 1389, 21:43 عصر

Felony

شنبه 18 اردیبهشت 1389, 21:49 عصر

دوستان حالا که مطرح شد ، کسی میدونه در زمان استفاده از کنترل های TCPServer و TCPClient ، در سرور چطور میشه IP کلاینت هایی که پیام ارسال کردند رو شناسایی کرد ؟ باید خاصیتی برای این مورد وجود داشته باشه .

کد زیر رو در رویداد Connect شئ idTCPServer بنویسید :

var
ClientIP:String;
begin
ClientIP:=AContext.Connection.Socket.Binding.PeerI P;
end;