Othello - главная

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

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

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

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

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

 

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


RPL-модули

RPL-модуль (Report Library) - подключаемая DLL-библиотека (с расширением "RPL"), обрабатывающая актуальные данные таблиц (запросов), используемых в Tour Pilot. Используется для создания и печати отчетов, либо в качестве дополнения.
Подключается в окне "Настройки -> Окружение -> Библиотеки отчетов". Вызывается с помощью команд "Печать" из окон, имеющих табличные элементы управления (типа TDBGrid) или чечрез меню "Сервис -> Дополнения".
Вызов библиотеки осуществляется через головную функцию следующего вида:

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

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

Параметр

Данные

Source Обычно указатель на набор данных типа TDataset или TDBGrid.
При тестовом просмотре отчета и вызове как дополнения передается nil.

PatternPath

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

Title

Название отчета по умолчанию

Функция 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-модули

TPL-модуль (Tour Pilot Library) - подключаемая DLL-библиотека (с расширением "TPL"), имеющая доступ почти ко всем компонентам программы Tour Pilot: объектам доступа к базе данных TPilotDB, элементам интерфейса и пр. Интерфейс TPL-модулей позволяет создавать дополнения с широкими функциональными возможностями.
Подключается в окне "Настройки -> Окружение -> Вызываемые программы".
Вызывается чечрез меню "Сервис -> Дополнения".
Вызов TPL-библиотеки осуществляется через головную функцию следующего вида:

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

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

Параметр

Данные

lpApp Указатель на переменную Application программы Tour Pilot.

lpSession

Указатель на переменную типа TSession, к которой "подсоединены" объекты доступа к базе данных TPilotDB.

Ниже приведен пример реализации 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.

Наверх


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

      Автономные программы, независящие от Tour Pilot и имеющие доступ к базе данных TPilotDB, могут быть созданы с помощью таких специализировнных средств разработки, как Borland Delphi, C++ Builder, Microsoft Visual Studio, а также программ из комплекта Microsoft Office, Borland DBase, Corel Paradox и др.

Наверх


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


  Rambler's Top100  Fair.ru Ярмарка путешествий

 


игровые автоматы