PDA

View Full Version : آگاهی از اتصال Network connections


ehsane
چهارشنبه 05 مرداد 1384, 09:23 صبح
با سلام
چگونه میتوان قبل از اجرای برنامه و باز کردن کانشکن ها از اتصال Local area connection مطلع شد. و از بروز خطا عدم وجود ارتباط با شبکه جلوگیری و پیغام مناسب را به کاربر داد. اگه با مثال باشه ممنون میشم

با تشکر
Touska
چهارشنبه 05 مرداد 1384, 10:28 صبح
شما دو راه دارید :

1- یا یک IP را در شبکه ping کنید.
2- یا به سایت SwissDelphiCenter رفته و از Tips در رابطه با این موضوع استفاده کنید.

موفق باشید
vcldeveloper
پنج شنبه 06 مرداد 1384, 01:53 صبح
uses
WinInet;

function InternetCheck(URL : string): Bool;
begin
Result := InternetCheckConnection(PAnsiChar(URL),0,0);
end;

تابع InternetCheckConnection آدرسی (URL) که بهش میدید رو ping میکنه، درصورتی که جوابی دریافت کنه، True برمیگردونه.