Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Проблемы при memo.text->Webbrowser, Ошибка 
:(
    Опции темы
AJIeKcEu
  Дата 12.1.2011, 09:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0
Добрый день Уважаемые друзья!
У меня возникли проблемы при попытке вывести содержимое из memo1.text в Webbrowser.

В сети нашел вот такой способ:

Webbrowser1.oleobject.document.body.innerhtml:=memo1.text;

в мемо написано: <html><b>ПРОВЕРКА</b> </html>

При компиляции не возникает ошибок, однако при запуске этого кода (в событии кнопки нажатие)
выскакивает ошибка: картинка в приложении 
и попадает на эту строчку для отладки.

Пожалуйста подскажите почему может быть так?


использую Delphi 7 Build4.453


В заранее благодарю!

Это сообщение отредактировал(а) AJIeKcEu - 12.1.2011, 09:54

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  _____.JPG 20,28 Kb
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 12.1.2011, 11:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
А если просто сохранить текст из Memo в файл .htm и загрузить в WebBrowser обычным способом?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Poseidon
Дата 12.1.2011, 12:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Код
procedure LoadHtmlInWebbrowser(DestWB: TWebBrowser; HtmlString: String);
var
  sl: TStringList;
  ms: TMemoryStream;
begin
  DestWB.Navigate('about:blank');
  while (DestWB.ReadyState < READYSTATE_INTERACTIVE) do
    Application.ProcessMessages;
  if Assigned(DestWB.Document) then
  begin
    sl := TStringList.Create;
    try
      ms := TMemoryStream.Create;
      try
        sl.Text := HtmlString;
        sl.SaveToStream(ms);
        ms.Seek(0, 0);
        (DestWB.Document as IPersistStreamInit).Load(TStreamAdapter.Create(ms));
      finally
        ms.Free;
      end;
    finally
      sl.Free;
    end;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
LoadHtmlInWebbrowser(WebBrowser1, memo1.text);
end;


в uses должно быть SHDocVw (должно добавится само при добавлении WebBrowser) и ActiveX;


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
AJIeKcEu
Дата 12.1.2011, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 54
Регистрация: 26.10.2005
Где: Уфа

Репутация: нет
Всего: 0
Данкинг Почитай внимательнее все наоборот требуется!smile

Poseidon Огромное спасибо за вспомогательную процедуру!
PM MAIL WWW ICQ   Вверх
Данкинг
Дата 12.1.2011, 16:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Цитата(AJIeKcEu @  12.1.2011,  14:13 Найти цитируемый пост)
Данкинг Почитай внимательнее все наоборот требуется!

В смысле, наоборот? Выгружаешь из MEMO и грузишь в браузер - разве не так?


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
Poseidon
Дата 12.1.2011, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133
Данкинг, согласись, перекидывать информацию внутри одной программы через файл - не логично. Так можно предложить еще из мемо загружать на удаленный сервер, а потом браузером загружать. Ты же не станешь из TStrings в мемо загружать текст, используя методы SaveToFile и LoadToFile. Так и тут.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
Данкинг
Дата 12.1.2011, 20:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Yersinia pestis
****


Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 9
Всего: 130
Poseidon, я не говорю, что моё предложение логично, я о том, что вроде как задачу-то понял правильно. smile 


--------------------
There's nothing left but silent epitaphs.
PM MAIL WWW   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0993 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.