16-04-2020, 01:30 AM
إقتباس :[-] البرنامج يفشل في تحديد الLocal IP Address في حالة وجود أكثر من Network Adapter
الأوامر التي استعملتها في تطبيقك و ضعتها بطريقة خاطئة:
هنا الدالة ترجع نوع string
كود :
Function GetLocalIP : String;في اوامر مثالك، هنا حلقة تقوم بحفظ ما تم جلبه في result، الحلقة تدور بعدد ما تم تحديده من Network Adapters النشطة (Enabled). و الحفظ يوضع في نفس الــ string في كل مرة (هنا الخطأ).
كود :
while IPlist[i] <> nil do
begin
result := inet_ntoa(IPList^[i]^);
Inc(i);
end;احد الحلول المتوفرة، تعديل الأوامر الى:
result يجب ان يكون نوع نصي يمكنه احتواء قائمة نصية ثم اظهار محتواها في مكون يدعم القوائم و ليس مكون من نوع TEdit