+ Reply to Thread
Results 1 to 11 of 11

Thread: Mendapatkan IP Address Komputer Dengan Delphi

  1. #1
    Geuchik zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah's Avatar
    Join Date
    Mar 2007
    Location
    aceh darosalam
    Posts
    1,580

    Default Mendapatkan IP Address Komputer Dengan Delphi

      Related Links
    wekekekeke

    banyak juga yang gak peduli ma coding coding ya aye juga begok banget han jeut sapu nyoe... pa entah dah diposting

    btw biarlah biar mantap walaupun sok pande...(abiz gak ada yang mau ajarin sich )

    ngawur = off

    Mungkin bagi temen2 yang butuh untuk ngecek IP Addres komputer pakai aplikasi Delphi bisa nyoba cara berikut ini :

    Code:
    uses Winsock;
    
    
    function getIPs: Tstrings;
    type
    TaPInAddr = array[0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
    var
    phe: PHostEnt;
    pptr: PaPInAddr;
    Buffer: array[0..63] of Char;
    I: Integer;
    GInitData: TWSAData;
    begin
    WSAStartup($101, GInitData);
    Result := TstringList.Create;
    Result.Clear;
    GetHostName(Buffer, SizeOf(Buffer));
    phe := GetHostByName(buffer);
    if phe = nil then Exit;
    pPtr := PaPInAddr(phe^.h_addr_list);
    I := 0;
    while pPtr^[I] <> nil do
    begin
    Result.Add(inet_ntoa(pptr^[I]^));
    Inc(I);
    end;
    WSACleanup;
    end;
    
    
    procedure TForm1.Button1Click(Sender: TObject);
    begin
    ShowMessage(GetIps.text);
    end;
    end.
    wekekekekeke kok ketawa terus ya hehehehe bah baru aja dibilang..

    oya jangan lupa pake klausa uses winsock yeeeee....

  2. #2
    uLee Balang Planet81 will become famous soon enough Planet81's Avatar
    Join Date
    Sep 2006
    Posts
    4,629

    Default

    wah, siapa yang nggak peduli....
    siapa yang menganggap sok pande....

    nih kode diam-diam gw ikuti, dan gw contoh dirumah... secara gw juga pernah belajar delphi So, nggak semuanya seperti yang tersirat, jadi tetep posting kode-kode delphi ya... kalo bisa kode yang mengontrol port serial di komputer... gw pengen belajar banyak....

    keep posting zulfah.
    I Think, therefore I am - Rene Descartes

  3. #3
    Geuchik zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah's Avatar
    Join Date
    Mar 2007
    Location
    aceh darosalam
    Posts
    1,580

    Default

    Quote Originally Posted by Planet81 View Post
    wah, siapa yang nggak peduli....
    siapa yang menganggap sok pande....

    nih kode diam-diam gw ikuti, dan gw contoh dirumah... secara gw juga pernah belajar delphi So, nggak semuanya seperti yang tersirat, jadi tetep posting kode-kode delphi ya... kalo bisa kode yang mengontrol port serial di komputer... gw pengen belajar banyak....

    keep posting zulfah.
    ehm.... ok bro..

    ada dan dah pernah nyoba alhamdulillah berhasil kok

    ntar aku posting dech

  4. #4

    Default

    hebat..hebat...
    tinggal nunggu order bikin software house aja ni..
    ▒▒▒▒▒▒▒▒▒▒▒ Sophisticate ▒▒▒▒▒▒▒▒▒▒▒
    LANGSUNG DARI TKP!!!
    MY BLOG

  5. #5
    Geuchik poison is on a distinguished road poison's Avatar
    Join Date
    Jun 2006
    Location
    pasuruan jatim
    Posts
    979

    Default

    ya ya di coba neh

  6. #6
    Geuchik acheh is on a distinguished road acheh's Avatar
    Join Date
    Feb 2006
    Location
    Bumi Allah
    Posts
    996

    Talking

    ..||..

    Ebat kali emang bang zulfah..
    nyan baru kupatesh admin U...

    ..||..
    -=[ Dibalik Gambar Itu.. Kutitip Pesan Khusus Untukmu ]=-

  7. #7
    uLee Balang Planet81 will become famous soon enough Planet81's Avatar
    Join Date
    Sep 2006
    Posts
    4,629

    Default

    zulfah gitu loh......
    I Think, therefore I am - Rene Descartes

  8. #8
    Geuchik zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah's Avatar
    Join Date
    Mar 2007
    Location
    aceh darosalam
    Posts
    1,580

    Default

    Quote Originally Posted by acheh View Post
    ..||..

    Ebat kali emang bang zulfah..
    nyan baru kupatesh admin U...

    ..||..
    nyan ditgk acheh pu ka geu peugah ????

  9. #9

    Default

    auah gelappp......... udah pernah coba jalankan bang zulfah....????
    " SEKALI MAJU PANTANG MUNDUR, SEKALI TAMPIL HARUS BERHASIL"

  10. #10
    Geuchik zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah is a name known to all zulfah's Avatar
    Join Date
    Mar 2007
    Location
    aceh darosalam
    Posts
    1,580

    Default

    Quote Originally Posted by keane_btp View Post
    auah gelappp......... udah pernah coba jalankan bang zulfah....????
    ya udahlah........ gimana lom sich broe.. postinglah keane program loe ke mari

  11. #11

    Default

    cara makek nya gimana tu om??

    #ajarin donk .

    aku mohon

+ Reply to Thread

Similar Threads

  1. Replies: 2
    Last Post: 08-19-2008, 01:26 AM
  2. Replies: 0
    Last Post: 07-11-2008, 10:39 PM
  3. membuat animasi pergerakan planet dengan delphi
    By zulfah in forum Pemrograman
    Replies: 0
    Last Post: 07-11-2008, 10:34 PM
  4. 10 Jurus Mendapatkan Foto Berkualitas dengan Ponsel
    By RauL in forum Diskusi Fotografi
    Replies: 0
    Last Post: 06-21-2008, 10:14 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts