Как запустить Terrasoft CRM 3.1 без вызова окна авторизации?
Как запустить Terrasoft CRM 3.1 без вызова окна авторизации?
Сообщений 1 страница 3 из 3
Поделиться22007-11-30 14:47:03
Привожу пример на 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.
Поделиться32007-11-30 14:57:21
Проект