Сервисы поддержки / Примеры / Примеры использования стандартных процедур RSL / DLM API для Delphi

DLM API для Delphi

Автор:sen
Дата:18.09.2003
Просмотров:2471
Скачиваний:758
Оценка:

, Оценок - 3

Скачать (ZIP-файл; Размер - 11466)

Обсудить в форуме

Описание

Реализован движок DLMAPI в Delphi.
На данном этапе это позволяет разработчикам писать DLM модули
на Delphi, используя огромное кол-во компонент написанных для оной.

На данном этапе он может только принимать и передавать параметры вызывающей функции.
Выполнять команды типа print,MsgBox... и несколько других.

Понимаю что это очень мало но для полного аналога DLMAPI нужны время...
А время деньги. Мне этого пока достаточно. Для всех желающих (лучше умеющих:)
прошу присоединится к данному проекту.

Текст примера

 ******** В RSL.Mac ***********

import "..\\sen_mac\\delphi\\rsldlm.d32";

println(DemoCPP(3.25,"sen",3));

******** В Delphi*********
Procedure DemoCPP; cdecl;
var
 val:double;
 par:^VALUE;
begin
   //Тестируем получение параметра
   RSLGetParm(1,@par);

   //Тестируем print
   RSLprint(PCHAR(''''Hello from Delphi %d ''''), Integer(par.v_type));

   //Тестируем MsgBox
   RSLMsgBoxP(par.RSLstring);

   //Тестируем ReturnVal (возрат параметра)
   val := 3.14;
   RSLReturnVal (V_DOUBLE,@val);

end;