Форум АСТ

Объявление

ВСЕМ!!! ОБЯЗАТЕЛЬНО в профайле укажите свое настоящее имя в формате "Фамилия Имя". Правила форума Здесь

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Форум АСТ » TerrasoftCRM » Как запустить Terrasoft CRM 3.1 без вызова окна авторизации?


Как запустить Terrasoft CRM 3.1 без вызова окна авторизации?

Сообщений 1 страница 3 из 3

1

Как запустить Terrasoft CRM 3.1 без вызова окна авторизации?

0

2

Привожу пример на Delphi, обработчик события нажатия кнопки на форме, которая открывает Террасофт, передавая имя пользователя, пароль и название открываемой конфигурации, для компиляции примера необходимо импортировать в проект библиотеки типов Террасофта (TSObjectLibrary.dll, TSWindowLibrary.dll). Текст модуля проекта:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, TSObjectLibrary_TLB, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses
  TSWindowLibrary_TLB, TSDskObjectLibrary_TLB, ComObj;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  Connector: IConnector;
  Configuration: IConfiguration;
  Service: IService;
  Window: IWindow;
begin
  Connector := CoConnector.Create();
  Connector.LoadConfigurations;
  Connector.OpenConfigurationByName('shelver', 'Supervisor', '');
  //if (not Connector.OpenConfigurationByName('shelver', 'Supervisor', '')) then
  //begin
  //  Exit;
  //end;
  Service := Connector.Services.GetNewItemByUSI('wnd_Main');
  if (not Supports(Service, IWindow, Window)) then
  begin
    Exit;
  end;
  Window.Prepare();
  Window.ShowModal();
end;

end.

0

3

Проект

0


Вы здесь » Форум АСТ » TerrasoftCRM » Как запустить Terrasoft CRM 3.1 без вызова окна авторизации?