دخول

zte-usb · 26-03-2014, 12:00 PM

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

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

achi · 26-03-2014, 06:46 PM

كود :
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]

TheGame · 03-05-2014, 08:04 PM

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

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة