+- 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=6040)
كييف اضهر ip في الفورم - zte-usb - 26-03-2014
السلام عليكم ما هي طريقة انشاء ip في الفورم يضهر تلقائيا عند دخول البرنامج
والطريقة ليشتغل برنامجي على كل الاجهزة
والطريقة عند دخول الفورم الثاني يختفي الاول
والسلام عليكم
كييف اضهر ip في الفورم - achi - 26-03-2014
كود :
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Winsock;
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.Button1Click(Sender: TObject);
begin
Label1.Caption := GetIPAddress;
end;
end.[align=center][/align]كييف اضهر ip في الفورم - TheGame - 03-05-2014
كود بسيط لاستخراج ال ip ووضعه في فورم
اولا ضع مكون tcpClient من قائمة Internet
ثم ضع هدا الكود في Oncreat للفورم لكي يشتغل عند الدخول الى البرنامج
[COLOR="DarkRed"];label1.Caption:= Tcpclient1.LocalHostAddr
[/COLOR]
طبعا الكود أعلاه للايبي الداخلي اما ادا أردت الايبي الخارجي فيجب أن تتوفر على الانترنت
فتضع مكون idhttp من قائمة IndyClient ثم تضع هذا الكود[COLOR="DarkRed"]
;('label2.Caption := idhttp1.Get('http://iplookup.flashfxp.com[/COLOR]