Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Работа с браузером / 7 сообщений из 7, страница 1 из 1
25.06.2003, 10:54
    #32190924
DDDen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
Я начинающий программист...
Сервер БД в результате выполнения хранимоц процедуры возвращает HTML Документ. Как мне его из Delphi открыть в браузере???
...
Рейтинг: 0 / 0
25.06.2003, 11:00
    #32190933
Даниил
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
Компонента есть такая, если не изменяет память так и назывется - THTML. По вкладкам поищи. Но она будеть работать, если на компе MIE установлен. Только ента компонента появилась не то в 4, не то в 3 дельфе - точно не помню (в старых нету). Сам использовал, дык даже джава грузится!
Использует dll-ки самого эксплорера (настройки и возможности зависят от версии). Если прога должна свободно распространяться - жди косяков.
...
Рейтинг: 0 / 0
25.06.2003, 11:05
    #32190940
andresito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
с помощюъью этой компаненты можно открывать страницы в браузере без сохранения на диске?
...
Рейтинг: 0 / 0
25.06.2003, 11:12
    #32190951
DDDen
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
У меня 6-я, что-то не могу найти!
...
Рейтинг: 0 / 0
25.06.2003, 11:12
    #32190952
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
без сохранения на диске невозможно открыть ни в одном браузере ... акромя как написать свой - сохраняешь - и:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
//  ---> вызов Web-узла из программы --------------------------------------------
 
//      вызывать ExploreWeb (Application.Handle, 'http://www.myweb.ru/main.htm')

procedure ExploreWeb(Handle :HWND ;  //Handle приложения
                     Page   :PChar); //Наименование страницы для вызова
var
  ReturnValue   : integer;
begin
  ReturnValue := ShellExecute (Handle, 'open', Page, nil, nil, SW_SHOWNORMAL);
  if ReturnValue <=  32  then
    case ReturnValue of
       0                    : MessageBox (Handle, 'Ошибка: Недостаточно памяти'          , 'Ошибка модуля Service процедуры ExploreWeb',  0 );
      ERROR_FILE_NOT_FOUND: MessageBox (Handle, 'Ошибка: Файл отсутствует'             , 'Ошибка модуля Explore процедуры ExploreWeb',  0 );
      ERROR_PATH_NOT_FOUND: MessageBox (Handle, 'Ошибка: Директорий отсутствует'       , 'Ошибка модуля Explore процедуры ExploreWeb',  0 );
      ERROR_BAD_FORMAT    : MessageBox (Handle, 'Ошибка: Некорректный формат EXE-файла', 'Ошибка модуля Explore процедуры ExploreWeb',  0 );
      else                  MessageBox (Handle, PChar('Ошибка №: ' + IntToStr (ReturnValue) + ' in ShellExecute'), 'Ошибка модуля Explore процедуры ExploreWeb', 0 )
    end;
end;

алес
...
Рейтинг: 0 / 0
25.06.2003, 13:06
    #32191124
m_kus
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
Компонент называется TWebBrowser, находится на вкладке "Internet", без сохранения на диске можно работать следующим образом (на форме компонент - wbrAP):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    var
        doc:Variant;
    begin
                if not Assigned(wbrAP.Document) then
                    wbrAP.Navigate('about:blank');

                doc:=wbrAP.Document;
                doc.Clear;
                doc.Write('<html><body>Hello!</body></html>');
                doc.Close;
    end;
...
Рейтинг: 0 / 0
26.06.2003, 13:41
    #32192381
andresito
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Работа с браузером
СПАСИБО !!
...
Рейтинг: 0 / 0
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Работа с браузером / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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