Скачать: 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 вся ветка

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



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