mathcad и delphi - передача и возврат переменных?

← →
mishka (2004-07-10 20:06) [0]

Доброго времени.
(сразу оговорюсь - в com и ole - технологиях: плаваю...)

вот встал насущный вопрос - не получается передать значения из своей программы в подготовленный (все переменные уже готовы для расчета) маткадовский файл. Открыл маткад через oleautomation. Зарегистрировал юнит, подключил маткадовские компоненты в delphi.

Собственно не работает setvalue - с документом ничего не происходит...
Да.., и если у функции getvalue тип возвращаемого значения - IDispatch, как его переконвертировать в double (string и т.д.)?

procedure Tfrm.b_openmcadClick(Sender: TObject); var s_n: string; tv: olevariant; d_v: double; i: imathcadworksheet; begin mcad:=TMathCad.create(true); mcad.int.Worksheets.Open("C:\programs\Mathcad11\qsheet\include\example.mcd"); i:=mcad.int.Worksheets.Item(0); i.SetValue("A", 51); i.SetValue("B", 0.127); i.Recalculate; // d_v:=mcad.int.ActiveWorksheet.GetValue("examplevariable"); end;

Спасибо. :)

← →
имя (2004-07-11 10:50) [1]

Удалено модератором

← →
softmaster (2004-07-11 16:06) [2]

А Маткад какой версии берешь?

← →
Maksym (2005-01-27 19:20) [3]

Удалено модератором
Примечание: В таких случаях принято создавать новую ветку

← →
Aleksandr (2005-03-25 17:31) [4]

Народ по зарез нужно узнать как же все таки связать MathCAD и Delphi. Пишу большой проект и посто необходимо использование MathCAD.
Если вдруг найду где нибудь как это делается обязательно напишу как.

← →
Aleksandr (2005-04-06 15:32) [5]

Долго мучался и накоец то получилось подключить mathcad все рабоает замечаельно, кроме одного. Не могу забрать результаты . Пока обхажусь тем что выдаю результат в Excel а там уже забираю. Через одно место конечно , но работает :о).
А для того что бы передать значение переменных необходимо в mathcad не указывать явно значение переменной и тогда все проходит.

← →
AloneAli © (2005-04-08 09:43) [6]

> Aleksandr (06.04.05 15:32) [5]

Хм... Не пробовал записать макрос того, как Excel получает результат из MathCAD?

← →
Aleksandr (2005-04-09 12:56) [7]

Да вроде бы небыло необходимости.

> Aleksandr (09.04.05 12:56) [7]

А ты попробуй записать!
И переведи на Delphi. Может получиться напрямую результат получить...

← →
Aleksandr (2005-04-11 09:05) [9]

УРА!!! народ все получилось спасибо подсказал SashaPopov . Все просто как ясный день .
Создаем переменную тип Variant. и ей прямо берем и присваиваем.
var d: variant; begin ..... d := Application1.ActiveWorksheet.GetValue("S1"); Edit10.Text := d; -->> ну это просто результат что бы увидить :о) ..... end;

← →
Aleksandr (2005-04-29 14:52) [10]

Вот сегодня наступил еще на одни вилы. Не передаются переменные с запятой типа "51,25" не воспринимает. Народ поможите чем сможете.

mathcad и delphi - передача и возврат переменных? Найти похожие ветки