delphi4arab منتديات دلفي للعرب

السلام عليكم ما هي طريقة انشاء ip في الفورم يضهر تلقائيا عند دخول البرنامج
والطريقة ليشتغل برنامجي على كل الاجهزة
والطريقة عند دخول الفورم الثاني يختفي الاول

والسلام عليكم

كود :
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 ووضعه في فورم
اولا ضع مكون tcpClient من قائمة Internet
ثم ضع هدا الكود في Oncreat للفورم لكي يشتغل عند الدخول الى البرنامج
[COLOR="DarkRed"];label1.Caption:= Tcpclient1.LocalHostAddr
[/COLOR]
طبعا الكود أعلاه للايبي الداخلي اما ادا أردت الايبي الخارجي فيجب أن تتوفر على الانترنت
فتضع مكون idhttp من قائمة IndyClient ثم تضع هذا الكود[COLOR="DarkRed"]
;('label2.Caption := idhttp1.Get('http://iplookup.flashfxp.com[/COLOR]

zte-usb

achi

TheGame