Скачать: CL | DM;

проблемка с 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 =))
вешай на кнопку а не на форму
Если и это не поможет пиши мне на мыло разберёмся с твоей проблемой потому что у меня всё работает!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c