Скачать: CL | DM;

Отчет в HTML   Найти похожие ветки 

← →
Voldemar ©   (2002-06-26 14:42) [0]

Доброе время суток!
Скажите, плз, можно ли сгенерить отчет в HTML и сразу же открыть его в браузере? И, разуметтся, если можно, то как...

---

← →
Fiend ©   (2002-06-26 15:14) [1]

А ты попроси у меня сервер отчётов - как раз для этих целей.
Правда система написана лично мной, и в связи с этим хотелось бы чё нить заполучить взамен

---

← →
DeMoN-777 ©   (2002-06-26 15:18) [2]

А отчёт большой ?
Если нет то попробуй поработать как с обычным TextFile

---

← →
Voldemar ©   (2002-06-26 17:29) [3]

>Fiend © (26.06.02 15:14)
Благодарю. Но я сторонник OpenSource и оплата противоречит моим принципам. Не жадность, а именно принцип :). А предложить взамен равноценный СВОЙ продукт вряд ли смогу.

>DeMoN-777 © (26.06.02 15:18)
Как сформировать HTMLину я разберусь, в конце-концов ручками пропишу, как в CGI-скрипте. А вот как передать ее в браузер? Не хотелось бы отчет писать в файл, а потом юзать ShellExecute...

---

← →
Fiend ©   (2002-06-26 18:11) [4]

ну тада перейди на Линух

---

← →
int64 ©   (2002-06-26 18:21) [5]

Voldemar © (26.06.02 17:29)
>А вот как передать ее в браузер?

procedure TForm1.Button1Click(Sender: TObject);
var MyReport: string;
begin
MyReport:="<h1>Hi, World!</h1>";
ShellExecute(handle, "open", PChar("about:"+MyReport), "", "", sw_normal);
end;

---

← →
int64 ©   (2002-06-26 18:35) [6]

Правда отчёт будет 255 символов. :(

---

← →
AlexanderVasjuk ©   (2002-06-26 18:42) [7]

Voldemar ©
Юзай TWebBrowser. Там есть property Document: IDispatch;
WebBrowser1.Document.write(MyHTMLContentString);
(сам не пробовал)
возможно понадобятся дотого Open, послетого Close.
Типа как в скриптах это делается...

---

← →
AlexanderVasjuk ©   (2002-06-26 18:48) [8]

int64 © (26.06.02 18:21)
Гениально!

Только что попробовал - ограничения 256 символов нет!

Только как бы не засирать адрес?...

---

← →
AlexanderVasjuk ©   (2002-06-26 19:10) [9]

AlexanderVasjuk © (26.06.02 18:42) <- этот код не работает.

Кажется я нашел:

WebBrowser1.Navigate("about:" + MyReport);

Спасибо int64 © (26.06.02 18:21) за подсказку

---

← →
Voldemar ©   (2002-06-26 19:49) [10]

int64 © (26.06.02 18:21)
AlexanderVasjuk © (26.06.02 19:10)
Благодарю, буду пробовать.

> Fiend © (26.06.02 18:11)
Не, линюх не хочу. Предпочитаю нагло красть :)
А серьезно - *никсов я просто не знаю, а форточки знаю хорошо.

---

← →
Кулюкин Олег ©   (2002-06-27 08:46) [11]

Voldemar © (26.06.02 17:29)
> я сторонник OpenSource и оплата противоречит моим принципам.
:))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.008 c