Mam problem bo od pewnego momentu (nie wiem dlaczego) od wczoraj funkcja zwraca mi false mimo tego, że jestem połączony z interkiem. Mam takie dwie funkcje:
function Connected: LongBool;
var
Flags: DWORD;
begin
Flags := INTERNET_CONNECTION_LAN or INTERNET_CONNECTION_MODEM or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
Result := InternetGetConnectedState(@Flags, 0); // sprawdz polaczenie.
if not Result then
begin
InternetConnect;
Result := InternetGetConnectedState(@Flags, 0); // sprawdz polaczenie.
end;
end;
//i druga
function InternetConnect: LongBool;
var
dwConnectionTypes: DWORD;
begin
result := true;
dwConnectionTypes := INTERNET_CONNECTION_MODEM
+ INTERNET_CONNECTION_LAN
+ INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then
begin
if AutoConnect then
InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0);
end;
end;
nie wiem co się dzieje, moze jakis blad gdzies? pomóżcie!