Здравствуте!
Необходимо, чтобы в TWebBrowser всё открывалось в одном и том же окне.
Это у меня получилось с двумя ВебБраузерами.
Проблема в том, что с этим кодом сервер не видит откуда я пришёл(например с какого поисковика).
А мне нужно, чтобы видел. Нужен совет или код. Спасибо.
Delphi 6
procedure TForm1.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp := Webbrowser2.ControlInterface;
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
WebBrowser1.Navigate(URL);
Cancel:=true;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://google.ru');
end;
procedure TForm1.WebBrowser2BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
Headers := 'Referer: ' + Ref + #10 + #13; // здесь не знаю что такое "Ref"
Webbrowser1.Navigate(Url, Flags, TargetFrameName, PostData, Headers);
Cancel:=true;
end;
Спасибо! Заработало. Только без первой строки.Не знаю как объявить "Ref".
Я пробовал по одному(Url, Flags, TargetFrameName, PostData, Headers)
а все вместе не додумался.
Дополнение #1
Прошу прощения. Не заработало.Я ошибся.Я смотрел в новом окне.
А в одном и том же окне выдаёт "неопознанную ошибку".