Форум: "Сети";
Текущий архив: 2009.09.27;
Скачать: [xml.tar.bz2];
ВнизПроблема с GetConnect Найти похожие ветки
← →
Виталий Гаврилов (2008-04-03 21:07) [0]Уважаемые Мастера! Помогите найти проблему! У меня загрузка страницы идет, а заказчика нет!
procedure TForm5.FindAddress;
var
Flags: OLEVariant;
defdir: string;
strKind: string;
begin
Flags := 0;
defdir := ExtractFileDir(Application.ExeName);
if GetConnect(strKind)and(strkind="Modem") then
WebBrowser1.Navigate(WideString("http://www.0.ru/0/0/"), Flags, Flags, Flags, Flags)
else
abcAnimationFrame1.ActivePage:= abcPage10;
end;
function TForm5.GetConnect(var strKind: string): Boolean;
var
flags: DWORD;
begin
strKind := "";
Result := InternetGetConnectedState(@flags, 0);
if Result then
begin
if (flags and 1) = 1 then strKind := "Modem";
if (flags and 2) = 2 then strKind := "LAN";
if (flags and 4) = 4 then strKind := "Proxy";
if (flags and 8) = 8 then strKind := "Modem Busy";
end;
end;
← →
Сергей М. © (2008-04-04 08:37) [1]Так мож заказчик ходит в Тырнет не через модем ?)
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2009.09.27;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.01 c