Othello - курсы валют, кино, программы

Разработчикам
дополнений к Tour Pilot

        Если Вы - умеете программировать и хотите заработать, или Вы - уже используете программу Tour Pilot и хотите самостоятельно ее доработать и расширить, Вам доступны следующие возможности:

• разработка RPL-модулей
• разработка TPL-модулей
• разработка независимых программ

        Для успешной разработки собственных  отчетов, дополнений и приложений Вам понадобится структура базы данных TPilotDB. Краткое описание структура базы данных TPilotDB и компонентов программы Tour Pilot можно посмотреть в справочном руководстве к установленной у Вас копии Tour Pilot. Отдельно руководство можно скачать  здесь (1,19Kb).

        Продавать разработанные приложения Вы можете по любой удобной Вам схеме.
Для распространения Вашего приложения мы можем разместить на нашем узле в разделе Downloads копии дистрибутивов в вариантах Shareware или Freware (после предварительного тестирования) или ссылки на Ваш ресурс.

       Если у Вас есть вопросы по программированию (даже не касающиеся Tour Pilot), мы попоробуем Вам ответить на странице Вопросы и ответы.

RPL-модули

function ExecuteDlg(Source:TComponent; PatternPath:PChar; Title:PChar) : integer;

В качестве параметров функции из Tour Pilot передаются данные:

Функция ExecuteDlg должна возвращать код ошибки, или 0 - при успешном выполнении. В Tour Pilot код интерпретируется как код ошибки Windows.

Также в библиотеке должна присутствовать функция, возвращающая строку справочных сведений. Вид функции:

function GetDescription(PatternPath:PChar):PChar;

Параметр PatternPath вспомогательный (обычно имя файла библиотеки).

Ниже приведен пример реализации RPL-библиотеки в Delphi:

library testRPL;
uses ShareMem, SysUtils, Classes,
rep_form in 'rep_form.pas' {MainForm};
{$E tpl}
function ExecuteDlg(Source:TComponent; PatternPath:PChar; Title:PChar) : integer;
var  RepGrid:TDBGrid;
       DSet:TDataSet;
begin
     if Source.ClassName='TDBGrid' then
      begin
          RepGrid:=TDBGrid(Source);
          DSet:=TDBGrid(Source).DataSource.DataSet;
          ExecuteDlg:=DoSomething(DSet,RepGrid);
//        ...  
      end
    else
      begin
          Table1.Open;
          RepGrid:=nil;
          DSet:=Table1;
      end
end;

function GetDescription(PatternPath:PChar):PChar;
begin
   GetDescription:='Test Info';
end;

exports
ExecuteDlg,
GetDescription;

begin
end.

Наверх

TPL-модули

function ExecuteDlg(lpApp:TApplication; lpSession:TSession):HRESULT;

Ниже приведен пример реализации TPL-библиотеки в Delphi:

library testTPL;
uses ShareMem, SysUtils, Classes;
{$E tpl}
function ExecuteDlg(lpApp:TApplication;lpSession:TSession):HRESULT;
var  DSet:TDataSet;
begin
  Dset:=nil;
  if Assigned(lpSession) then
   for i:=0 to lpSession.DatabaseCount-1 do
    for j:=0 to lpSession.Databases[i].DataSetCount-1 do
     if lpSession.Databases[i].DataSets[j].Name='Orderstable' then
      begin
        DSet:=lpSession.Databases[i].DataSets[j];
        ExecuteDlg:=DoSomething(DSet);
      end;
end;

exports
ExecuteDlg,
GetDescription;

begin
end.

Примером TPL-модуля для Вас может послужить дополнение Tour Pilot Holidays. Можете взять его на Downloads.

Наверх

Разработка независимых программ

Наверх

Все вопросы, пожелания и предложения мы принимаем на странице Вопросы и ответы