Для работы с методами и атрибутами компоненты необходимо создать объект "AddIn.PT10".
Пример текста для глобального модуля:
Перем PT10 Экспорт;
Если ЗагрузитьВнешнююКомпоненту("PT10.dll")=0 Тогда
 Предупреждение("Компонента не загружена");
КонецЕсли;
PT10 = СоздатьОбъект("AddIn.PT10");

3. Атрибуты компоненты.

InPath, ПутьПриема - директория на PC для приема файлов с терминала. Должен быть проинициализирован до применения методов компоненты. Значение по умолчанию - C:\PT10\In. Значение сохраняется при завершении работы с объектом компоненты.

OutPath, ПутьПосылки - директория на PC для отправки файлов на терминал. Должен быть проинициализирован до применения методов компоненты. Значение по умолчанию - C:\PT10\Out. Значение сохраняется при завершении работы с объектом компоненты.

Port, Порт - номер COM порта PC, через который производится обмен с терминалом. Должен быть проинициализирован до применения методов компоненты. Значение по умолчанию - 1. Значение сохраняется при завершении работы с объектом компоненты.

Baud, Бод - скорость обмена через COM порт. Должен быть проинициализирован до применения методов компоненты. Значение по умолчанию - 115200. Возможные значения - 2400, 4800, 9600, 19200, 38400, 57600, 115200. Значение сохраняется при завершении работы с объектом компоненты.

SelectedFile, ВыбранныйФайл - содержит имя (без пути) файла, выбранного методами компоненты SelectInFile,ВыбратьБазуЗагрузки и SelectOutFile,ВыбратьБазуВыгрузки.

3. Методы компоненты.

Запустить работу сервера обмена по COM порту
int StartServer()
int ЗапуститьСервер()
Параметр - нет;
Возвращаемое значение :
в случае успеха - 1, при ошибке - 0.
Пример использования :
Если PT10.StartServer()=0 Тогда
 Сообщить("Ошибка запуска сервера");
КонецЕсли

regsvr32 my.dll

var
 myserv : Variant;
 flag : integer;
{............................................}

 myserv := CreateOleObject('AddIn.PT10');
 if VarIsEmpty(myserv) then
   ShowMessage('Не удалось создать объект')
 else
   begin
     myserv.InPath := 'C:\In';
     myserv.OutPath := 'c:\Out';
     myserv.Port := 1;
     myserv.Baud := 9600;
     flag := myserv.StartSever;
     if flag = 0 then
       ShowMessage('Не удалось запустить сервер');
   end;
{.......................................................}
 
 if flag = 1 then
       myserv.StopSever;
 myserv := Unassigned;

var
 V: OleVariant;
 R,R2: HResult;
 LE: ILanguageExtender;
 i,j: Integer;
 S: string;
 Vv: PSafeArray;
 Obj:Variant;
begin
 R := CoCreateInstance(CLASS_AddIn, nil, CLSCTX_INPROC_SERVER,
   IID_ILanguageExtender, LE);
 if Succeeded(R)  then
 try
  LE.FindProp('Port', i);
  V:=1;
  LE.SetPropVal(i, V);
  LE.FindProp('Baud', i);
  V:=115200;
  LE.SetPropVal(i, V);
  LE.FindProp('InPath', i);
  V:='C:\PT10';
  LE.SetPropVal(i, V);
  LE.FindProp('OutPath', i);
  V:='C:\PT10';
  LE.SetPropVal(i, V);
  LE.FindMethod('StartServer',i);
  LE.CallAsFunc(i,?????)

var
 V: OleVariant;
 R,R2: HResult;
 LE: ILanguageExtender;
 i,j: Integer;
 S: variant;
 str:string;
 idx:array[0..0] of integer;
 sab: SafeArrayBound;
 psa: PSafeArray;

begin
 R := CoCreateInstance(CLASS_AddIn, nil, CLSCTX_INPROC_SERVER,
 IID_ILanguageExtender, LE);
  sab.cElements := 1;
  sab.lLbound := 0;
  PSA := SafeArrayCreate(VT_VARIANT, 1, sab);
  idx[0] := 0;
  str:='C:\PT10\';
  s:=str;
  SafeArrayPutElement(PSA, idx, s);
  SafeArrayGetElement(PSA, idx, s);
  str:=s;
  ShowMessage(str);

function TCustomAddIn.GetNParam(var pArray : PSafeArray; lIndex: Integer ): OleVariant;
var varGet : OleVariant;
begin
  SafeArrayGetElement(pArray,lIndex,varGet);
  result := varGet;
end;

Перем PT10 Экспорт;
Если ЗагрузитьВнешнююКомпоненту("PT10.dll")=0 Тогда
Предупреждение("Компонента не загружена");
КонецЕсли;
PT10 = СоздатьОбъект("AddIn.PT10");
Если PT10.StartServer()=0 Тогда
Сообщить("Ошибка запуска сервера");
КонецЕсли
Если PT10.InFile(InFileName)=0 Тогда
Сообщить("Ошибка приема файла");
КонецЕсли