|
WSAData: TWSAData;
HostEnt: PHostEnt;
begin
WSAStartup(2, WSAData);
HostEnt := gethostbyname(PChar(Name));
with HostEnt^ do
Result := Format(''''%d.%d.%d.%d'''', [Byte(h_addr^[0]),
Byte(h_addr^[1]), Byte(h_addr^[2]), Byte(h_addr^[3])]);
WSACleanup;
end;
6.编写Internet软件常常会遇到检查用户输入的网址，E-mail地址等等，如何解决呢？
我这正好有写好的函数。
检查一个URL是否有效
uses wininet;
Function CheckUrl(url:string):boolean; //检查一个URL是否有效函数
var
hSession, hfile, hRequest: hInternet;
dwindex,dwcodelen :dword;
dwcode:array[1..20] of char;
res : pchar;
begin
if pos(''''http://'''',lowercase(url))=0 then
url := ''''http://''''+url;
Result := false;
hSession := InternetOpen(''''InetURL:/1.0'''',
INTERNET_OPEN_TYPE_PRECONFIG,nil, nil, 0);
if assigned(hsession) then
begin
hfile := InternetOpenUrl(hsession, pchar(url), nil, 0, INTERNET_FLAG_RELOAD, 0);
dwIndex := 0;
dwCodeLen := 10;
HttpQueryInfo(hfile, HTTP_QUERY_STATUS_CODE, @dwcode, dwcodeLen, dwIndex);
res := pchar(@dwcode);
result:= (res =''''200'''') or (res =''''302''''); //200,302未重定位标志
if assigned(hfile) then
InternetCloseHandle(hfile);
InternetCloseHandle(hsession);
end;
end;
如何处理E-mail地址,下面给你个E-mail地址处理函数
function IsEMail(EMail: String): Boolean;
var s: String;
ETpos: Integer;
begin
ETpos:= pos(''''@'''', EMail);
if ETpos > 1 then
begin
s:= copy(EMail,ETpos+1,Length(EMail));
if (pos(''''.'''', s) > 1) and (pos(''''.'''', s) <
length(s)) then
Result:= true else Result:= false;
end
else
Result:= false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if isemail(Edit1.Text) then
begin
ShowMessage(''''eMail-Address!'''');
end;
end;
7,动态改变DNS Server的地址
下面的函数可以添加 DNS Server的地址
如想添加202.100.100.65 202.10.10.10
SetDNSAddresses(''''202.100.100.65 202.10.10.10'''') ;
//注意: 各地址之间用一个空格隔开
SetTDNSAddresses 定义如下：
procedure SetDNSAddresses( sIPs : string );
begin
// 如果是 Windows NT用下面的代码
SaveStringToRegistry_LOCAL_MACHINE(
''''SYSTEM\CurrentControlSet'''' +
''''\Services\Tcpip\Parameters'''',
''''NameServer'''',
sIPs );
// 如果你用的是Windows 95用下面的代码
SaveStringToRegistry_LOCAL_MACHINE(
''''SYSTEM\CurrentControlSet'''' +
''''\Services\VxD\MSTCP'''',
''''NameServer'''',
sIPs );
end;
其中 SaveStringToRegistry_LOCAL_MACHINE 定义：
uses Registry;
procedure SaveStringToRegistry_LOCAL_MACHINE(
sKey, sItem, sVal : string );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create( '''''''' );
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.WriteString( sKey, sItem, sVal + #0 );
reg.Free;
end;
上一页 [1] [2]
[聊天工具]用Windows98第二版直接共享Internet [系统软件]Internet Explorer 编程简述（繁体版）
[系统软件]单击链接后无法打开新的 Internet Explorer 窗口或… [系统软件]OLE with the internet explorer
[常用软件]Internet Explorer 6 Public Preview 最新出击！！ [常用软件]Internet Explorer中的潘多拉魔盒 作者：江海
[常用软件][网络]Becky Internet Mail 软件评测 [VB.NET程序]VB自动登陆网络站点详解（三）：Internet Explore…
[Delphi程序]DELPHI与INTERNET2 [Delphi程序]谈Delphi 下Internet 编程技巧(二)
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
