文章类别：Delphi 来源： 作者： 发表日期：2006-2-4 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

program get_ip; uses   winsock,sysutils; VAR   ch : ARRAY[1..32] OF Char;   i : Integer;   WSData: TWSAData;   MyHost: PHostEnt; begin   IF WSAstartup(2,wsdata)<>0 THEN     BEGIN       Writeln('can't start Winsock: Error ',WSAGetLastError);       Halt(2);     END;   try     IF getHostName(@ch[1],32)<>0 THEN       BEGIN         Writeln('getHostName failed');         Halt(3);       END;   except     Writeln('getHostName failed');     halt(3);   end;   MyHost:=GetHostByName(@ch[1]);   IF MyHost=NIL THEN     BEGIN       Writeln(GetHostName('+StrPas(@ch[1])+') failed : Error '+IntToStr(WSAGetLastError));       Halt(4);     END   ELSE     BEGIN         Write('address ');          FOR i:=1 TO 4 DO             BEGIN               Write(Ord(MyHost.h_addr^[i-1]));               IF i<4 THEN                 write('.')               ELSE                 writeln;             END;    END; end.

上一篇:Delphi中用于读写(I/O)的三种文件类型

下一篇:Delphi嵌入式汇编一例