подключение к Mobile SMARTS через ActiveSync

[tarakan1983]

Здравствуйте.
Помогите с такой проблемой:
Есть моя программа для учета товаров на складе Delphi + Firebird, есть ТСД (терминал сбора данных) honeywell scanpal 5100 с установленной на нем Windows CE 5.0 и програмой «Клеверенс».
Подключение между компом и ТСД происходи по средствам Microsoft ActiveSync
Дело в том, что этот клеверенс работает в основном с 1с, моя задача заставить работать его с моим софтом. Позвонил я в этот клеверенс, попросил дать мне описания dll которые работают с ТСД, мне все любезно предоставили и вроде бы все в описании понятно за исключением того как подключиться к этому терминалу.
Есть пример на 1с (http://www.cleverence.ru/site.aspx?p...marts-Workflow)

// Создание объекта коннектора и инициализация его соединения с сервером
connector = СоздатьОбъект(«Cleverence.Warehouse.StorageConnector»);
connector.InitializeServerConnection(СокрЛП(Константа.ПолучитьАтрибут("СтрокаПодключения")));

Я пишу на Delphi

procedure TForm1.Button1Click(Sender: TObject);
  var
   TSD: Variant;
   s : string;
begin
  try
    TSD:=CreateOleObject('Cleverence.Warehouse.StorageConnector');
    TSD.InitializeServerConnection('А что писать тут не знаю');
  except
    on E : Exception do
      begin
        Memo1.Clear;
        Memo1.Lines.Add(E.Message);
      end;
  end;
end;

Но вот беда до меня никак не дойдет, что нужно прописать в string "СтрокаПодключения".
Помогите пожалуйста разобраться.
Вот ссылка на описание
http://www.cleverence.ru/mobile-smar.../comconnector/
Буду очень благодарен.

[Streletz]

Сообщение от tarakan1983

connector.InitializeServerConnection(СокрЛП(Константа.ПолучитьАтрибут("СтрокаПодключения")));

В примере для 1С 7.7 строка подключения прописана в самой конфигурации. Поэтому её оттуда и получают средствами встроенного языка.
Что же из себя представляет непосредственно сама строка подключения? Здесь уже лучше всего обратиться к самим разработчикам, если они не осветили данный вопрос в документации.

[Slym]

а в адинеске отладчиком глянуть или
Alert(СокрЛП(Константа.ПолучитьАтри бут("СтрокаПодключения")));

[tarakan1983]

Сообщение от Slym

а в адинеске отладчиком глянуть или
Alert(СокрЛП(Константа.ПолучитьАтри бут("СтрокаПодключения")));

Дело в том, что в открытой мной конфигурации 7.7 и во всех обработках это не выглядит константой. В 1с сильно не соображаю и куда воткнуть строку

Alert(СокрЛП(Константа.ПолучитьАтрибут("СтрокаПодключения")));

Если честно сообразить не могу уже час.

[Streletz]

Вывод через функцию Сообщить() не помогает?

[tarakan1983]

Сообщение от Streletz

Вывод через функцию Сообщить() не помогает?

Вот функция из внешней компоненты

// *****************************************************************************
// Описание:
//  Загружает внешнюю компоненту, создает объект и включает
Функция Подключить(Компонента, ПрогИд, Объект)
	Рез = 0;
	  
	Сообщить("Выполняется подключение ТСД...");
	Компонента = "AddIn.Cl.TerminalConnector";
	Если ПодключитьВнешнююКомпоненту(Компонента) = 0 Тогда
		ОписаниеРезультата = "ошибка загрузки внешней компоненты """ + Компонента + """";
	Иначе
		Попытка
			Объект = СоздатьОбъект(Компонента);  // Создание объекта внешней компоненты
		Исключение
		КонецПопытки;

		Если ПустоеЗначение(Объект) = 1 Тогда
			ОписаниеРезультата = "ошибка создания объект внешней компоненты с программым идентификатром AddIn." + ПрогИд;
		Иначе        
			Объект.УстановитьВерсию1С("v7");
			
			СохранитьЗначение("CleverenceТСДНастройкиСоединения", ПолучитьПустоеЗначение());
			Параметры = СоздатьОбъект("СписокЗначений"); 
			
			времОбменЧерезПапку = ВосстановитьЗначение("CleverenceТСДОбменЧерезПапку"); 	
			Если (ПустоеЗначение(времОбменЧерезПапку) = 0) И (времОбменЧерезПапку = 1) Тогда
				ПапкаОбмена = ВосстановитьЗначение("CleverenceТСДПапкаОбмена");	
				Параметры.ДобавитьЗначение(ПапкаОбмена);
			КонецЕсли;
			
			Если Объект.Подключить(Параметры, ИдУстройства) = 0 Тогда
				ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
			Иначе
			    Рез	= 1; 
				Сообщить("ТСД подключен"); 
				//Сообщить(Объект.Подключить(Параметры, ИдУстройства)); 
				Сообщить(Параметры);
			КонецЕсли; 
			Объект.ОсвободитьРесурсы();
		КонецЕсли;
	КонецЕсли;
	
	Возврат Рез;
КонецФункции

Куда это вставить?

Разобрался немного пообщавшись с ТП.
Нужно использовать другое подключение при соединении USB
вот так :

procedure TForm1.Button1Click(Sender: TObject);
  var
   TSD: Variant;
   s : string;
   sl : TList;
begin
  try
    sl := TList.Create;
    try
      TSD := CreateOleObject('AddIn.Cl.TerminalConnector');
      TSD.GetDocumentsList('',sl);
    except
      on E : Exception do
        begin
          Memo1.Clear;
          Memo1.Lines.Add(E.Message);
        end;
    end;
  finally
    sl.Free;
  end;
end;

Теперь возник немного другой вопрос.
из инструкции

Функция GetDocumentsList/ПолучитьСписокДокументов
int ПолучитьСписокДокументов (string ИдУстройства, object СписДокументов)
Получает описания документов с ТСД или сервера терминалов. В переменную СписДокументов - передается список значений, который заполняется описанием документов, в виде «Имя документа|Ид. документа|Имя ТСД|IP-адрес ТСД|Тип документа».
ИдУстройства - Идентификатор ТСД (не используется, может быть пустым значением).
СписДокументов - Список значений, заполняется описанием документов.
Результат 0 – ошибка; 1 – удачно.

я сделал Tlist для "object СписДокументов", но компилятор ругается при вызове

TSD.GetDocumentsList('',sl);

пишет

E2281 Type not allowed in Variant Dispatch call

Подскажите пожалуйста, что мне использовать вместо Tlist

[tarakan1983]

Ребята, ну помогите пожалуйста.
Разобрался вроде со всем, но не знаю как передать массив с переменными в функцию из dll. Я уже декомпильнул эту dll и теперь ситуация такая
Вот функция из dll

public bool Open(object ValuesArray, ref string DeviceID)
    {
      this.ResetLastError();
      try
      {
        this.workWithServer = false;
        this.serverConnnectionString = "";
        this.serverProxy = "";
        this.proxyPort = 0;
        this.rewriteProductsBook = true;
        this.exchangeFolder = (string) null;
        if (ValuesArray != null)
          this.GetConnectionParams(ValuesArray);
        if (!this.Connected)
          this.Connect();
        if (!this.workWithServer && !this.UseExchangeFolder)
        {
          this.CheckLicense();
          DeviceID = this.terminal.GetDeviceId();
        }
      }
      catch (Exception ex)
      {
        DeviceID = "";
        this.SetLastError("Ошибка при подключении терминала.", ex);
        return false;
      }
      finally
      {
        if (!this.workWithServer)
          this.CloseTerminalConnection();
      }
      return true;
    }

вот моя процедура

procedure TForm1.Button1Click(Sender: TObject);
var
   TSD: Variant;
   idTSD : string;   
   masPar :  Variant;
   i : Integer;
begin
  try
    TSD := CreateOleObject('AddIn.Cl.TerminalConnector');
    id := TSD.GetTerminalId;
    masPar := VarArrayCreate([0,2], varVariant);
    masPar[0]:= 0;
    masPar[1]:= 1;
    masPar[2]:= '';
    i := TSD.Open(masPar,id);
    Memo1.Clear;
    case i of
      0 : begin
            Memo1.Lines.Add('Ошибка подключения');
            TSD.GetLastError(s);
            Memo1.Lines.Add(s);
          end;
      1 : Memo1.Lines.Add('Успешно');
    end;
  except
    on E : Exception do
      begin
        Memo1.Clear;
        Memo1.Lines.Add(E.Message);
      end;
  end;
end;

здесь i := TSD.Open(masPar,id); получается равной нулю.
из функции dll вижу, что

if (ValuesArray != null) this.GetConnectionParams(ValuesArray);

Получается массив который я передаю в функцию = null, почему, что я сделал неправильно? Помогите пожалуйста.
вот фунция GetConnectionParams(ValuesArray);

    int num;
        try
        {
          num = Convert.ToInt32(this.InvokeExternalMethod(ValuesArray, "Количество"));
        }
        catch (Exception ex)
        {
          throw new KnownException("Ошибка при получении 'Количество'", ex);
        }
        if (num > 1)
        {
          object obj1 = this.InvokeExternalMethod(ValuesArray, "Получить", (object) 0);
          if (obj1 == null || obj1 is DBNull)
            obj1 = (object) false;
          if (obj1 is int || obj1 is short || obj1 is long)
            obj1 = Convert.ToInt32(obj1) != 0 ? (object) true : (object) false;
          try
          {
            this.workWithServer = Convert.ToBoolean(obj1);
          }
          catch (Exception ex)
          {
            throw new KnownException("Ошибка при получении 'Режим соединения' (workWithServer), получено: " + obj1.ToString(), ex);
          }

Из описания

Open/Подключить
int Подключить (object МассивПараметров, ref string ИдУстройства)
Выполняет инициализацию компоненты драйвера.
МассивПараметров Массив содержащий параметры подключения:
1. ТипСвязи (Целое: о или 1), о - прямая связь с ТСД, 1 - связь с сервером терминалов;
Для случая прямой связи с ТСД:
2. ПереписыватьНоменклатуру (Целое: о или 1), о - не переписывать полностью номенклатуру при выгрузке (добавлять новые позиции), 1 - переписывать полностью;
3. ПутьКПапкеОбмена (Строка) пустая строка, если не используется обмен через папку;

[Slym]

Сообщение от tarakan1983

Подскажите пожалуйста, что мне использовать вместо Tlist

variant; - везде где сомневаешься и всегда когда не знаешь

сравни

    TSD := CreateOleObject('AddIn.Cl.TerminalConnector');
    id := TSD.GetTerminalId;
    masPar := VarArrayCreate([0,2], varVariant);
    masPar[0]:= 0;
    masPar[1]:= 1;
    masPar[2]:= '';
    i := TSD.Open(masPar,id);

Объект = СоздатьОбъект("AddIn.Cl.TerminalConnector");
Параметры = СоздатьОбъект("СписокЗначений"); 
времОбменЧерезПапку = ВосстановитьЗначение("CleverenceТСДОбменЧерезПапку"); 	
Если (ПустоеЗначение(времОбменЧерезПапку) = 0) И (времОбменЧерезПапку = 1) Тогда
	ПапкаОбмена = ВосстановитьЗначение("CleverenceТСДПапкаОбмена");	
	Параметры.ДобавитьЗначение(ПапкаОбмена);

Если Объект.Подключить(Параметры, ИдУстройства) = 0 Тогда
	ОписаниеРезультата = ПолучитьОписаниеРезультата(Объект);
Иначе
КонецЕсли;

итого имеем: как ты заполняешь массив masPar? что туда пихаешь?
можно попробовать так

var
 Pars:array of variant;
 masPar:variant;
.....
  SetLength(Pars,1);
  Pars[0]:='CleverenceТСДПапкаОбмена';
  SetLength(Pars,Length(Pars)+1);
  Pars[Length(Pars)-1]:='еще какой то параметр';


  masPar:=VarArrayOf(Pars);
  i := TSD.Open(masPar,id);

[tarakan1983]

Ответ разрабочиков

Open/Подключить
int Подключить (object МассивПараметров, ref string ИдУстройства)
МассивПараметров - Массив (для 1С 8.0, 8.1) или Список значений (для 1С 7.7), содержащий
параметры подключения.

Функция принимает два параметра, первый - объект массива 1С, массив Delрhi не подойдет, предавать параметры, которые должны быть в массиве, через запятую тоже не выйдет.
Такая реализация связана со стандартом 1С на драйвер торгового оборудования, согласно которому в компененте драйвера должны быть определенные функции с определенными параметрами.
Кроме функций, которые должны быть по стандарту 1С, AddIn.Cl.TerminalConnector содержит еще дополнительные функции, так что использование не с 1С тоже возможно.

Меня здесь угнетает одно

массив Delрhi не подойдет

неужели Delphi не может обмануть это железо и дать массив с нужными параметрами?

[Slym]

да наделать по большому на угнетения!
дельфя и 1С пользуют одну технологию доступа - COM
com - это variant вдоль и поперек
Массивы в Com это Variant в котором SafeArray, но в дельфе если не ошибаюсь и VarArray работает через SafeArray
вопрос в другом: объект массива 1С - что в этом массиве, что туда 1С ложит, количество элементов?