Текущий архив: 2009.08.23;
Скачать: CL | DM;
Вниз
Twebbrowser and Newwindow Найти похожие ветки
← →
cerber (2008-03-18 01:25) [0]Суть проблемы.
Есть сайт, вход на который происходит через аутентификацию пользователя. На сайте есть ссылка которая открывается в новом окне браузера. При использовании Twebbrowser эта ссылка открывается неккректно "Неавторизированный пользователь". В тоже время в ИЕ и Файрфоксе - такой проблемы нет.
что пробовал:
procedure TForm1.mbrNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var i:integer;
begin
newtab;
{!!!}ppDisp:=mbr1.Document;{!!!}
end;
procedure TForm1.newtab;
var
Tab:TTabSheet;
begin
Tab:=TTabSheet.create(PageControl2);
Tab.PageControl:=PageControl2;
PageControl1.ActivePageIndex:=PageControl2.PageCount-1;
mbr1:=twebbrowser.create(Tab);
mbr1.ParentWindow:=Tab.Handle;
mbr1.Align:=alclient;
TControl(mbr1).Parent:=Tab;
mbr1.OnNewWindow2:=mbrNewWindow2;
end;
Я так понимаю надо возится с SESSIONID или cookies, а как для Twebbrowser их вклеить - не знаю.
← →
cerber (2008-03-22 01:13) [1]проблему решил.
ppDisp:=mbr1.application
Страницы: 1 вся ветка
Текущий архив: 2009.08.23;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.014 c
