Q&A
질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다...
예제로 해주세여....워낙 왕초보라.....
- 내 ip주소를 알아내는 방법
질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다...
예제로 해주세여....워낙 왕초보라.....
2
COMMENTS
-
-
chodel wrote:
>
> 질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다...
>
> 예제로 해주세여....워낙 왕초보라.....
다음과 같이 해보세여~ ^^!
procedure TForm1.SelfIP;
var
wsaData : TWSAData;
slocal : array[0..255] of Char;
phos : PHostEnt;
addr : PChar;
begin
if (WSAStartup(MAKEWORD(1, 1), wsaData) <> 0) then
exit;
if (gethostname(slocal, sizeof(slocal)) = SOCKET_ERROR) then
exit;
phos := gethostbyname(slocal);
if phos = nil then
exit;
addr := PChar(phos.h_addr_list^);
ClientIP := inet_ntoa(PInAddr(addr)^); <-- ClientIP : 전역변수이며 IP가 저장됨
WSACleanup();
end;
(NOTICE) You must be logged in to comment on this post.
-
- 호야
- •
- 2000.09.30 20:28
- 1 COMMENTS
- /
- 0 LIKES
-
김정•2000.10.10 05:26안녕하세요? 고드름 김정입니다. CreateProcess 의 경우에도 SW_HIDE 파라미터를 줄 수 있습니다. ^^; ...
-
- 한영수
- •
- 2000.09.30 20:22
- 2 COMMENTS
- /
- 0 LIKES
-
강인규•2000.10.01 00:10uses절에 qrexport를 추가하시공..... //html화일로 바꾸기 QuickRep1.ExportToFilter(TQRHTMLDocume...
-
길손~•2000.09.30 22:40한영수 wrote: > 퀵리포트를 이용해서 출력물을 파일로 저장하려고 하는데 > 화면인쇄를 하면 위쪽에 인...
-
- chodel
- •
- 2000.09.30 20:10
- 2 COMMENTS
- /
- 0 LIKES
질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다... 예제로 해주세여....워낙 왕초보라.....-
...•2000.09.30 22:11chodel wrote: > > 질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다... > > 예제...
-
이진우•2000.09.30 20:29chodel wrote: > > 질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다... > > 예제...
-
- 김경태
- 2000.09.30 20:03
- 0 COMMENTS
- /
- 0 LIKES
-
- 김경태
- 2000.09.30 19:58
- 0 COMMENTS
- /
- 0 LIKES
-
- 델빠아이
- 2000.09.30 19:53
- 0 COMMENTS
- /
- 0 LIKES
-
- 사발우성
- •
- 2000.09.30 19:44
- 3 COMMENTS
- /
- 0 LIKES
-
신재용•2000.09.30 19:50사발우성 wrote: > > 하여 고수님들 오늘도 질문이 있어서리.. 이렇게 질문함당... > > 에디트박스...
-
한현정•2000.09.30 19:49에디트박스라는게 TEdit를 말씀하시는 건지.. TCombobox를 말하는 건지 TListBox를 말하는 건지 헤깔리는 ...
-
사발우성•2000.09.30 21:05한현정 wrote: > 에디트박스라는게 TEdit를 말씀하시는 건지.. TCombobox를 말하는 건지 > TListBox를 말...
-
- 다모아
- 2000.09.30 19:41
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초
- 2000.09.30 19:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 노치준
- •
- 2000.09.30 19:06
- 1 COMMENTS
- /
- 0 LIKES
-
타락천사•2000.09.30 21:58안녕하세여.. 타락임다..^^ 오브젝트 인스펙터에서 ModalResult 값을 변경해 주세요..^^ 즐푸하세여....
-
- 코스모
- •
- 2000.09.30 18:31
- 1 COMMENTS
- /
- 0 LIKES
-
김경태•2000.09.30 21:17전이거 몰라서..캡춰해었씀다..-_-; 타락님.미오.내가.물어볼땐.알갈쿄주고.징징징...ㅠ.ㅠ procedure ...
-
- 유대영
- 2000.09.30 18:20
- 0 COMMENTS
- /
- 0 LIKES
-
- 양익호
- •
- 2000.09.30 18:07
- 1 COMMENTS
- /
- 0 LIKES
-
linuxwiz•2000.09.30 18:56양익호 wrote: > 민주아빠 wrote: > > SYBASE에서 숫자를 문자로 > > 오라클에서는 문자를 숫자로 변환...
-
- 유대영
- 2000.09.30 17:56
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤승록
- 2000.09.30 15:54
- 0 COMMENTS
- /
- 0 LIKES
-
- 파이걸
- •
- 2000.09.30 14:23
- 2 COMMENTS
- /
- 0 LIKES
-
델포이•2000.09.30 18:36파이걸 wrote: > Incompatible types:'TObject' and 'String' > 이런 에러 메시지가 나왔는데요.. 저로서...
-
파이걸•2000.09.30 18:43답변 고마버여~ 워낙 초보라서.. 해결됐어요.. 함수에 sender:TObject를 하나 더 선언해서 벌어지는 에러...
-
- 조규춘
- 2000.09.30 11:25
- 0 COMMENTS
- /
- 0 LIKES
-
- 왕초보임당
- 2000.09.30 10:25
- 0 COMMENTS
- /
- 0 LIKES
-
-
최석기•2000.09.30 19:05안녕하세요. 델파이 세상(http://www.freechal.com/delphiworld)에 최석기입니다. DbiSaveChange 함수...
-
-
-
한현정•2000.09.30 19:54컴포넌트를 설치할때는 File -> open에서 *.dpk를 열면 조그만 창이 나올 겁니다ㅣ Compile후 Install을...
-
>
> 질문대로 내 ip주소를 알고 싶어여....빠른 답변을 기다리겠습니다...
>
> 예제로 해주세여....워낙 왕초보라.....
그냥 TNMSMTP를 가져다 놓구요
VAR
IP:STRING;
IP := NMSMTP1.LOCALIP;
한번해보세요...좀 엽기적인가 ^^?