Board.KolibriOS.org

Code: Select all

use32
;begin proc
;допустим всеголишь надо отрисовать точечку на экране
mov eax,1
mov ebx,100
mov ecx,100
mov edx,0
int 0x40
ret
;end proc i dll

Code: Select all

;dll_test.c--

#include "mclib2.h--"
;юзаются гуи контролы от Ивана Поддубного (респект за идею, у меня что то подобного в голове кружилось но на асме я так и не допер его сделать)

CMainWindow wnd;

struct  TFile
           {
           dword Func,Blocks,Advanced,Buffer,OsMem;
           char FileName[128];
           };
           TFile fileinfo;
           fileinfo={8,1,1,#buffer,#osmem};

           byte osmem[4096];

           dword buffer; //указатель на адрес, куда будет загружена длл

void main()
{ 
   fileinfo.FileName="/HD/1/test.dll",0; //правда я не понял почему компилер выдает ошибку здесь?
      wnd.CMainWindow(... параметры); отрисовываем окошко

     ;теперь надо загрузить файл с длл, получить его размер
     ;кстати как узнать размер файла я не знаю, если есть идеи дайте знать
     ; //допустим получили размер файла
     fileinfo.Buffer=MALLOC(GetFileSize(#fileinfo));
     sys_tree_access(#fileinfo); //загружаем его в память

     EBX=#buffer; // в ebx загружаем адрес процедуры из ддл
     if(EBX){ //если либа загружена (адрес не равен нулю)
     $call EBX //то передаем управление по этому адресу
     }
     
     FREE(#buffer); //выгружаем функцию

     wnd.MainLoop(); //отрисовываем окно и отлавливаем события
}

Code: Select all

;DLL HEADER
  db  'MDLL'; header
  dw  0001 ; header version для будущего.. (разные типы либов будет)
  dd  _DLL_Proc ; адрес списка процедур
  dw  _DLL_Count; количество процедур в списке
; поэтому можно будет обращаться как по индексу 0 .. Count-1 так и по названию функции

struc _DLLproc
{
 .ProcName db ? имя процедуры типа 'PutPixelProc',0   ASCIIZ
 .ProcAddr   dd ? адрес процедуры
 ; .Params ? <-может и список параметров процедуры??? пока без параметров... но всё будет
}

теперь определяем таблицу
чтото типа такого

 создаем массив типа 
 _DLL_Proc: //ссылка заголовка на массив 
 _DLLproc
    
 типа такого .. (а вообще надо написать макрос, который будет сам всё это делать)
 _DLLproc[0].ProcName='SetPixel';
 _DLLproc[0].ProcAddr=SetPixel;
 _DLLproc[1].ProcName='WriteText';
 _DLLproc[1].ProcAddr=WriteText;
 ...
 и так далее, незабыв в заголовок записать размер массива!

 SetPixel:
 ..../// some code
 ret

 WriteText:
 ...// some code
 ret