Добрый день!
Помогите найти причину Access Violation?
Поясню непонятное название темы )
Набросал небольшую утилиту к базе данных, которая формирует rtf-документы.
Смысл ее в том, что она слушает Events от FB, когда получает, читает таблицу очереди, и формирует ожидаемые документы.
Программка консольная, x64, стоит на сервере. Если ее запустить, то она сразу сама читает очередь (без FDEventAlerter.OnAlert).
Чтобы срабатывал OnAlert, поменял Options.Synchronize у FDEventAlerter в False;
Для некоторых типов все заработало, она получает команду, создает файлы, сохраняет их в базу, все отлично.
Для следующего типа понадобилось склонять ФИО и должности (через PadegUC.dll).
И, в общем, столкнулся, что если программа читает таблицу очереди и формирует документы при своем запуске (а не по команде OnAlert), то документ формируется (ФИО и должность склоняются).
А если команда приходит в уже работающее приложение через OnAlert, то в момент вызова функции из dll происходит Acess Violation.
Больше ни в чем, кроме способа вызова, разницы не вижу.
Если я в правильном направлении думаю, подскажите, как организовать безглючную работу?
Спасибо!
Основной текст, так сказать
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
DllHandle := LoadLibrary(PChar(ExtractFileDir(ParamStr(0))+'\PadegUC.dll'));
if DllHandle <> 0 then
begin
@GetPadeg := GetProcAddress(DllHandle, 'GetFIOPadegFSAS');
@GetAppPadeg := GetProcAddress(DllHandle, 'GetAppointmentPadeg');
end
class procedure TEventActions.FDAlerterAlert(ASender: TFDCustomEventAlerter;
const AEventName: string; const AArgument: Variant);
begin
//
if AEventName = 'CONSTRUCTRTF' then
begin
while WeOnProcess do Sleep(10); //вдруг уже формируем
WriteColoredStr('['+DateTimeToStr(Date+Time)+'] ', [], 7);
WriteColoredStr('Получена команда формирования RTF, читаю очередь:%s', [#13#10], 3);
ProcessQueue(False);
end;
end;
FIO := FDTQ2.FieldByName('FIO').AsString;
nLen := Length(FIO) + 10;
pResult := StrAlloc(nLen);
try
r := GetPadeg(PChar(FIO), 3, pResult, nLen); //вот тут вылетаем AccessViolation at address 000000000000
if r = 0 then S := StrPas(pResult)
else S := FIO;
finally
StrDispose(pResult);
end;
