Delphi и XML datapacket

← →
Viktor (2004-10-25 13:56) [0]

Возникла следующая проблема.
На Delphi написана программа, которая в качестве базы использует
xml datapacket через ClientDataSet,перед у становкой программы ставится MIDAS.DLL.
При запуске программы она подключает файл базы с помощью следующего кода
with cdsRazdPath do
try
if Active then Active:=false;
FileName:=CuDir()+"dat\razdPath.xml";

{CuDir()-возвращает директорию в котор.находится программа
наличие,проверяется наличие"\" в конце}

Active:=true;
except
MessageDlg("Не удалось прочитать
файл...",mtError,mbOK],0);
end;

При запуске на некотрых компьютерах с WindowsXP, в данной процедуре возникает исключительная ситуация, причём файл razdPath.xml полностью очищается. Протестировать не получилось,
на всех наших машинах работает нормально.
Буду благодарен за любой совет.

← →
Reindeer Moss Eater © (2004-10-25 14:06) [1]

except
MessageDlg("Не удалось прочитать
файл...",mtError,mbOK],0);
end;

Если бы не было этого дурацкого блока обработки исключения, ты бы уже знал причину ошибки

← →
sniknik © (2004-10-25 14:09) [2]

> Буду благодарен за любой совет.
замени безсмысленное
except
MessageDlg("Не удалось прочитать файл...",mtError,mbOK],0);
end;
на
except
on E: Exception do DoIfError();
MessageDlg("Ошибка при чтении файла..."#10#13+
E.ClassName+#10#13+
E.Message
,mtError,mbOK],0);
end;
а то что это выдаст на той машине где возникает исключительная ситуация копируй сюда.

← →
sniknik © (2004-10-25 14:10) [3]

сорри, DoIfError(); надо убрать.

← →
Viktor (2004-10-25 15:31) [4]

Наконец-то пользователи прислали сообщение.
Программа выдаёт следующее:

EsafeArrayLocked Error
Variant or safe array is locked

Ребята, извините что вмешиваюсь... А зачем вообще базу в XML формате хранить??? Это похоже на какое-то извращение или я отстал конкретно от прогресса. Где можно образумиться по этой теме и вычитать преимущества такого изощренного способа?
Просьба дать сылочки раз вы в этом направлении работаете.

попробуй у себя на "чистую" машину поставь то же что клиентам даеш, но(!!!) не ставь midas.dll. ошибка не похожая получается?
или уже у клиента стоит более старая версия (как мне кажется ошибка именно с midas.dll)
как ты ее ставиш? если просто переписываеш, толку не будет. пусть руками положат ее из твоей установки (совместить с версией программы) в системный каталог (D:\WINNT\system32\ например)
и зарегистрируют
regsvr32.exe D:\WINNT\system32\midas.dll

после пробуют, что получилось. (???)

Delphi и XML datapacket Найти похожие ветки