豆豆网 > 技术应用 > 程序设计 > Delphi > delphi教程 > 正文

Delphi基础开发技巧

豆豆网技术应用频道 2007年07月23日【字号：小中大】收藏本文

内容摘要：本文介绍Delphi基础开发的一些技巧

　　判断结果是MODEM、局域网或是代理服务器方式。

uses wininet;
Function ConnectionKind :boolean;
var flags: dword;
begin
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and INTERNET_CONNECTION_MODEM) = INTERNET_CONNECTION_MODEM then
begin
showmessage('Modem');
end;
if (flags and INTERNET_CONNECTION_LAN) = INTERNET_CONNECTION_LAN then
begin
showmessage('LAN');
end;
if (flags and INTERNET_CONNECTION_PROXY) = INTERNET_CONNECTION_PROXY then
begin
showmessage('Proxy');
end;
if (flags and INTERNET_CONNECTION_MODEM_BUSY)=INTERNET_CONNECTION_MODEM_BUSY then
begin
showmessage('Modem Busy');
end;
end;
end;

　　◇[DELPHI]如何判断字符串是否是有效EMAIL地址

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;

　　[DELPHI]判断系统是否连接INTERNET

　　需要引入URL.DLL中的InetIsOffline函数。

　　函数申明为:

function InetIsOffline(Flag: Integer): Boolean; stdcall; external 'URL.DLL';

　　然后就可以调用函数判断系统是否连接到INTERNET

上一页 3 4 5 678 9 10 11 12 下一页

责编：豆豆技术应用

正在加载评论...