Преобразование JPEG в PDF с использованием Ghostscript в Delphi 7

Delphi , Графика и Игры , JPEG

Преобразование изображений из формата JPEG в PDF является распространенной задачей, и в среде разработки Delphi 7 это можно выполнить, используя библиотеку Ghostscript. В примере, предоставленном пользователем, есть некоторые проблемы, которые необходимо решить. Давайте шаг за шагом разберемся, как можно исправить код и добиться нужного результата.

Шаг 1: Исправление кода

Первое, что стоит отметить, это использование параметра -c после имени файла с PostScript-сценарием. Как было указано в комментариях, параметр -c должен использоваться для выполнения кода PostScript, а не для передачи имени файла JPEG.

// Неверно
gsargvT[high(gsargvT)] := Pchar(ansiToUtf8('-c '+dir+injpg));

// Верно
gsargvT[high(gsargvT)] := '-c "(' + dir + injpg + ') viewJPEG"';

Шаг 2: Тестирование команды в командной строке

Перед тем как интегрировать код в Delphi, рекомендуется проверить команду в командной строке Windows. Это позволит убедиться, что все параметры указаны верно и Ghostscript может корректно обработать команду.

Шаг 3: Учет путей и разделителей

При работе с файлами важно правильно указывать пути и разделители. В Windows используются обратные слеши (\), но в Unix-подобных системах и в PostScript используются слеши (/). Необходимо правильно конвертировать пути в зависимости от контекста.

Шаг 4: Обработка ошибок

В коде отсутствует обработка ошибок, возвращаемых Ghostscript. Важно добавить логику, которая будет обрабатывать коды ошибок и выводить соответствующие сообщения.

Пример кода на Delphi

function Jpg_to_Pdf(dir, inJpg, outPdf: String): Integer;
var
  code, gsargc, i: Integer;
  gsargv: array of PAnsiChar;
  minst: PGSAPIrevision;
begin
  SetLength(gsargv, 7);
  gsargv[0] := 'gs';
  gsargv[1] := '-dBATCH';
  gsargv[2] := '-dNOPAUSE';
  gsargv[3] := '-q';
  gsargv[4] := '-sDEVICE=pdfwrite';
  gsargv[5] := PChar(AnsiToUtf8('-sOutputFile=' + dir + outPdf));
  gsargv[6] := '-c "(' + ReplaceStr(dir + inJpg, '\', '/') + ') viewJPEG"';

  gsargc := Length(gsargv);
  // Остальная часть кода...
end;

Функция ReplaceStr может быть реализована следующим образом:

function ReplaceStr(const Source, const Find, const ReplaceWith: string): string;
var
  i, count: Integer;
begin
  Result := Source;
  count := 0;
  while True do
  begin
    i := PosEx(Find, Result, count * Length(ReplaceWith) + 1);
    if i = 0 then
      Break;
    SetLength(Result, Length(Result) - Length(Find) + Length(ReplaceWith));
    StrCopy(Result, Result, i - 1);
    StrCopy(Result, ReplaceWith, i);
    StrCopy(Result, Result, i + Length(Find));
    Inc(count);
  end;
end;

Эта функция используется для замены обратных слешей на прямые слеши в пути к файлу JPEG, что необходимо для корректной работы с PostScript.

Шаг 5: Запуск и отладка

После внесения изменений запустите функцию Jpg_to_Pdf и убедитесь, что она корректно создает PDF-файл из JPEG. Если возникают ошибки, проверьте логи Ghostscript и убедитесь, что все пути указаны верно.

Заключение

Следуя этим шагам, вы сможете исправить ошибки в вашем коде и успешно преобразовать JPEG в PDF с использованием Ghostscript в среде Delphi 7.

Создано по материалам из источника по ссылке.

Context: Этот раздел описывает процесс исправления и оптимизации кода для преобразования изображений из формата JPEG в PDF с использованием библиотеки Ghostscript в среде разработки Delphi 7.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: JPEG ::