| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Delphi&IE [D5, D6, D7, WinXP]

dms_main ©   (2004-11-29 01:06:00) 

Мастера подскажите плиз!
Как в открытый IE вставить свои cookies и открыть другую страницу?

---

dms_main   (2004-11-29 10:56:00) [1]

Спасибо большое человеческое......:-)

---

seeker   (2004-11-29 10:44:00) [2]

while WB.ReadyState<>4 do Application.ProcessMessages;

---

dms_main   (2004-11-29 09:46:00) [3]

Если кому интересно - вот решение:

procedure TMyThread.OpenInternetExplorer( fURL,sURL : string );
const
 csOLEObjName = 'InternetExplorer.Application';
var
 IE: Variant;
 WinHanlde: HWnd;
 cookies:TStringList;
 i:integer;
begin
 cookies:=TStringList.Create;
 cookies.LoadFromFile('cookies.txt');
 CoInitialize(NIL);
 IE := CreateOleObject(csOLEObjName);
 IE.Visible := true;
 IE.Navigate(fUrl);
 sleep(7000);
 for i:=0 to cookies.Count-1 do
       begin
           ie.document.cookie:=cookies.Strings[i];
       end;
 DeleteFile('cookies.txt');
 IE.Navigate(sURL);
end;

Буду очень признателен если кто-нибудь подскажет как отловить - загрузилась ли страница в IE?

---

Наверх