Дозвон до провайдера [D7, WinXP]
Alex17 © (2005-06-06 18:29:00)
Всем привет подскажите, пожалуйста, как автоматически
дозвониться до своего провайдера. Дайте, пожалуйста, пример.
NeoVariant (2005-06-06 18:59:00) [1]
Дозвонится по соединению по-умолчанию
uses
WinInet;
procedure TForm1.Button1Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes,
0) then
//нет соединения
if not
InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or
INTERNET_AUTODIAL_FORCE_UNATTENDED, 0)
then
begin
//ошибка
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
dwConnectionTypes: DWORD;
begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM +
INTERNET_CONNECTION_LAN +
INTERNET_CONNECTION_PROXY;
if InternetGetConnectedState(@dwConnectionTypes, 0)
then
//дозвониоись
InternetAutodialHangup(0);
end;
Наверх 
ЧАТ |
Орешник |
|
