Delphi如何判断IP地址是否正确

显示全部楼层 · 2009-6-28 10:28:33

Delphi如何判断IP地址是否正确，麻烦大家教教我该怎么写，谢谢！

千问 · 2009-6-28 10:28:33

function IsLegalIp(Str: string): Boolean;
var
I, K, DotCnt : Integer;
Num: string;
Arr: Array [1..4] of string;
begin
Result := False;
DotCnt := 0;
//由'0'..'9', '.'组成
For I := 1 to Length(Str) do
...

千问 · 2009-6-28 10:28:33

useswinsock;ifinet_addr(pchar(edit1.Text))=INADDR_NONE then
showmessage('ip不正确 ');...