проблемка с twebbrowser

← →
Flame (2005-05-29 20:31) [0]

вот такой вот код, однако при нажатии на кнопку, пишет, что нельзя отобразить страницу! (пробовал разные подставлять, эффект тот же). может вы мне подскажете в чем дело?
var Form1: TForm1; PIInfo : PInternetProxyInfo; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin New (PIInfo) ; PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; //менение настроек ПРОКСИ PIInfo^.lpszProxy := PChar("195.43.67.34:8080"); PIInfo^.lpszProxyBypass := PChar(""); // Список адресов, доступ к которым возможен минуя Proxy сервер end; procedure TForm1.Button1Click(Sender: TObject); var Flags, Headers, TargetFrameName, PostData: OLEVariant; Url, Ref: string; begin Flags := "1"; TargetFrameName := ""; PostData := ""; UrlMkSetSessionOption(INTERNET_OPTION_PROXY, piinfo, SizeOf(Internet_Proxy_Info), 0); Url := "сайт, куда надо зайти"; Ref := "рефер"; Headers := "Referer: " + Ref + #10 + #13; Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers); dispose(piinfo); end; end.

← →
La Stik (2005-07-25 01:21) [1]

Во-первых проверь на валидность прокси и
New (PIInfo) ; PIInfo^.dwAccessType := INTERNET_OPEN_TYPE_PROXY ; //менение настроек ПРОКСИ PIInfo^.lpszProxy := PChar("195.43.67.34:8080"); PIInfo^.lpszProxyBypass := PChar(""); // Список адресов, доступ к которым возможен минуя Proxy сервер(честно взятый с www.delphiworld.narod.ru =))
вешай на кнопку а не на форму
Если и это не поможет пиши мне на мыло разберёмся с твоей проблемой потому что у меня всё работает!

проблемка с twebbrowser Найти похожие ветки