+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : هل هناك كود دلفي يقوم بإحضار IP (/showthread.php?tid=11314)
هل هناك كود دلفي يقوم بإحضار IP - العيد1403 - 02-04-2021
السلام عليكم
هل هناك كود دلفي يقوم بإحضار IP للحواسيب المتصلة في شبكة محلية ووضعها في listbox وكيف ذلك
وشكرا
RE: هل هناك كود دلفي يقوم بإحضار IP - embarcadero - 25-04-2021
إضف المكتبة التالية Winsock
المثال يعمل على دلفي 7
كود :
Function GetIPAddress():String;
type
pu_long = ^u_long;
var
varTWSAData : TWSAData;
varPHostEnt : PHostEnt;
varTInAddr : TInAddr;
namebuf : Array[0..255] of char;
begin
If WSAStartup($101,varTWSAData) <> 0 Then
Result := 'No. IP Address'
Else Begin
gethostname(namebuf,sizeof(namebuf));
varPHostEnt := gethostbyname(namebuf);
varTInAddr.S_addr := u_long(pu_long(varPHostEnt^.h_addr_list^)^);
Result := 'IP Address: '+inet_ntoa(varTInAddr);
End;
WSACleanup;
end;
procedure TForm1.btn1Click(Sender: TObject);
begin
Label1.Caption := GetIPAddress;
end;