GetHostByName 함수.

아래는 델파이로 만든 예제입니다.
빌더 포럼이지만, 현재 빌더가 안깔린 관계로 델파이 예제로 대신합니다.
(맨날 깐다고 벼르기만 하는데, OS를 새로 깔아야해서리...)

간단한 소스니 알아볼 수 있을 듯합니다.

(사용예)
RemoteIP := ResolveAddress('MyComputer');

function ResolveAddress(const HostName: String): String;
var
  HostEnt: PHostEnt;
  WSAData: TWSAData;
begin
  try
    if WSAStartup(MAKEWORD(2,0),WSAData) = 0 then
      try
        HostEnt := gethostbyname(PChar(HostName));
        if HostEnt <> nil then
          with HostEnt^ do
            Result := Format('%d.%d.%d.%d', [
                             Ord(h_addr^[0]), Ord(h_addr^[1]),  Ord(h_addr^[2]), Ord(h_addr^[3])]);
      finally
        WSACleanup;
      end;
  except
  end;
end;

질문자 님이 쓰신 글 :
: 클라이언트에서 서버의 IP, Port를 이용해서 연결 하는데
: 서버의 이름(컴퓨터이름)을 가지고 연결하는 방법은 없을까요?
:
:
: civilian,안영제 님이 쓰신 글 :
: : 컴퓨터 이름으로 통신을 한다는게 어떤 뜻인가요?
: : 질문을 좀더 구체적으로 하심이...?
: :
: : 질문자 님이 쓰신 글 :
: : : 안녕하세요.
: : :
: : : 컴퓨터 이름을 가지고 통신(TCP/IP)를 하고 싶을데요
: : :
: : : 소켓은 Indy를 쓰고요
: : :
: : : 어떻해 하는 방법이 있을까요?
: : :
: : : 음....