Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 31.08.2016, 11:02   #1
netpolice
Форумчанин
 
Аватар для netpolice
 
Регистрация: 14.02.2013
Сообщений: 222
По умолчанию OLE-сервер Citrix

Всем доброе утро.
Есть задача приложение запущенное на удаленном сервере средствами Citrix должно запустить локальное приложение... Гуугление помогло найти следующее приложение на 1С :
Код:
Процедура Сформировать() 
   Перем оCtxShl; 
   Перем стрПутьIE, стрКомСтрока, стрURL; 
    
   стрURL = "http://www.neta.ru/"; 
    
   оCtxShl = СоздатьОбъект("CtxShlCom.server"); 
    
   // Создается виртуальный канал 
   // 
   оCtxShl.Create(); 
    
   // Определяется путь до Program Files на клиенте 
   // 
   стрПутьIE = оCtxShl.GetFolderPath(38); 
   стрПутьIE = стрПутьIE + "\Internet Explorer\IEXPLORE.EXE"; 
    
   // Создается процесс на клиентском компьютере по командной строке: 
   // ""C:\Program Files\Internet Explorer\IEXPLORE.EXE" "http://www.neta.ru/"" 
   // 
   стрКомСтрока = """" + стрПутьIE + """" + " " + """" + стрURL + """"; 
    
   оCtxShl.ExecCommandLine(стрКомСтрока); 
КонецПроцедуры // Сформировать()
Пробовал сформировать на Делфи, получилось следующее:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  CtxShl:OleVariant;
  SellLine:string;

begin

    CtxShl :=   CreateOLEObject('CtxShlCom.server');

   //CtxShl :=   CreateOLEObject('Excel.Application');

  // CtxShl :=   CreateOLEObject('CtxShlCom.Application');
    CtxShl.Create;

    SellLine:= CtxShl.GetFolderPath(38);

   SellLine:=SellLine + '\Internet Explorer\IEXPLORE.EXE';
   CtxShl.ExecCommandLine(SellLine);
end;
Но ПО выдает ошибку "Недопустимая строка с указанием класса".

Если кто сталкивался подскажите, где и как найти имя OLE-объекта/сервера/класса Citrix (может реестр где нибудь поможет?), и в какой стороне можно погуглить о командах...
netpolice вне форума Ответить с цитированием
Старый 02.09.2016, 11:06   #2
netpolice
Форумчанин
 
Аватар для netpolice
 
Регистрация: 14.02.2013
Сообщений: 222
По умолчанию

up!
netpolice вне форума Ответить с цитированием
Старый 12.09.2016, 09:20   #3
netpolice
Форумчанин
 
Аватар для netpolice
 
Регистрация: 14.02.2013
Сообщений: 222
По умолчанию

up!
netpolice вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
OLE-сервер Максикок Помощь студентам 1 19.12.2013 15:00
Ole сервер Word s100i29 C++ Builder 3 30.03.2011 21:45
Citrix MetaFrame XP? Ole_Ole_Ole Софт 7 21.10.2009 12:39
Формирование Excel-документа через OLE-сервер с Unicode-символами sergushkin Microsoft Office Excel 2 13.04.2008 23:04