Twebbrowser and Newwindow [D7, WinXP]
cerber © (2008-03-18 01:25:00)
Суть проблемы.
Есть сайт, вход на который происходит через аутентификацию
пользователя. На сайте есть ссылка которая открывается в новом окне
браузера. При использовании 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:00) [1]
проблему решил.
ppDisp:=mbr1.application
Наверх 
ЧАТ |
Орешник |
|
