Delphi, процедура для включения прокси

[ak3000]

Есть ли у кого процедурка подобная уже написанная, а то не хочеться терять время на написание.
Желательно такого типа: proxyprocedure(st : string; f : boolean);
If f = false то просто отключить работу через прокси
Else подключиться через прокси указанный в st (в таком виде 59.23.131.124:8080)

Процедура есно нужна для компонента TWebBrowser

[ak3000]

Ну подскажите плз как это сделать. Или наткните на функцию которую можно переделать.
О, великие гуру, я верю что вы есть!

[mihali4]

Или наткните на функцию

Натыкаю. Жмем F1 в Дельфи и вводим в строке поиска - PROXY.
Читаем справки и начинаем понимать, что сия штука не имеет никакого отношения к TWebBrowser, а исключительно к самому соединению...

[ak3000]

Ну пускай к соединению, я в этом не очень понимаю.
У меня есть вот такой код:

var
PIInfo: PInternetProxyInfo;
F : TextFile;
Stroka : String;
i, Count, Nomer : Integer;
Begin
AssignFile(F, 'Proxy.txt');
Reset(F);
Count:=0;
While not Eof(F) do
Begin
Readln(F, Stroka);
Inc(Count);
End;
Nomer:=1+Random(Count);
Reset(F);
For i:=1 to Nomer do
Readln(F, Stroka);
CloseFile(F); }
New(PIInfo);
PIInfo^.dwAccessType:=INTERNET_OPEN _TYPE_PROXY;
PIInfo^.lpszProxy:=PChar(Edit1.Text );
//PIInfo^.lpszProxy:=PChar('194.165.1 30.93:80');
PIInfo^.lpszProxyBypass:=PChar('');
UrlMkSetSessionOption(INTERNET_OPTI ON_PROXY, piinfo,
SizeOf(Internet_Proxy_Info), 0);
Dispose(PIInfo);
//ShowMessage('New IP: '+Stroka);
end;

Он вроде бы работает, НО, во первых я так и не понял как, а во-вторых - самое главное - я не знаю как ОТКЛЮЧИТЬ использование прокси в таком примере...

[ak3000]

Ну и фиг с вами, казюли, сам уже разобрался как сделать (используя тот же код). :P

[Денискин]

Рад за тебя Вот всегда полагайся только на свои знания и пытайся не просить помощи у других. Все мы одинаковые и все способны на одно и тоже

[ak3000]

Да, НО вот только более опытные люди могли бы подсказать сразу, разъеснить и научить. А получается что кроме нажать F1 больше ничего и не предложили. Грустно это, товарищи. Программеры это же как одна большая семья, мы должны учить друг друга. (а не придумывать один и тот же код по несколько раз, который уже давно придумали и написали)

[mihali4]

более опытные люди могли бы подсказать сразу

А вот как раз в этом-то и смысл обучения - подталкивать к САМОСТОЯТЕЛЬНОМУ решению.
Дали б вам готовый код - и посыпались бы вопросы вроде: "А что такое CAPTION?". Утрирую, конечно...
А так вы САМи решили проблему и теперь уже вы САМи сможете помочь тому, перед кем встанет аналогичная задача. Причем со знанием дела, а не пересказывая полученный от кого-то код готового ответа...
Разве это плохо?

[s.Creator]

Программеры это же как одна большая семья, мы должны учить друг друга. (а не придумывать один и тот же код по несколько раз, который уже давно придумали и написали)

Полностью согласен и предлагаю завести отдельный раздел форума в котором мы будем клеймить позором всех тех программеров которые ездиют на крутых машинах зарабатывают кучу денег и не могут хотя бы раз в неделю пробежаться по форумам и выложить свои исходники нуждающимся.
А то что же это за безобразие - чтобы написать СВОЙ шедевр надо и F1 жать и кучу книжек перелопатить и в MSDN наведаться и в нете часами искать, да еще по клавишам самому что-то стукать.
А фирму "1С" предлагаю обязать проезжать по всем фирмам, у которых нет денег на ихнюю программу, и отдавать свой код ихним программистам, дабы те могли написать хоть что-то нормальное и не мучились изобретением велосипеда.

[Квэнди]

флуд. закрыто.