Скачать: CL | DM;

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]

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

---

← →
AloneAli ©   (2005-04-11 07:43) [8]

> 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" не воспринимает. Народ поможите чем сможете.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.04 c