مشکل در تبدیل IP

[DAMAVAND]

دوستان این Unit رو که ضمیمه کردم نگاه کنید.
تابعی داره که باز بودن یک پورت یک IP که بهش دادیم رو رو بررسی میکنه.
خوب من هر کاری کردم نفهمیدم چطوری باید یک IP رو به این تابع داد .چون IP رو بصورت یه Stringداریم .مثلا 192.168.0.101 حالا چطوری این رو تبدیل کنم که بشه تو اون تابع ازش استفاده کرد ?

با تشکر.

[mrm0101]

سلام . این یونیت آی پی را ز نوع عدد تعریف کرده . شما اگر ای پی را به صورت 4 عدد سه رقمی که با نقطه از هم جدا شدند را بصورت یک عدد در نظر بگیرید مشکلی ندارد فقط اگر یه رقم بود بجای رقمهایی که نیست 0 بگذارید
مثلا
127.0.0.1
127000000001




if ScanTCPPort(StrToInt64(Edit1.Text),StrToInt64(Edit 2.Text))=true then
ShowMessage('open')
else
ShowMessage('close');