Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа проги в 98 и в ХР [D7, WinXP]

Страницы: < 1 2 3 >
balagur © (2006-06-08 07:51:00)
Доброго времени суток!
Есть прога, которая работала и под 98 и под ХР. Возникла необходимость сделать апгрейд (добавил кнопку с выводом в Ворд результатов выборки). Теперь под 98 она работать не хочет, т.е. ошибок нет, она просто висит в процессах и ни ответа, ни привета. Причем, старый вариант работает нормально, но после того, как запускаешь новую версию нужен ребут, чтобы старый вариант заработал снова.
Подскажите, где подкрутить-посмотреть.
Спасиба.

saxon (2006-06-08 12:35:00) [21]
Кстати, а в системных сообщениях ничего нет?
Может там ворд чего написал.

balagur (2006-06-08 12:34:00) [22]
> нефтыкается OleVariant

> в смысле? та же самая канитель?

абсолютно тоже самое, буду втыкивать мессаджи...

saxon (2006-06-08 12:33:00) [23]
Да, надо же локализовать проблемный код.
Боюсь что писать в лог-файл не пройдет.

StriderMan (2006-06-08 12:32:00) [24]

> нефтыкается OleVariant

в смысле? та же самая канитель?

balagur (2006-06-08 12:31:00) [25]
имеешь ввиду понафтыкать message"й почти после каждой строки?

saxon (2006-06-08 12:29:00) [26]
Попробуй через набор ShowMessage'ев опредлелить где подвисает.

balagur (2006-06-08 12:27:00) [27]
после пяти неудачных попыток поразить мишень, грузинский биатлонист зарезал ее ножом :)
про меня :) нефтыкается OleVariant...

StriderMan (2006-06-08 12:25:00) [28]
попробуй тип OleVariant вместо Variant

balagur (2006-06-08 12:22:00) [29]
в смысле? Есть все и Ворд и Эксель и все остальное...

DevilDevil (2006-06-08 12:17:00) [30]
Может у клиента MS Office не стоит?

balagur (2006-06-08 12:16:00) [31]
еще есть какие-нить варианты? а то как-то завально получается :)

balagur (2006-06-08 11:57:00) [32]
прописал это
if VarisEmpty(MsWord) then
ShowMessage('Could not start MS Word_');
и в try и в except и в конце, но ничего...

залез в Install Packages и нашел, что у меня указана только Microsoft Office XP Sample Automation Server...
может еще и в этом дело?

StriderMan (2006-06-08 11:45:00) [33]

> Некошерно сравнивать с UnAssigned, равно как и с NULL.
> VarIsEmpty и VarIsNull существуют не для красивого словца

Согласен, поторопился.

ЮЮ (2006-06-08 11:41:00) [34]
Некошерно сравнивать с UnAssigned, равно как и с NULL.
VarIsEmpty и VarIsNull существуют не для красивого словца.

StriderMan (2006-06-08 11:35:00) [35]
не

> MsWord := UnAssigned

а
if MSWord = UnAssigned then ...

ЮЮ (2006-06-08 11:29:00) [36]

> Но лучше MSWord = UnAssigned
>

У меня дома стоит такая интерсная кофигкрация жереза, Ос и Делфи, что на твоем лучшея схлопотал бы ошибку преобразования :)

balagur (2006-06-08 11:28:00) [37]

> Вообще Exception там возникнет либо если не найден объект
> "Word.Application", либо если он не поддерживает св-во Visible.
>
> а вообще проверить > VarIsEmpty(MSWord) тоже неплохо бы.
> Но лучше MSWord = UnAssigned

т.е.
MsWord.Quit;
MsWord := UnAssigned; ?

поставил, но результат тот же

StriderMan (2006-06-08 11:25:00) [38]

> А точно там может возникнуть Exeption?

Вообще Exception там возникнет либо если не найден объект "Word.Application", либо если он не поддерживает св-во Visible.
а вообще проверить > VarIsEmpty(MSWord)тоже неплохо бы. Но лучше MSWord = UnAssigned

ЮЮ (2006-06-08 11:20:00) [39]
А точно там может возникнуть Exeption?
Мне попался такой для проверки успешного старта :

if VarIsEmpty(MSWord) then
ShowMessage('Could not start MS Word');

StriderMan (2006-06-08 11:13:00) [40]

> except
> Exception.Create('Microsoft Word');
> end;

raiseException.Create('Microsoft Word');

Страницы: < 1 2 3 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »