Board.KolibriOS.org

Официальный форум KolibriOS
Текущее время: Пт май 26, 2017 2:06 pm

Часовой пояс: UTC+03:00




Начать новую тему  Ответить на тему  [ 4 сообщения ] 
Автор Сообщение
 Заголовок сообщения: Delphi7 examples
СообщениеДобавлено: Сб фев 04, 2017 10:00 pm 
Не в сети

Зарегистрирован: Вс окт 30, 2011 6:43 pm
Сообщения: 911
Here are some Delphi7 examples of using wrappers to call system functions from KolibriOS.lib.
Also, it is possible to use FreePascal compiler i hope. Newer version is more compatible with Delphi.
The main goal is more convenient programming with KolibriOS API.

Tools needed:
Код:
dcc32   — Delphi compiler
omf2d   — utility for converting from Borland omf to Intel omf
link    — Microsoft linker
ld      — GNU linker
objcopy — utility to convert object files
Here omf2d utility just in case:
Вложение:
OMF2D.7z [40.7 КБ]
37 скачиваний
Some examples and KolibriOS.lib:
Вложение:
KOSLib_Demo.7z [23.75 КБ]
37 скачиваний
It contains these 5 examples:
{1} Just a simple window.
Used functions: DrawWindow, GetScreenSize, WaitEvent, BeginDraw, EndDraw, GetKey, GetButton, ThreadTerminate.
Спойлер: Показать
Изображение
{2} When you click on the buttons the window caption changes.
Used functions: DrawButton, GetButton, SetWindowCaption, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, ThreadTerminate.
Спойлер: Показать
Вложение:
2.PNG
2.PNG [ 2.92 КБ | 582 просмотра ]
{3} Press on the keyboard and text will be drawn in window.
Used functions: GetKey, DrawText, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetButton, ThreadTerminate.
Спойлер: Показать
Вложение:
3.PNG
3.PNG [ 3.92 КБ | 582 просмотра ]
{4} Load example.asm into console window.
Used functions: LoadFile, LoadLibrary, GetProcAddress, ThreadTerminate.
Спойлер: Показать
Изображение
{5} Show CurrentDirectory, AppPath and CmdLine in console window.
Used functions: GetCurrentDirectory, LoadLibrary, GetProcAddress, ThreadTerminate.

In the case of new examples they will be added to this topic below.


Вернуться к началу
 Заголовок сообщения: Re: Delphi7 examples
СообщениеДобавлено: Сб фев 11, 2017 11:43 pm 
Не в сети

Зарегистрирован: Вс окт 30, 2011 6:43 pm
Сообщения: 911
DrawImage example.

Load 24 bits per pixel targa file and draw it into the window.
This image file is uncompressed and was saved with top to bottom pixel order.
Used functions: DrawImage, LoadFile, HeapCreate, SetCurrentDirectory, GetScreenSize, WaitEvent, BeginDraw, DrawWindow, EndDraw, GetKey, GetButton, ThreadTerminate.

Screenshot:
Спойлер: Показать
Вложение:
6.PNG
6.PNG [ 12 КБ | 530 просмотров ]
Source:
Вложение:
{6} DrawImage.7z [9.26 КБ]
21 скачивание


Вернуться к началу
 Заголовок сообщения: Re: Delphi7 examples
СообщениеДобавлено: Вс фев 19, 2017 11:47 pm 
Не в сети

Зарегистрирован: Вс окт 30, 2011 6:43 pm
Сообщения: 911
Just a simple example. Drawing in the window with SetPixel function.
Used functions: SetPixel, BeginDraw, DrawWindow, EndDraw, WaitEvent, GetKey, GetButton, GetScreenSize, ThreadTerminate.

Screenshot:
Спойлер: Показать
Вложение:
7.PNG
7.PNG [ 2.66 КБ | 463 просмотра ]
Source:
Вложение:
{7} SetPixel.7z [814 байт]
12 скачиваний


Вернуться к началу
 Заголовок сообщения: Re: Delphi7 examples
СообщениеДобавлено: Пн май 15, 2017 2:12 pm 
Не в сети

Зарегистрирован: Вс окт 30, 2011 6:43 pm
Сообщения: 911
Show info about the thread with given slot in the console window.
Used functions: LoadLibrary, GetProcAddress, GetThreadInfo, ThreadTerminate.

Screenshot:
Спойлер: Показать
Вложение:
8.PNG
8.PNG [ 12.68 КБ | 68 просмотров ]


Source:
Вложение:
{8} GetThreadInfo.7z [1.15 КБ]
3 скачивания


Вернуться к началу
Показать сообщения за:  Поле сортировки  
Начать новую тему  Ответить на тему  [ 4 сообщения ] 

Часовой пояс: UTC+03:00


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и 1 гость


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Limited
Русская поддержка phpBB