Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Можно ли вставить в свой проект фрагмент кода на VB [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

СержК © (2004-08-05 11:34:00)
Уважаемые мастера, подскажите:
Можно ли вставить в свой проект фрагмент кода на VB (фрагмент макроса). Если можно, то как это сделать. Буду очень признателен за пример.

СержК (2004-08-05 15:20:00) [1]
Для меня сложность не в том как запустить сам экзешник (SArchive.exe), а как передать ему параметры. Я понятия не имею какие ему нужны параметры и сколько их нужно. Мучаюсь второй день.

В макросе это выглядит вот так:
1)случай
m_SetDate = SArchiv.SetDate(Year, Month, Day)

2)случай
m_GetValueB = SArchiv.GetValueB(Binding, Hour, Minute,Second, strValue, m_strDimen, m_Dost)

Вот я и решил попробовать запустить фрагмент макроса из своего проекта.

KSergey (2004-08-05 14:46:00) [2]
> [3] СержК (05.08.04 11:50)
> Если бы я знал как запустить этот экзешник и передать ему
> эту кучу параметров хотя бы с командной строки

Я не понял: так запустить надо екзеншник??

Мастер (2004-08-05 14:40:00) [3]
Их не надо устанавливать.

uses OleCtrls, MSScriptControl_TLB, ActiveX;

СержК (2004-08-05 14:31:00) [4]
Как я понял мне нужно установить в Delphi компоненты для ScriptControl1.
Если это так, то где их взять.

Мастер (2004-08-05 13:43:00) [5]
var ScriptControl1:TScriptControl; ... ScriptControl1:= TScriptControl.Create(nil); ScriptControl1.Language:='JScript'; Label2.Caption:='WSH ver. '; s:=ScriptControl1.Eval('ScriptEngineMajorVersion()'); ss:=ScriptControl1.Eval('ScriptEngineMinorVersion()'); Label2.Caption:=Label2.Caption+ s+'.'+ss;

Точно так же и для VB.

TUser (2004-08-05 13:39:00) [6]
Может в dll запихать код из VB? Точно не знаю, но наверное, VB умеет Dll делать.

СержК (2004-08-05 12:55:00) [7]
test.vbs - работает. Огромное спасибо.

sniknik (2004-08-05 12:04:00) [8]
сделай файл (текстовый) с расширением
test.vbs
и внутренностью
call MsgBox("Do you want to continue?", 0, "MsgBox Demonstration")

после ткни на него двойным кликом... (запусти)

поможет?

panov (2004-08-05 11:50:00) [9]
>СержК (05.08.04 11:34)
Для W2000 и выше используй ActiveScript.

СержК (2004-08-05 11:50:00) [10]
Вот в этом как раз и проблемма.
У меня есть экзешник который при запуске из макроса с кучей параметров возвращает (опять же в макрос) нужное значение.

Если бы я знал как запустить этот экзешник и передать ему эту кучу параметров хотя бы с командной строки - вопрос отпал бы сам собой. Разработчик этой программы уже не работает в той конторе, где программа покупалась.

Плохиш (2004-08-05 11:41:00) [11]
Можно, но надо перевести в синтаксис объектного паскаля.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »