оформление некого процесса

← →
злобная танька (2005-11-08 22:56) [0]

Добрый вечер!
в институте сказали написать демонстрационную программу по алгоритму гомори, т.е. целочисленное линейное программирование. я решила шо делать надо вроде так:

1. есть кнопка "новая задача", по нажатии вылазиет форма и студент забивает туда начальные данные;
2. есть кнопка "дальше", которая заставляет прогу перейти к следующей итерации алгоритма и наконец
3. есть область, куда выводятся результаты работы программы: поясняющий текст, таблицы и графики. я думала сначала пихать это всё в виде компонентов в scrollbox, но кажысь это слишком накладно. было бы здорово сделать это в виде html документа и отобразить например в TWebBrowser.

Собсно вопрос:
как отобразить на форме html- документ, который находится в памяти скажем в каком-нибудь TStrings? есть ли какой-нибудь компонент или типа того?
не охота просто сохранять на диск..

← →
Eraser © (2005-11-08 23:01) [1]

> злобная танька (08.11.05 22:56)

> Собсно вопрос:
> как отобразить на форме html- документ, который находится
> в памяти скажем в каком-нибудь TStrings? есть ли какой-нибудь
> компонент или типа того?

Думаю TWebBrowser самое то.

> не охота просто сохранять на диск..

Ну тогда ещё и TIdHTTPServer.

ЗЫ Лучше на диск сохраняй, в папку с временными файлами )

← →
злобная танька (2005-11-08 23:05) [2]

> Eraser © (08.11.05 23:01) [1]

пасиб! буду ковырять етот сервер..

хотя и правда сохранять на диск можно, даже ишо и сказать что это типа фишка такая!

← →
Eraser © (2005-11-08 23:09) [3]

> злобная танька (08.11.05 23:05) [2]
>
>
> > Eraser © (08.11.05 23:01) [1]
>
> пасиб! буду ковырять етот сервер..
>
> хотя и правда сохранять на диск можно, даже ишо и сказать
> что это типа фишка такая!

Я б сказал, что на диск сохранять нужно, т.к. организовывать HTTPServer ради отображения одной странчки - мягко говоря, неоптимально.
Но зато в сети работать будет.

← →
Sergey Masloff (2005-11-08 23:30) [4]

Eraser © (08.11.05 23:09) [3]

>Я б сказал, что на диск сохранять нужно, т.к. организовывать HTTPServer
На фиг WebBrowser может показать прямо из памяти

← →
Eraser © (2005-11-08 23:34) [5]

> Sergey Masloff (08.11.05 23:30) [4]

Подозревал, что это возможно.
Думаю злобной таньке будут интересны подробности.

← →
Sergey Masloff (2005-11-08 23:39) [6]

Автор идеи Анатолий Тенцер. Воспроизвожу по памяти но код 100% рабочий. Полная статья есть у Анатолия Подгорецкого на сайте.
procedure TForm1.ShowHTMLString(const AStr : String); var Document: IHTMLDocument2; v: OleVariant; begin WebBrowser1.Navigate("about:blank"); Document := WebBrowser1.Document as IHtmlDocument2; v := VarArrayCreate([0, 0], varVariant); v[0] := Astr; Document.write(PSafeArray(TVarData(v).VArray)); Document.Close; end;

← →
злобная танька (2005-11-09 17:59) [7]

спасибо код крутой!
правда не понятно ничо! :)

← →
Sergey Masloff (2005-11-09 20:17) [8]

Просто кинь на форму WebBrowser и кнопку. По нажатию на кнопку вызови эту функцию передав ей строку с твоим HTML. Если это stringList то у него есть свойство Text можешь его передать как параметр. Вот и все никаких проблем.
А за подробностям - к первоисточникам или к справке. ИМХО ничего непонятного нет загружаешь пустой документ и в его тело вписываешь все что нужно.

оформление некого процесса Найти похожие ветки