Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

редирект в TWebBrowser [D6, WinXP]

nookie © (2005-01-12 20:34:00)
Здрасти.
Такая проблема. В методе OnBeforeNavigate2 компонента TWebBrowser пытаюсь сделать редирект, задав значение URL (это один из параметров метода), но не выходит. Открывается URL заданный первоначально. Т.е.

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate2(url1);
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,Headers: OleVariant; var Cancel: WordBool);
begin
URL:=' http://www.penpaint.com.ru';
end;

редиректа не происходит. в чем проблема?

ROMBLLER (2005-01-12 22:34:00) [1]
папробуй не Navigate2 а просто Navigate... и укажи для URL не OleVariant, а WideString... вроде так... , а ещё проще

procedureTForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Refresh;
WebBrowser1.Navigate(url1);
end;

вот тебе и редирект... у меня по крайней мере работает именно так...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »