Форум: "Начинающим";
Текущий архив: 2016.02.14;
Скачать: [xml.tar.bz2];
ВнизКак в 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, Спасибо.
← →
Германн © (2014-07-28 17:43) [13]
> Dmitry (28.07.14 12:08) [10]
> А как мне сделать открытие файла в случае если путь не найден?
>
А как такое может получиться?
← →
Inovet © (2014-07-28 18:28) [14]> [13] Германн © (28.07.14 17:43)
> А как такое может получиться?
Вдруг между проверкой пути и открытием файл туда уже скопировали. 10 раз проверь путь, но всё равно, даже если не найден, пробуй открыть для надёжности.
← →
brother © (2014-07-28 19:33) [15][14] 10мск! это много?)
← →
Inovet © (2014-07-28 19:54) [16]> [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;
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2016.02.14;
Скачать: [xml.tar.bz2];
Память: 0.48 MB
Время: 0.002 c