исправлен вывод об ошибках в OLE
В описании к версии 3.20 FastReport написано: исправлен вывод об ошибках в OLE
А можно сказать, как это поправить для версии 1.8 FastScript
А можно сказать, как это поправить для версии 1.8 FastScript
Комментарии
в объявление переменных добавить:
var
ExcepMess: WideString;
вместо:
if Status <> 0 then
raise Exception.Create('OLE error ' + IntToHex(Status, 8) + ': ' + Name);
поставить :
if Status <> 0 then
begin
ExcepMess := '';
if ExcepInfo.bstrSource <> '' then
ExcepMess := #13#10 + 'Source :: '+ ExcepInfo.bstrSource;
if ExcepInfo.bstrDescription <> '' then
ExcepMess := ExcepMess +#13#10 + 'Description :: '+ ExcepInfo.bstrDescription;
if ExcepInfo.bstrHelpFile <> '' then
ExcepMess := ExcepMess +#13#10 + 'Help File :: '+ ExcepInfo.bstrHelpFile;
raise Exception.Create('OLE error:'+ IntToHex(Status, 8) + ': ' + Name + ExcepMess);
end;