Witam! Zrobiłem Update swojego programy wg. artykułu Update programu zamieszczonego na 4programmers.net. Wszystko ładnie działa do tąd, aż:
-nie ma internetu
-nie ma pliku ini na serwerze
Wtedy program się sypie i wyskakują błędy. Chyba za to powinna być odpowiedzialna procedura HTTPget errorOn, ale nie działa. Może ktoś wie dla czego ???
Funkcja sprawdzająca czy jesteś połączony - zwracam true jeżeli jesteś:
usus WinInet;
function Connected: Boolean;
var
Flags: DWORD;
begin
Flags := INTERNET_CONNECTION_MODEM or INTERNET_CONNECTION_LAN or
INTERNET_CONNECTION_PROXY or INTERNET_CONNECTION_MODEM_BUSY;
Result := InternetGetConnectedState(@Flags, 0);
end;
A co do braku pliku na serwerze to i tak i tak powinno coś ściągnąć, tzn. pusty plik ;P
Albo po prostu wylistuj pliki znajdujące się na serverze i sprawdź czy wśród nich jest twój plik ini. Jeżeli tak to OK, a jeżeli nie to wyświetlasz komunikat że brak pliku.
No dobra ta funkcja trybi, ale to nie ratuje mnie gdy nie dziala serwer na ktorym jest plik. DO tego chyba sa te procedury Httpget ONerror. Ale nie wiem czemu nie działają.
ps Jak sie robi to listowanie ???