проблемка с twebbrowser [D7, WinXP]
Flame © (2005-05-29 20:31:00)
вот такой вот код, однако при нажатии на кнопку, пишет, что
нельзя отобразить страницу! (пробовал разные подставлять, эффект
тот же). может вы мне подскажете в чем дело?
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:00) [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 =))
вешай на кнопку а не на форму
Если и это не поможет пиши мне на мыло разберёмся с твоей
проблемой потому что у меня всё работает!
Наверх 
ЧАТ |
Орешник |
|
