ThumbnailsViewer — Просмотрщик миниатюр

ThumbnailsViewer

Описание: Просмотрщик миниатюр файлов jpeg, jpg и bmp, написанный на Delphi 10.
Одно из тестовых заданий которые меня просили реализовать, выкладываю для примера.

Репозиторий: thumbnails-viewer.

ThumbnailsViewerTZ

XCryptUDF — библиотека шифрования для СУБД FireBird 2.5.*.

Описание: XCryptUDF — библиотека шифрования\расшифровки для СУБД FireBird 2.5.*.

Функции:

  • CryptX(Str,Key)
    В качестве первого параметра выступают данные для шифрования в виде строки до 4096 символов.
    В качестве второго параметра выступает ключ шифрования данных в виде строки до 4096 символов.
    Результатом выступают данные в виде строки до 4096 символов зашифрованной Str ключём Key.
  • DecryptX(Str,Key)
    В качестве первого параметра выступают данные для расшифровки в виде строки до 4096 символов.
    В качестве второго параметра выступает ключ шифрования данных в виде строки до 4096 символов.
    Результатом выступают данные в виде строки до 4096 символов расшифрованной Str ключём Key.
  • GetMD5(Str)
    В качестве параметра выступают данные для вычисления ХЭШа в виде строки до 4096 символов.
    Результатом выступают данные в виде строки до 4096 символов ХЭШа вычисленного алгоритмом MD5 и представленного в виде HEX.

Объявление:

  • Linux x86_64:
  • Windows x86:

Пример использования:

Скачать: xcryptudf.zip

Abbrevia 10.0 OEM Fix.

Исправление кодировки имён файлов при архивации\разархивировании zip-архивов.

Установка ABBREVIA:

  1. Запускаем RAD Studio 10 Seattle.
  2. Выбираем пункт меню Tools>GetIt Package Manager.
  3. Устанавливаем компоненты ABBREVIA 10.0
  4. Переходим в каталог с исходниками ABBREVIA 10.0
    Обычно это:
    C:\Users\%USER%\Documents\Embarcadero\Studio\17.0\CatalogRepository\Abbrevia-10.0\source
  5. Делаем резервную копию файлов AbArcTyp.pas и AbZipTyp.pas (например переимновав их с расширением .backup).
  6. Копируем в …\Abbrevia-10.0\source исправленные файлы AbArcTyp.pas и AbZipTyp.pas.
  7. Перекомпилируем пакеты ABBREVIA 10.0.

Скачать: abbrevia_oem_fix_zip.zip

Опубликовано в рубрике Всё

log.pas — система логирования для проектов написанных на Delphi/Lazarus

Скачать log.pas


Описание: Потоко-безопасная система логирования для проектов написанных на Delphi/Lazarus.
Особенности: Нельзя использовать в потоках с флагами FreeOnTerminate:=True не отслеживая при этом критическую секцию и существование самого потока лога. 

SimpleIPC для Delphi

Скачать SimpleIPC.pas


Описание: Модуль переведён с Lazarus на Delphi.
Особенности: Для работы требует единое рабочее пространство, в случае с ОС Windows например не удастся организовать межпроцессное взаимодействие между службой (windows service) и GUI приложением если служба запущена от имени отличным от имени пользователя запустившего GUI приложение, так как у них разные рабочие столы.

Опубликовано в рубрике Delphi