Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.05.2012, 09:14   #11
3D Hunter
Сумрачная тень
Форумчанин
 
Аватар для 3D Hunter
 
Регистрация: 05.03.2009
Сообщений: 689
По умолчанию

ТС, оберни каждую процедуру, в которой осуществляется работа с БД, так:
Код:
procedure SaveDB;
begin
  try
  //код процедуры
  except
    on E:Exception do ShowMessage('procedure SaveDB: '+E.Message);
  end;
end;
По возникшему окну с ошибкой сразу определите, где ошибка. Так удастся найти первое звено начала конца
"ковыряю изнутри" (с)
3D Hunter вне форума Ответить с цитированием
Старый 17.05.2012, 15:22   #12
Valio
Сливочное масло
Участник клуба
 
Аватар для Valio
 
Регистрация: 01.01.2011
Сообщений: 1,149
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Сделай функцию LOG, которая будет в текстовый файл записывать некую строку.
Код:
procedure log;
var f:TextFile;fl:string;
begin
 fl:=ExtractFilePath(ParamStr(0))+'пышпыш.log';
 AssignFile(f,fl);
 if not FileExists(fl) then Rewrite(f) else Append(f);
 Writeln(f,DateTimeToStr(now),#9,s);
 CloseFile(f);
end;
Натыкай ее вызов во все процедуры и функции - и посмотри из какой из них запись в файле будет последняя - там вероятно и будет начало проблемы.
Далее - try except не помешают. Оберни ими все обращения к компонентам зеоса, и в исключении втюхай вызов LOG дбы в файл писался текст ошибки.
Пока не получишь текст ошибки и хотя бы примерное ее местоположение никто ничего тебе ничем помочь не сможет.
Кстати хорошая идея реализации. Я както тоже так делал, когда не мог понять причину редкого зависания при сохранении в БД. Правда после введения лога ничего больше не зависало и смоделировать завис у меня так и не получилось. Темнеменее я вооружён если что.

Ябы рекомендовал передавать строку-комментирий.

Код:
Procedure log(text : String);
Дабы в фаил заносился и коммент, чтоб проще было его найти.
Сливочное масло Valio - компиляция как по маслу
Valio вне форума Ответить с цитированием
Старый 25.05.2012, 10:34   #13
Igolka6662
Пользователь
 
Регистрация: 24.11.2010
Сообщений: 30
По умолчанию

Спасибо большое всем за помощь)))
проблема решена.
Одие из компонентов dbExpress(причем который я не использовал) был привязан к MySQL драйверу, в связи с чем программа не запускалась на др. компьютерах.
И спасибо большое за совет по поводу log файла и отслеживания исключения, чейчас активно использую))
Igolka6662 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Проблема с компонентами Socket Чай_ник Общие вопросы Delphi 3 22.12.2011 00:23
Проблема с доступом между компонентами С++ XKillah Помощь студентам 4 09.04.2010 17:54
Проблема с компонентами AlphaControls SalasAndriy Компоненты Delphi 3 27.07.2009 16:31