Множественное сохранение PDF файлов

[Gonzo]

Сообщение от artemavd

Да пожалуйста, вот архив. В uses пропиши название модуля и можешь использовать процедуру ListeJPGtoPDF

спасиб тебе

[artemavd]

Блин, не получается задать функции ListeJPGtoPDF путь куда сохранять PDF-ки. Она их сохраняет там же где и JPEG мои, а мне надо, чтобы она сохраняла по пути, который указан в
Код:

MainForm.RzStatusPane6.Caption

procedure TMainForm.BtnHelp1Click(Sender: TObject);
var
 k,i: integer;
 list: TStringList;
begin
 list:=TStringList.Create;
// MainForm.SaveDialog1.FileName:='*.pdf';
// MainForm.SaveDialog1.Title:='Èìåíà äëÿ ôàéëîâ çàäàâàòü íå íóæíî. Íàæìèòå ñðàçó "Ñîõðàíèòü".';
// MainForm.SaveDialog1.FileName:=DateToStr(Now);
// if SaveDialog1.Execute then
//  begin
   for i:=0 to MainForm.ListBox1.Count - 1 do
   begin
    list.Clear;
    list.Add(MainForm.ListBox1.Items[i]);
    k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
//    k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');
    SaveFolderTree(MainForm.RzStatusPane6.Caption, MainForm.RzStatusPane6.Caption + 'Export_' + DateToStr(Now) + '.xml')
   end;
//  end;
  list.Free;
end;

Че там заменить надо в этой строке

k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');

[Gonzo]

Сообщение от artemavd

Блин, не получается задать функции ListeJPGtoPDF путь куда сохранять PDF-ки. ..мне надо, чтобы она сохраняла по пути, который указан в MainForm.RzStatusPane6.Caption
Че там заменить надо в этой строке?

k:=ListeJPGtoPDF(list,Copy(MainForm.ListBox1.Items[i],1,Pos('.',MainForm.ListBox1.Items[i])-1) + '.pdf');

Ну и передавай ей параметром этот caption.
В чем проблема-то?

Нет ни у кого материалом по обратному преобразованию PDF->JPEG ?

[artemavd]

В том-то и дело, что я не могу правильно передать его, потому что там функции Copy и Pos. Кто знает как надо, подскажите плиз?

[Prisioner]

k:=ListeJPGtoPDF(list,MainForm.RzStatusPane6.Caption);

не?

[artemavd]

Нет, так не работает. Потому что у меня Copy и Pos позволяют сохранить JPEG-и в PDF формат и в качестве имен PDF-ок задавать имя JPEG файлов до расширения.

[Prisioner]

Сообщение от artemavd

Нет, так не работает. Потому что у меня Copy и Pos позволяют сохранить JPEG-и в PDF формат и в качестве имен PDF-ок задавать имя JPEG файлов до расширения.

Если MainForm.RzStatusPane6.Caption хранит именно путь к папке (т.е. строку вида "D:\Папка1\Папка2\"), то тогда можно попробовать так:

k:=ListeJPGtoPDF(list,MainForm.RzStatusPane6.Caption + copy(ExtractFileName(MainForm.ListBox1.Items[i]),1,pos('.',ExtractFileName(MainForm.ListBox1.Items[i]))-1) + '.pdf'));

Если MainForm.RzStatusPane6.Caption содержит ссылку на некий файл, то тогда

k:=ListeJPGtoPDF(list,ExtractFilePath(MainForm.RzStatusPane6.Caption) + copy(ExtractFileName(MainForm.ListBox1.Items[i]),1,pos('.',ExtractFileName(MainForm.ListBox1.Items[i]))-1) + '.pdf'));

[artemavd]

Во, спасибо! . Теперь работает вроде. Поставлю Вам, Prisioner, "+" как смогу.

[Gonzo]

У меня есть обратная задача: PDF->JPEG
желательно без подключения эдабавских библиотек.
Если есть у кого материалы - поделитесь ссылкой.
Или может кто-то знает бесплатные или недорогие компоненты для этого?

Модерам: перенесите в отдельную тему если нужно.

Gonzo, создайте отдельную тему. Не нарушайте правило: одна тема - один вопрос. В моей теме обсуждался вопрос о сохранении файлов, а не о конвертации в форматы. Прошу быть внимательнее.

[Gonzo]

При работе с модулем возникла проблема с заданием масштаба отображения полученного pdf-файла.
Необходимо полученный pdf файл отображать так, чтобы по горизонтали он полностью вписывался в окно.
Насколько я понял из спецификации pdf, за это отвечает параметр OpenAction (стр. 67 в спецификации). Вот код модуля где это фигурирует:

       // PDF version
       TStringStream(AStream).WriteString('%PDF-1.2'#10);

       // Catalog
       ObjectPosArray[ObjectIndex] :=AStream.Position;
       With TStringStream(AStream) do
       begin
            WriteString(Format('%d 0 obj'#10,[ObjectIndex+1]));
            WriteString('<<'#10);
            WriteString('/Type /Catalog'#10);

            WriteString('/Pages 2 0 R'#10);
            WriteString('/OpenAction [3 0 R /XYZ -32768 -32768 1 ]'#10); // View Option (100%)
            WriteString('/ViewerPreferences [FitWindow=True]'#10);
            WriteString('>>'#10);
            WriteString('endobj'#10);
       end;

Опираясь, опять же на спецификацию, OpenAction можете принимать следующие значения (стр. 184):
[ page /XYZ left top zoom ] //как сейчас
[ page /Fit ]
[ page /FitH top ]
[ page /FitV left ]
[ page /FitR left bottom right top ]
[ page /FitB ]
[ page /FitBH top ]
[ page /FitBV left ]
По описанию наиболее подходит [ page /FitH top ] - подгоняет ширину страницы к окну, top - координата верхнего края окна. Но такой код желаемого эффекта не даёт:

       // PDF version
       TStringStream(AStream).WriteString('%PDF-1.2'#10);

       // Catalog
       ObjectPosArray[ObjectIndex] :=AStream.Position;
       With TStringStream(AStream) do
       begin
            WriteString(Format('%d 0 obj'#10,[ObjectIndex+1]));
            WriteString('<<'#10);
            WriteString('/Type /Catalog'#10);

            WriteString('/Pages 2 0 R'#10);
            WriteString('/OpenAction [3 0 R /FitH 10 ]'#10);
            WriteString('/ViewerPreferences [FitWindow=True]'#10);
            WriteString('>>'#10);
            WriteString('endobj'#10);
       end;

пробовал по-разному: и подставлять другие параметры и вовсе опускать OpenAction - результат нулевой. Такое ощущение что это вовсе никак не обрабатывается. Пожалуйста, подскажите у кого какие мысли.