Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Dmitry © (2014-07-28 11:24:00)
У меня есть *qpr файл как мне єво открыть в Preview без всяких промежуточных форм. Если можно то примером.

Д (2014-07-28 21:06:00) [1]
>> А как мне сделать открытие файла в случае если путь не найден?

Компонент 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;

junglecat (2014-07-28 19:55:00) [2]
в 10 утра файлы копируются быстрее, как правило. К вечеру начинается тормозуха

Inovet (2014-07-28 19:54:00) [3]
> [15] brother © (28.07.14 19:33)
> [14] 10мск! это много?)

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

brother (2014-07-28 19:33:00) [4]
[14] 10мск! это много?)

Inovet (2014-07-28 18:28:00) [5]
> [13] Германн © (28.07.14 17:43)
> А как такое может получиться?

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

Германн (2014-07-28 17:43:00) [6]

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

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

Dmitry (2014-07-28 12:56:00) [7]
junglecat, Спасибо.

junglecat (2014-07-28 12:24:00) [8]
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:08:00) [9]
А как мне сделать открытие файла в случае если путь не найден?
if ParamCount = 0 then begin ShowMessage('Немає файлу.'); end;

Dmitry (2014-07-28 11:59:00) [10]
brother, спасибо еще учусь)

brother (2014-07-28 11:58:00) [11]
ps. [2] код - ужас.

brother (2014-07-28 11:57:00) [12]
1. создать ассоциацию на расширение *qpr к Вашей программе.
2. При запуске программы обрабатывать ParamStr и использовать при открытии файла.

junglecat (2014-07-28 11:53:00) [13]
ну а чего мелочиться и задавать по одному вопросу?
пишешь ТЗ и сумму, которую готов заплатить. Может быть, тут найдется фрилансер, который тебе все это сделает

Dmitry (2014-07-28 11:51:00) [14]
Всмисле?

junglecat (2014-07-28 11:48:00) [15]
огласите весь список, пожалуйста.
А заодно и сумму )

Dmitry (2014-07-28 11:43:00) [16]
Теперь как сделать вместо того файла который я указал в коде чтоб мне открывало любой по котором я кликну два раза, разумеется *qpr.

Dmitry (2014-07-28 11:40:00) [17]
Спасибо проблему реши вот так
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;

junglecat (2014-07-28 11:34:00) [18]
TQRPHandler.FileName + TQRPHandler.Preview

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »