исправлен вывод об ошибках в OLE

ladrus

В описании к версии 3.20 FastReport написано: исправлен вывод об ошибках в OLE
А можно сказать, как это поправить для версии 1.8 FastScript

-=Den=-

в fs_idisp.pas функция TfsOLEHelper.DispatchInvoke :
в объявление переменных добавить:
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;

ladrus

Огромное спасибо