| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с GetConnect [D5, Win95/98, WinXP]

Виталий Гаврилов ©   (2008-04-03 21:07:00) 

Уважаемые Мастера! Помогите найти проблему! У меня загрузка страницы идет, а заказчика нет!

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:00) [1]

Так мож заказчик ходит в Тырнет не через модем ?)

---

Наверх