Главная страница
    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
6-1132056395
Ega23
2005-11-15 15:06
2006.03.05
Идентификация компа


4-1134719932
Kot_
2005-12-16 10:58
2006.03.05
Бездействие пользователя в программе.


2-1140286213
Дубинка
2006-02-18 21:10
2006.03.05
Подключение по локальной сети


3-1136907278
alsov
2006-01-10 18:34
2006.03.05
XML с удаленного сервера как результат селекта


15-1139834880
Nick Denry
2006-02-13 15:48
2006.03.05
Gtk2 и Delphi





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский