|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.01.2019, 05:08 | #1 |
Регистрация: 17.01.2019
Сообщений: 6
|
открытие pdf файлов
Добрый день !
нужно открыть файл pdf с Delphi активировал AcroPDF1 нанес на форму - OpenDialog1 - AcroPDF1 - BitBtn1 на BitBtn1Click прописал Код:
вопрос - почему ? |
17.01.2019, 09:26 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,531
|
Код:
чтобы узнать имя ВЫБРАННОГО файла(FileName), надо 0. при желании OpenDialog1.Initdir:=ExtractFilePat h(application.ExeName); //начать с указанной папки 1. сначала ВЫПОЛНИТЬ диалог. OpenDialog1.Excecute 2. по результатам выбора (вдруг мы поняли что делаем совсем не то что надо) if OpenDialog1.Execute then //уже можно и нужно открыть
программа — запись алгоритма на языке понятном транслятору
|
21.01.2019, 06:25 | #3 |
Регистрация: 17.01.2019
Сообщений: 6
|
Спасибо evg_m ! Удачного дня !
Давайте я попробую сначала вам описать проблему вопроса. Прошу учесть что серьезно программированием я не занимался, но мне нравится иногда автоматизировать процесс. В данном случае, в связи с большим потоком писем, на которые требуется вовремя дать ответ, я решил создать программу закинул на форму DBGrid в которую я заношу дату входящего письма, номер и тд. И вот у меня стоит задача по номеру входящего письма его открыть ( как правило это файл pdf. и он хранится в папке ) но найти я его должен в папке, т.есть вот заранее я его прописать не могу ShellExecute(handle, 'open', '2.pdf', nil, nil, SW_SHOWNORMAL) название файла выбирается фильтрацией в dbgrid т.есть как мне сделать, чтобы вместо 2.pdf написано допустим var nam:string; .. ну и nam допустим tabN_w.asstring; .. может быть можно наверное и через Opendialog но у меня он не открывается |
21.01.2019, 07:07 | #4 |
Регистрация: 17.01.2019
Сообщений: 6
|
var
N:string; begin N:=Edit1.Text; ShellExecute(0, 'Open', PChar(N), nil, nil, SW_SHOWNORMAL); ... yt jnrhsdftn uses ..... ShellApi .. поставлено |
21.01.2019, 07:07 | #5 |
Регистрация: 17.01.2019
Сообщений: 6
|
.. не открывается и ничего не возмущается ..
|
21.01.2019, 12:46 | #6 | ||||
Старожил
Регистрация: 20.04.2008
Сообщений: 5,531
|
Цитата:
ret:=ShellExecute(...); F1 Цитата:
Цитата:
Цитата:
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 21.01.2019 в 12:53. |
||||
22.01.2019, 03:20 | #7 |
Регистрация: 17.01.2019
Сообщений: 6
|
Спасибо за помощь, но не пойму почему так все сложно,
вроде все понятно а не работает .. если кто может объяснить дилетанту, то заранее спасибо.. для скорости готов заплатить только скажите заранее сколько ... если .... ShellExecute(0, 'Open', '12.pdf', nil, nil, SW_SHOWNORMAL); файл находится в каталоге программы открывается... ___________________________________ __________________________ а вот если .... var N:string; begin N:='12'; ShellExecute(0, 'Open', PChar(N), nil, nil, SW_SHOWNORMAL); то не открывается ... ___________________________________ ____________________________ не открывается если и не в каталоге программы ShellExecute(0, 'Open', 'C\2019\12.pdf', nil, nil, SW_SHOWNORMAL); |
22.01.2019, 07:03 | #8 |
Регистрация: 17.01.2019
Сообщений: 6
|
блин лошарик... после С двоеточие поставил с: и всего делов то ...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открытие файлов в QT. Как сделать открытие файла, через QMenuBar ? | progjar | Qt и кроссплатформенное программирование С/С++ | 3 | 27.07.2016 16:08 |
Открытие PDF-файла в TAcroPdf через поток | m9yt | Общие вопросы Delphi | 3 | 31.05.2016 14:14 |
открытие *pdf файла по ссылке | opel.omega | Общие вопросы Delphi | 9 | 08.01.2009 15:29 |
Печать pdf файлов из списка файлов в Excel | АПС | Microsoft Office Excel | 5 | 15.04.2008 16:04 |