Можно ли вставить в свой проект фрагмент кода на VB

← →
СержК (2004-08-05 11:34) [0]

Уважаемые мастера, подскажите:
Можно ли вставить в свой проект фрагмент кода на VB (фрагмент макроса). Если можно, то как это сделать. Буду очень признателен за пример.

← →
Плохиш © (2004-08-05 11:41) [1]

Можно, но надо перевести в синтаксис объектного паскаля.

← →
panov © (2004-08-05 11:50) [2]

>СержК (05.08.04 11:34)
Для W2000 и выше используй ActiveScript.

← →
СержК (2004-08-05 11:50) [3]

Вот в этом как раз и проблемма.
У меня есть экзешник который при запуске из макроса с кучей параметров возвращает (опять же в макрос) нужное значение.

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

← →
sniknik © (2004-08-05 12:04) [4]

сделай файл (текстовый) с расширением
test.vbs
и внутренностью
call MsgBox("Do you want to continue?", 0, "MsgBox Demonstration")

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

поможет?

← →
СержК (2004-08-05 12:55) [5]

test.vbs - работает. Огромное спасибо.

← →
TUser © (2004-08-05 13:39) [6]

Может в dll запихать код из VB? Точно не знаю, но наверное, VB умеет Dll делать.

← →
Мастер © (2004-08-05 13:43) [7]

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.

← →
СержК (2004-08-05 14:31) [8]

Как я понял мне нужно установить в Delphi компоненты для ScriptControl1.
Если это так, то где их взять.

Их не надо устанавливать.

uses OleCtrls, MSScriptControl_TLB, ActiveX;

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

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

← →
СержК (2004-08-05 15:20) [11]

Для меня сложность не в том как запустить сам экзешник (SArchive.exe), а как передать ему параметры. Я понятия не имею какие ему нужны параметры и сколько их нужно. Мучаюсь второй день.

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

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

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

Можно ли вставить в свой проект фрагмент кода на VB Найти похожие ветки