نمایش کاربران متصل به شبکه adsl

[iran-network]

سلام به تمامی اساتید

با کسب اجازه از مدیران بخش نمیدونم شاید همچین تایپیکی بوده من پیدا نکردم اگه هست من راهنمایی کنید

سوال من اینه من یک شبکه adsl خونگی دارم میخوام بدونم چه کامپیوتر هایی به مودم متصل هستن کاربرانی که 192.168.1.1 متصل هستن رنج ای پی مودم

[Felony]

از طریق همون مودم ADSL با باقی سیستم ها در حال ارتباط هستید ؟ اگر بله سورس ضمیمه شده لیست سیستم های موجود تو شبکه رو برمیگردونه .

البته کد برای دوران جوونی هست و احتمالا اشکال فنی داره ولی در کل کار میکنه .

[BORHAN TEC]

روی سیستم من کار نکرد، متاسفانه... :اشتباه:
مودمم D-Link DSL-2640U هستش.

[iran-network]

سلام اقا مجتبی من کد شما اینطور نوشتم البته درون خود فرم

procedure TForm2.FormCreate(Sender: TObject);
begin
ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);
end;

ولی یک سوال چکار کنم هر لحظه چک کنه اخه گاهی بعضی از کاربران سیستم خاموش میکنند ولی اسمشون باقی میمونه با این مشکل چیکار کنم حالا ؟

[Mask]

جواب شما رو در پرشین نتورک دادم.
اما اینچور که از صحبتهاتون میشه نتیجه گرفت ، صورت مسئله شما مشکل داره.
لطفا کل پروژه و اصل کاری رو که میخواهید انجام بدید رو بفرمایید . تا بشه راحتتر و بهتر راهنماییتون کرد.

[iran-network]

من یک برنامه دارم که نمایش میده تعداد کازبرانی که به شبکه متصل هستند حالا اگه کاربران disconect کنند بازم اسمشون باقی میمونه میخوام هر لحظه چک کنه ؟
لطفا کد برنامه من ببینید ؟


var
Form2: TForm2;

implementation
type
PNetResourceArray = ^TNetResourceArray;
TNetResourceArray = array[0..100] of TNetResource;
function CreateNetResourceList(ResourceType: DWord;
NetResource: PNetResource;
out Entries: DWord;
out List: PNetResourceArray): Boolean;
var
EnumHandle: THandle;
BufSize: DWord;
Res: DWord;
begin
Result := False;
List := Nil;
Entries := 0;
if WNetOpenEnum(RESOURCE_GLOBALNET,
ResourceType,
0,
NetResource,
EnumHandle) = NO_ERROR then begin
try
BufSize := $4000; // 16 kByte
GetMem(List, BufSize);
try
repeat
Entries := DWord(-1);
FillChar(List^, BufSize, 0);
Res := WNetEnumResource(EnumHandle, Entries, List, BufSize);
if Res = ERROR_MORE_DATA then
begin
ReAllocMem(List, BufSize);
end;
until Res <> ERROR_MORE_DATA;

Result := Res = NO_ERROR;
if not Result then
begin
FreeMem(List);
List := Nil;
Entries := 0;
end;
except
FreeMem(List);
raise;
end;
finally
WNetCloseEnum(EnumHandle);
end;
end;
end;


{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
ScanNetworkResources(RESOURCETYPE_DISK, RESOURCEDISPLAYTYPE_SERVER, ListBox1.Items);
end;

end.

[mohsen24000]

خب تابع مربوطه رو با یه تایمر هر چند ثانیه اجراش کنید...

[محمد سلیم آبادی]

خب تابع مربوطه رو با یه تایمر هر چند ثانیه اجراش کنید...
با سلام خدمت استاد گرامی،
مهندس جان این "تایمر" که میگویید چه می باشد و به چه معناست؟
"فول تایم" رو در این لیست پیدا کردم ولی متاسفانه تایمر رو نه.
http://www.farsilookup.com/p2p/seek.jsp?lang=fa&word=%D8%AA%D8%A7%DB%8C%D9%85%D8%B1

لطفا راهنمایی بفرمایید با تشکر

[mohsen24000]

منظور از تایمر کامپوننت TTimer، یکی از ابزارهای دلفیه...
اخوی جان از اسپمتون هم بسی لذت بردیم!:قلب:

[iran-network]

میشه در مورد همین تایمر یکم بیشتر بگید چطور با تایمر اینکار انجام بدم اقا محسن

[mohsen24000]

هر چی خواستم جواب ندم نشد...
ایکاش حداقل کاری که می کردید اول مطالعه و بعد جستجو بود.
الانه که مدیر بیاد و گوش جفتمون رو بگیره!
یه شی از TTimer روی فرم قرار داده و در رویداد OnTimer همون یه خط دستوری که در رویدار OnCreate فرمتون هست رو قرار بدید.
زمان رو هم بر حسب میلی ثانیه تعریف و اونوقت تایمر رو Enable کنید تا هر چند میلی ثانیه یه بار دستور مورد نظر فراخوانی بشه.

[Felony]

الانه که مدیر بیاد و گوش جفتمون رو بگیره!
اومدم گوشتون رو بگیرم :لبخند:


با سلام خدمت استاد گرامی،
مهندس جان این "تایمر" که میگویید چه می باشد و به چه معناست؟
"فول تایم" رو در این لیست پیدا کردم ولی متاسفانه تایمر رو نه.
http://www.farsilookup.com/p2p/seek....8C%D9%85%D8%B1

لطفا راهنمایی بفرمایید با تشکر
حاجی مخت T-SQL ی شده ... ، انشالله مایکروسافت به راه راست هدایت بشه و یه شئ Timer برای بچه های SQL هم طراحی کنه هی Query بگیره ... ؛ آمین :گیج:

@ iran-network : دلیل نمیشه چون تازه کار با دلفی رو شروع کردید هر سوالی براتون پیش اومد سریع اینجا مطرح کنید ، اول کمی جستجو کنید ، این سوالات رو بارها تازه واردهای دیگه اینجا به طریق مختلف پرسیدن ، در ضمن قبل از هر کاری یک کتاب مقدماتی آموزش دلفی تهیه و مطالعه کنید .