掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
自分のＰＣのＩＰアドレスを取得するには？ (ID:5740)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ぼーらんどのさいとの「Q&A」にさんぷるがあるだべさ。 けど、今はさーばー移転中で、あくせす出来ないだべさ。 procedure TForm1.Button1Click(Sender: TObject); var wVersionRequired: Word; WSData: TWSAData; Status: Integer; Name: array[0..255] of Char; HostEnt: PHostEnt; IP: PChar; begin wVersionRequired := MAKEWORD(1, 1); Status := WSAStartup( wVersionRequired, WSData); if Status <> 0 then begin MessageDlg( 'Error Occured', mterror, [mbOK], 0); exit; end; StrPCopy(Name, Edit1.Text); HostEnt := GetHostByName(@Name); if HostEnt <> nil then begin IP := HostEnt^.h_addr_list^; Edit2.Text := IntToStr(Integer(IP[0])) + '.' + IntToStr(Integer(IP[1])) + '.' + IntToStr(Integer(IP[2])) + '.' + IntToStr(Integer(IP[3])); end else Edit2.Text := '(N/A)'; end; るーたー使ってると、ろーかるIPになるだべさ。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.