Как в QuickReport открить отчет для просмта сразу в Preview

← →
Dmitry (2014-07-28 11:24) [0]

У меня есть *qpr файл как мне єво открыть в Preview без всяких промежуточных форм. Если можно то примером.

← →
junglecat (2014-07-28 11:34) [1]

TQRPHandler.FileName + TQRPHandler.Preview

← →
Dmitry (2014-07-28 11:40) [2]

Спасибо проблему реши вот так
begin
QR:=TQuickRep.Create(nil);
QR.Prepare;
try
QR.QRPrinter.Load("D:\Nas\Print_Qrp\2014_04\Бюджет\35312.qrp");
except
ShowMessage("Faild!!!");
end;
QR.QRPrinter.PreviewModal;
QR.QRPrinter.Free;
QR.QRPrinter:=nil;
QR.Free;
end;

← →
Dmitry (2014-07-28 11:43) [3]

Теперь как сделать вместо того файла который я указал в коде чтоб мне открывало любой по котором я кликну два раза, разумеется *qpr.

← →
junglecat (2014-07-28 11:48) [4]

огласите весь список, пожалуйста.
А заодно и сумму )

← →
Dmitry (2014-07-28 11:51) [5]

Всмисле?

← →
junglecat (2014-07-28 11:53) [6]

ну а чего мелочиться и задавать по одному вопросу?
пишешь ТЗ и сумму, которую готов заплатить. Может быть, тут найдется фрилансер, который тебе все это сделает

← →
brother © (2014-07-28 11:57) [7]

1. создать ассоциацию на расширение *qpr к Вашей программе.
2. При запуске программы обрабатывать ParamStr и использовать при открытии файла.

← →
brother © (2014-07-28 11:58) [8]

ps. [2] код - ужас.

← →
Dmitry (2014-07-28 11:59) [9]

brother, спасибо еще учусь)

← →
Dmitry (2014-07-28 12:08) [10]

А как мне сделать открытие файла в случае если путь не найден?
if ParamCount = 0 then begin ShowMessage("Немає файлу."); end;

← →
junglecat (2014-07-28 12:24) [11]

try
if (ParamCount = 0) then raise TException.Create("Не указан путь к файлу");
QR.QRPrinter.Load(ParamStr(1));
except
on E:Exception do ShowMessage(E.Message);
end;

← →
Dmitry (2014-07-28 12:56) [12]

junglecat, Спасибо.

> Dmitry (28.07.14 12:08) [10]
> А как мне сделать открытие файла в случае если путь не найден?
>

А как такое может получиться?

> [13] Германн © (28.07.14 17:43)
> А как такое может получиться?

Вдруг между проверкой пути и открытием файл туда уже скопировали. 10 раз проверь путь, но всё равно, даже если не найден, пробуй открыть для надёжности.

[14] 10мск! это много?)

> [15] brother © (28.07.14 19:33)
> [14] 10мск! это много?)

Это что, время 10 утра в Москве что ли? Не знаю, кому как и когда.:)

← →
junglecat (2014-07-28 19:55) [17]

в 10 утра файлы копируются быстрее, как правило. К вечеру начинается тормозуха

← →
Д (2014-07-28 21:06) [18]

>> А как мне сделать открытие файла в случае если путь не найден?

Компонент TOpenDialog даст возможность пользователю выбрать файл. Этот конпонент надо кинуть на форму или создать динамически при выполнении программы (по тому же принципу, что и QR:=TQuickRep.Create(nil); главное, потом не забыть его удалить методом Free).

var FName: string; begin if ParamCount = 0 then if OpenDialog1.Execute then // В этой точке откроется диалог выбора файла FName := OpenDialog1.FileName else begin { Пользователь отказался выбирать файл, нажал "Отмена" } Exit; end else FName := Params(1); // Предположим, что имя файла передается в 1-м параметре // ... QR.QRPrinter.Load(FName); // ... end;

Как в QuickReport открить отчет для просмта сразу в Preview Найти похожие ветки