Это кусок текста программы:
Autograph.StartComputing(Autograph.GroupFileName,A utograph.CarDevice, DateTimeToStr(adtn), DateTimeToStr(adtk),'GSM',0);
while Autograph.ComputingBusy<>0 do
Vis_form.Cursor := crHourGlass;
Vis_form.Cursor := crDefault;
Autograph.ExportDataToFile(dr_tmp+'\proba_'+IntToS tr(Autograph.GroupsNum)+IntToStr(Autograph.GroupCa rsNum)+IntToStr(Autograph.TripIndex)+'.dbf', 10,1);
try
A_db.SQL.Clear;
A_db.SQL.Add('select sernum, datetime, speed, level1, COUNTER3 from proba_'+IntToStr(Autograph.GroupsNum)+IntToStr(Aut ograph.GroupCarsNum)+IntToStr(Autograph.TripIndex) +' where tdatetime>'+Replace(FloatToStr(mtm),',','.')+' order by datetime');
A_db.Active := true;
except
on E:Exception do begin
if fl_log then
save_log(DateTimeToStr(now)+' Ошибка запроса к таблице DBF.'+chr(13)+' '+PChar(E.Message));
exit;
end;
end;
Так вот, все работает правильно, а ошибка происходит именно в момент выполнения процедуры Autograph.ExportDataToFile. Причем сообщение об ошибке выдается как обычное сообщение с кнопкой "Ок".
dr_temp это папка на локальном компьютере, где установлена моя программа и Автограф.
|