MyCity » Pascal -> Delphi » proxy dialog

proxy dialog

Napisano na dan: 5.4.2007

proxy dialog
Sledeća strana Pagination

Idi na vrh

Poslao: 22 Apr 2007 21:56
Idi na vrh
offline
  • srdjos  Male
  • Zaslužni građanin
  • Pridružio: 27 Sep 2005
  • Poruke: 678

kod winineta, ima li nacin da se nekako
izbegne onaj proxy dialog

tacnije

nacin da se nekako dodje do user-a i pass-a na
proxy serveru pa da se uporedi sa onima u aplikaciji

postoje neke wininet konstante i funkcije tipa
INTERNET_OPTION_PROXY_USERNAME

ali ovo nikako da mi proradi
uvek mi prodje iako ukucam neke bezveze usere
kao da uzima iz IE onog postavljenog usera i lozinku
jer internetconnect mi uvek napuni promenjivu
tj nikad ne vrati nil
napomena:
ovo je u test fazi, nedovrseno i ima viska promenjivih

function TsvcTaric.RKMCheckProxyUserPass(const  _pServer, _pUser, _pPass: String;   const _pPort: Integer): Boolean; var   _hOpen, _hConnect: HInternet;   _proxyInfo, _userInfo: PInternetProxyInfo;   _proxyLen,  _userLen: LongWord;   _proxyServer, _proxyServerByPass, _proxyAddressPort: String;   _pom: String; begin   _proxyAddressPort := _pServer;   if _pPort<>0 then     _proxyAddressPort := _proxyAddressPort+':'+IntToStr(_pPort);   _proxyLen := 4096;   GetMem(_proxyInfo, _proxyLen);   if InternetQueryOption(nil, INTERNET_OPTION_PROXY, _proxyInfo, _proxyLen) then     if _proxyInfo.dwAccessType = INTERNET_OPEN_TYPE_PROXY then begin       _proxyServer := _proxyInfo.lpszProxy;       _proxyServerByPass := _proxyInfo.lpszProxyBypass;        _hOpen := InternetOpen(PChar('webService'),                               INTERNET_OPEN_TYPE_PROXY,                               PChar(_proxyAddressPort),                               nil, 0);        _hConnect := InternetConnect(_hOpen,  // InternetOpen() handle                                     PChar(_pServer), // bunk                                     _pPort,                                     PChar(_pUser),      //  username                                     PChar(_pPass),      //  password                                     INTERNET_SERVICE_HTTP, // HTTP                                     INTERNET_FLAG_KEEP_CONNECTION,                                     0);//  application specific context         _userLen := 4096;         GetMem(_userInfo, _userLen);         if InternetQueryOption(_hConnect, INTERNET_OPTION_PROXY_USERNAME, _userInfo, _userLen) then begin           _pom := _userInfo^.lpszProxy;           _pom := _userInfo^.lpszProxyBypass;         end else           RaiseLastWin32Error;     end; . ... ..... .......

Dopuna: 22 Apr 2007 21:56

RemObjects je cudo
imas wininetchannel komponentu
ako ne koristis IE
onda imas httpchannel

i stvar radi bez problema



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.

MyCity » Pascal -> Delphi » proxy dialog

Ko je trenutno na forumu
 

Ukupno su 2820 korisnika na forumu :: 66 registrovanih, 5 sakrivenih i 2749 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 20624 - dana 04 Apr 2026 04:18

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 4thFlavian, Aleksandar Tomić, Andrija357, ArchaBasha, Asteker, BBCRF, bbogdan, Bgd123, bojank, braca57, brufen, Bubimir, C-Gun, crazydkure, Crazzer, darkkran, dolinalima, Dorcolac, Draganeli, Electron, encikopedija, FileFinder, Giskard, havoc995, In_hero, Iskander, ivan_8282, Jaz, Jozo74, kolateralnasteta, komenski, LeGrandCharles, Malahit, mercedesamg, Mi lao shu, miki kv, milanstankovic087, mist-mist, narandzasti, nebkv, nenooo, nenorodjo, Nobunaga, OgnjenMitric, Pekman, Pero, pzoca, radoznao, raso76, Rok A Bit, S-G, Sale0501, Sharpshooter, Shilok, Sirius, Solunac na steroidima, synergia, trutcina, v82, Vica1958, VJ, voja64, vuk77, XBMC, Yugol33, 79693