[Mihon] ErrorFixer : Программы форумчан

Mihon · █ 01.04.2009 09:23

Цитата:

Deric ➤ - Как можно узнать, сетевой путь чего ищет программа?

Как уже писал выше: Посмотри в настройках - проверять версию CF при запуске. Не должно стоять галочки. Ибо обновление Фиксер смотреть пытается в лок. сетке. в нашей. В вашей, однозначно обновления ей не будет:) отпишись, подумаем дальше.

Цитата:

- Какие могут быть причины "абстрактной ошибки"?

Так... как раз может быть из-за этой галочки...

Цитата:

- Продолжаешь ли развивать программу?

Продолжаю... потихонечку...
Сейчас посл. версия 8.3.4.
Планируется плановая переделка.
Проверки будет производить не сама прога, а служба на сервере магазина, Фиксер же будет к ней подключаться и тянуть только результат.

Цитата:

- Есть ли смысл задавать вопросы в данной ветке, т.е. поддерживаешь ли ты свою программу (хоть добрым словом)?

Конечно!

Mihon · █ 01.04.2009 09:43

Обновил до последней версии! тут

Stas_S · █ 13.04.2009 12:03

Респект Mihon'у. Весьма полезная прога. Себе сделал нечто подобное для мониторинга на bat-файлах.
Сходу заметил одну деталь - имена сервисов (почтовик и др.) и соответствующих исполняемых файлов меняются в разных версиях СМ. В частности, в 1026.1 имя файла почтовика "Sm.Post.Server.exe", а в теле экзешника CompleteFixer'а жестко забита строка "SmPostServer.exe". В результате возникает окно с ругательством, что данная служба не установлена. Может, стоит вынести это дело в инишник?
И второе - при попытке "Пропинговать все сервера", после успешного пинга вылазит ошибка "Division by zero". Соответственно, эта ошибка вылазит на всех вкладках, если нажимается кнопка выполнения соотв-щей операции над всеми серверами. Выпонение операций над "Всеми отмеченными" проходит успешно, кроме проверки TableSpace'ов...

P.S. Версия CompleteFixer 8.3.4

Mihon · █ 14.04.2009 15:28

Цитата:

Stas_S ➤ Респект Mihon'у. Весьма полезная прога.

благодарность :)

Цитата:

Stas_S ➤ Себе сделал нечто подобное для мониторинга на bat-файлах.
Сходу заметил одну деталь - имена сервисов (почтовик и др.) и соответствующих исполняемых файлов меняются в разных версиях СМ. В частности, в 1026.1 имя файла почтовика "Sm.Post.Server.exe", а в теле экзешника CompleteFixer'а жестко забита строка "SmPostServer.exe". В результате возникает окно с ругательством, что данная служба не установлена. Может, стоит вынести это дело в инишник?

Ну... вообще-то стоит, но проект не коммерческий и создавался для собственных нужд изначально...
Мы планируем вскоре переходить на см 1.026.4 в скором времени, думаю тогда-то и сделаю как раз...

Цитата:

Stas_S ➤ И второе - при попытке "Пропинговать все сервера", после успешного пинга вылазит ошибка "Division by zero". Соответственно, эта ошибка вылазит на всех вкладках, если нажимается кнопка выполнения соотв-щей операции над всеми серверами. Выпонение операций над "Всеми отмеченными" проходит успешно, кроме проверки TableSpace'ов...

P.S. Версия CompleteFixer 8.3.4

Ошибка выходит после пинга одного магазина, или по окончанию пинга всех?
Посмотри, все ли параметры указаны в настройках...
Отпишись тут...

Stas_S · █ 14.04.2009 16:39

Цитата:

Mihon ➤ Ну... вообще-то стоит, но проект не коммерческий и создавался для собственных нужд изначально...
Мы планируем вскоре переходить на см 1.026.4 в скором времени, думаю тогда-то и сделаю как раз...

Да я, собственно, без претензий. Как известно, даренному коню... *113

Цитата:

Mihon ➤ Ошибка выходит после пинга одного магазина, или по окончанию пинга всех?
Посмотри, все ли параметры указаны в настройках...
Отпишись тут...

Деление на ноль возникает после окончания пинга всех серверов.

Mihon · █ 15.04.2009 08:41

Цитата:

Stas_S ➤ Да я, собственно, без претензий. Как известно, даренному коню... *113

Деление на ноль возникает после окончания пинга всех серверов.

У тебя провайдеры введены?

Mihon · █ 15.04.2009 08:44

После пинга всех вызывается процедура

Цитата:

procedure TMainForm.ShowBadProviders(Sender: TObject);
var
i,j,nmagthisprov:integer;
begin
Chart4.Series[0].Clear;
Chart4.Refresh;
for i:=1 to countP do
begin
nmagthisprov:=0;
for j:=1 to countdb do
if Shops[j].ProviderNum=i then inc(nmagthisprov);
Chart4.Series[0].Add(Badprovider[i] div nmagthisprov);
Chart4.Series[0].XLabel[i-1]:=Providers[i];
end;
end;

Как видишь, если у провайдера нет магазинов, может возникнуть деление на ноль.
Думаю, лучше завести провайдеров, чем фиксить баг...:)

Stas_S · █ 15.04.2009 13:14

Цитата:

Mihon ➤ У тебя провайдеры введены?

Да, поскольку конфиг брал по ссылке.
Спасибо. Помогло убиение троих провайдеров. Оставил одного.
Однако, ошибка деления на ноль продолжает вылазить на закладке "TableSpaces". Причём, независимо от того, проверяется одна база или все оптом.

Mihon · █ 15.04.2009 14:00

Цитата:

Stas_S ➤ Да, поскольку конфиг брал по ссылке.
Спасибо. Помогло убиение троих провайдеров. Оставил одного.
Однако, ошибка деления на ноль продолжает вылазить на закладке "TableSpaces". Причём, независимо от того, проверяется одна база или все оптом.

Ну, опять же, просьба уточнить: когда именно выходит ошибка...

Mihon · █ 15.04.2009 14:04

Хотя, похоже, я понял...

Цитата:

...
OracleDataSet1.SQL.Append('SELECT sum(BYTES)');
OracleDataSet1.SQL.Append('FROM SYS.DBA_DATA_FILES');
OracleDataSet1.SQL.Append('WHERE TABLESPACE_NAME = '#39+TablespaceName+#39);
OracleDataSet1.Active := True;
maxsize:=Data.OracleDataSet1.FieldByName('sum(BYTES)').AsFloat;
...
percent:=round(maxsize-freesize) div round(maxsize/100);
...

Здесь идет деление на round(maxsize/100).
Соответственно, maxsize=0.
Значит, TablespaceName не такой как у тебя...
Получается, у тебя нет одного или нескольких из тэйблспэйсов:
INDX
TEMP
USERS
RBS
SYSTEM
Проверяй...
(self,'TOOLS');