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 1340 korisnika na forumu :: 182 registrovanih, 10 sakrivenih i 1148 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 15694 - dana 01 Feb 2026 12:23

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: 357magnum, 9191vs, A.R.Chafee.Jr., acov34, aleksamaki, Aleksandar1991, alzir86, amaterSRB, AMCXXL, Andrija357, Apis Dr, Apok, Aristotle2002, atmel, avijacija, Ba4e, bavar357, BB, Bbbggg1979, Ben Roj, bgs, blatruc82, Bobrock1, Bodin86, bokicacar, bolimejoli, boromir, BrusLi, Buzdovan, cenejac111, cifra, CikaKURE, Clouseau, cole77, DaliborVukadinovic, DalmatinacMF, darionis, Darth Malak, Dejan_vw, Dekanovic, deki1001, desmeki, Dioniss, djboj, Dogma21, Dolinc, Dorcolac, draganca, Duce, Duk011, dukajov, Ercomero, esx66, Folkstar, Geran136, GH69, Great White, halkin gol, Hardenberg, ikan, In_hero, InzenjerBL, istokzapad, j-22orao, Jakonjveliki, Kalem, Kapetan Hadok, kaput21, kaskadija, Knovakov, kolateralnasteta, Kolimator, komsija1, kovalski, kozhedub, Kružić, Kubovac, kutija11, ladro, Langdorf, laurusri, lima, ljuba.b, ljubsz, LostInSpaceandTime, LUDI, luka35, mackenzie, Magistar78, Major Tankosić, Malahit, markoskjk, Markov93, mb1213, medaTT, mikelija, Miki 84, Mikisha, mikki jons, Milos1987, milos97, mitja123, Mitraljeta, monomah, MountAndBlade, MP Rail, mrm, mux, naki011, Natuzzi, neko iz mase, nenad81, nenooo, nerevar, nesa1962, Neutral, nisamBot, obsc, Pantelejmon, PC_Liu94, pceklic, pein, petar0301, Petrusci, PMsnow, PrincipL, procesor, Promising0, raso76, Recce, Remarqe, retiredlt24, RiV, Rocky I, rodoljub, Rok A Bit, Romibrat, s putnik, Samo gledam, samojednoimeznam, sevenino, Shinobi, shlauf, Singidunumac, Sioux7674, Sirius, stagezin, steksi, t84dar, tamno.nebo, TBoy, TheDictator, tmanda323, ujke, urosbg, uruk, Vaske8990, vathra, vazduh, Veless, Velizar Laro, Veljko™, vensla, Vlada76, vladas87, Vojkan Petrovic, Volkhov-M, Vrač, vzd1389, wolf431, xoxxvelja, Zandar, Zander, zmajbre, zoran-ruma, zoran77, Zorge, Zukov, ZZZ, Žoržo, Đurđevdan, 787