Problem je sledeci:
Napravio sam servis koji na odredeno vreme sinhronizuje podatke sa udaljenim serverom, ali problem je sto nece da aktivira konekciju.
ovo je code:
procedure TSinhro_tiket.Timer1Timer(Sender: TObject);
var
dwConnectionTypes: DWORD;
Begin
dwConnectionTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN + INTERNET_CONNECTION_PROXY;
if not InternetGetConnectedState(@dwConnectionTypes, 0) then
begin
if not InternetAutodial(INTERNET_AUTODIAL_FORCE_ONLINE or INTERNET_AUTODIAL_FORCE_UNATTENDED, 0) then
begin
ShowMessage('Greska prilikom povezivanja, problem s telefonskom linijom');
end
else
//radi nesto drugo
end;
u uses dodan wininet, ali nece da radi.
isto to u standardnoj aplikaciji uredno okrece broj.
Nikada se do sada nisam igrao sa servisima tako da je svaka pomoc dobrodosla,
any hint :) ??
Pozzz