Раздача
Дизель-Паскаль
Для сборки вам понадобятся Lazarus 3.4 или выше, FPC 3.2 а также:
1) компоненты: VisualTech, TxDBF, IBX.
2)движок Дизель-паскаль, который включает 3 проекта: CrossDesigner, CrossMachine, Dmanager. Все они в одной папке CrossDesigner.
Кроме компонент входящих в комплект, потребуются компоненты Synapse, ZEOS, LazReport, fpSpreadSheet.
Компоненты Synapse требуют небольшой модификации, имена некоторых констант из модуля Synaser пересекаются с другими константами,
ниже есть ссылка на исправленную версию.
Поддержку некоторых компонент можно включить и выключить в файле SetComponent.inc
Перед сборкой CrossDesiger и CrossMachine пропишите пути к компонентам ZEOS, VisualTech, Synapse, TxDBF, IBX в Праметрах проекта Пути.
Будет лучше если все папки CrossDesigner, IBX, TxDBF, Synapse, ZEOS будут находится рядом в одной папке, в этом случае будут
актуальны пути, уже прописанные в параметры.
Проект CrossDesigner нужно собирать после CrossMachine, перед сборкой под Windows, в проекты CrossMachine и CrossDesigner в раздел инспектора
проектов "Требуемые пакеты", добавить пакет LazActiveX.
Для управления приложениями Дизель паскаль используйте утилиту DManager (Её тоже нужно собрать из исходников).
С её помощью вы сможете загружать приложения в дизайнер либо запускать на выполнение.
Для сборки в Lazarus 2.2.4 и выше потребуется в Lazarus заменить taChart вот на эту версию от Lazarus 2.0: taChart
taChart из Lazarus 2.2.4 не заработал.
Исходный код Дизель-Паскаль
Готовая сборка для x86-64
Готовая сборка для aarch64
Компоненты
Исходный код компонент для Lazarus
Компоненты IBX Компоненты VisualTech Компоненты LazReport Компоненты TxDBF Компоненты Synapse (исправленные для Дизеля)Примеры приложений Дизель-Паскаль
Шаблон - заготовка для быстрого создания MDI приложения с использованием IBX.
Эту ссылку можно открыть прямо в дизайнере приложений. Щелкните на кнопке ниже правой кнопкой мыши и выберите
"Копировать адрес ссылки", затем в дизайнере выполнить Файл->Открыть URL, ссылку
на шаблон в формате URL вставте в открывшемся диалоге.
Видеоинструкция: Смотреть на YouTube
Загрузить шаблон
Небольшое пример на русском паскале.
Эту ссылку можно открыть прямо в дизайнере приложений. Щелкните на кнопке ниже правой кнопкой мыши и выберите
"Копировать адрес ссылки", затем в дизайнере выполнить Файл->Открыть URL, ссылку
на шаблон в формате URL вставте в открывшемся диалоге.
Загрузить пример
Небольшое пример как получить валютный курс центробанка казахского тэнге и белорусского рубля.
Эту ссылку можно открыть прямо в дизайнере приложений. Щелкните на кнопке ниже правой кнопкой мыши и выберите
"Копировать адрес ссылки", затем в дизайнере выполнить Файл->Открыть URL, ссылку
на шаблон в формате URL вставте в открывшемся диалоге.
Загрузить пример
Пример использования TEncoding в Дизель-Паскаль.
Эту ссылку можно открыть прямо в дизайнере приложений. Щелкните на кнопке ниже правой кнопкой мыши и выберите
"Копировать адрес ссылки", затем в дизайнере выполнить Файл->Открыть URL, ссылку
на шаблон в формате URL вставте в открывшемся диалоге.
Загрузить пример
Исчерпывающий пример с базой FireBird, в котором показана вся концепция построения приложений Дизель-Паскаль
в режиме эмуляции MDI с использованием FormsBar. Для работы требуется FireBird 2.5, после распаковки архива,
открыть приложение MedTech.lm9 в дизайнере, открыть модуль Данные, 2 раза щелкнуть на компоненте IBDataBase,
в диалоге исправить путь к базе, логин, пароль, нажать <ОК>, сохранить проект, после этого можно запускать.
Архив большой (30мб), т.к. загружен кладр, для перехода в справочнике кладр на нижний уровень нажать
Загрузить пример с базой FB
Cсылки ниже можно открыть прямо в дизайнере или менеджере приложений. Щелкните на кнопке ниже правой кнопкой мыши
и выберите "Копировать адрес ссылки", затем в DManager выполните добавить
приложение и в поле <Путь к приложению> вставьте ссылку в формате URL. Приложения с ресурсов http или ftp открываются
в режиме "Только для чтения", для редактирования приложения, Вы можете сохранить его локально.
Фрактальная графика
Тетрис
Звуковая библиотека UOS
Только Windows, показан запуск приложений, создание ярлыка, пути к спец.папкам, использует OLE и WScript.Shell
Пример с Ole объектом WScript.Shell
Пример TCP сервера и клиента
В приложениях нужно указать IP адрес. Запускаем приложения, на сервер прописываем свой IP адрес и порт, на клиенте IP адрес сервера и порт. Запускаем сервер кнопкой Start, после этого можно коннектиться клиентом, нажимаем на клиенте Подключить. Далее на клиенте для передачи данных жмем кнопку Отправить. Клиент отправляет серверу строку Hellow, сервер принимает эту строку, изменяет и отправляет обратно. Клиент после приема измененной строки выводит её в Memo. Всего клиент отправляет в цикле 100 строк за раз.
На сервере для приема, обработки строки и отправки ответа используется событие OnReciveData, создаем его обработчик, в котором извлекаем данные любым подходящим способом, в зависимости от того как отправляли данные с клиента и отправляем ответ.
TCP сервер
TCP клиент
Пример встроенного http сервера
В примере сервер (HttpServ.lm9) и клиент (postfile.lm9). Клиент загружает на сервер выбранный файл (upload).
Сперва запускаем http сервер, затем в другом приложении открываем клиента, исправляем IP адрес по необходимости, выбираем файл и жмем кнопку "Отправить файл".
Сервер полученный файл сохраняет в папке UserDir/webfiel/. Пример будет дополняться постепенно.
HTTP сервер