Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.03.05;
Скачать: 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 вся ветка

Текущий архив: 2006.03.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.01 c
2-1140080370
DrNemo
2006-02-16 11:59
2006.03.05
Закачка файла с интернета на ар1


2-1140356030
_shark_@list.ru
2006-02-19 16:33
2006.03.05
Уважаемые мастера, подскажите пожалуйсто, как можно прочитать из


2-1140177446
zx__
2006-02-17 14:57
2006.03.05
работа с модемом


1-1138875687
OlegNik
2006-02-02 13:21
2006.03.05
Как программно работать с реестром?


15-1139566520
Val
2006-02-10 13:15
2006.03.05
Знатокам немецкого: просьба исправить ошибки.





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский