Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Работа с TinternetExplorer / 4 сообщений из 4, страница 1 из 1
14.06.2003, 23:43
    #32182601
KpeHgeJIb
KpeHgeJIb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с TinternetExplorer
Доброго времени суток, уважаемые форумчане. У меня тут нарисовался вопросик на щет работы с TInternetExplorer из модуля shdocvw. Я все никак не могу подключится к Internet Explorer`y черз него. Вот то что я делаю:
iex: TInternetExplorer
Код: plaintext
1.
2.
3.
4.
5.
procedure TForm1.FormCreate(Sender: TObject);
begin
iex:=TInternetExplorer.Create(Sender as TForm);
iex.ConnectKind:=ckRunningOrNew;
iex.AutoConnect:=true;
end;

Но после этого создается впечетление как будто я не подключен. Свойство iex.LocationURL возвращает пустую строку. Метод iex.Navigate('http://www.sql.ru'); не влечет за собой ни каких действий со стороны IE.
Что именно я делаю не так? Если у когото есть ссылка на подробное описание TinternetExplorer или примеры на эту же тему, пожалуйста просветите меня.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2003, 06:46
    #32182621
Master Skiv
Master Skiv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с TinternetExplorer
Вот примерно так:

var
IE: TInternetExplorer;

procedure TForm1.ConnectClick(Sender: TObject);
begin
IE := TInternetExplorer.Create(Sender as TFORm);
IE.Connect;
IE.Visible := True;
end;

procedure TForm1.HomeClick(Sender: TObject);
begin
IE.GoHome;
end;

procedure TForm1.GoClick(Sender: TObject);
begin
IE.Navigate(eURL.Text);
end;

procedure TForm1.DisconnectClick(Sender: TObject);
begin
IE.Disconnect;
end;
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2003, 06:49
    #32182622
Master Skiv
Master Skiv
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с TinternetExplorer
Пардон, создавать IE надо так:

IE := TInternetExplorer.Create(nil);
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
15.06.2003, 17:49
    #32182714
KpeHgeJIb
KpeHgeJIb
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с TinternetExplorer
2 Master Skiv
Спасибо за примерчик. Все работает.
Только таким образом открывается новый IE.(Это мне пригодится потом) А сейчас мне нужно подключится к уже открытому IE.
Вот то что я делаю:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
procedure TForm1.FormCreate(Sender: TObject);
begin
ie:=TInternetExplorer.Create(nil);
//ie.ConnectKind:=ckRunningInstance; {если так то ошибка}
ie.Connect;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ShowMessage(iex.LocationURL);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ie.Disconnect;
ie.Free;
end;

Если выставить свойство ConnectKind:=ckRunningInstance, вылетает исключение Unable to retrive a pointer to a running object registred with OLE for InternetExplorer.Application.1/{куча всяких цифр}. А если его не задовать то создается новай сервер, а не подключается к уже существующему.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Работа с TinternetExplorer / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]