Доработка FRServer
1.Я посмотрел код FRServer. Там предусмотрены поля HTML_CODE и HTML_INIT. Но это пока не реализовано. Когда (приблизительно - месяц-два) это будет? Стоит ли это исправлять самому (как я делал в версии 3 ) или стоит подождать следующего релиза?
2. Добавьте, пож-та, событие
TfrxErrorEvent = procedure(Sender: TObject; sError:string) of object; Прошу, начиная с версии 3... Польза, огромная. Особенно при разработке служб.
procedure TfrxReportSession.DoError;
begin
FReportErrors := True;
LogWriter.Write(ERROR_LEVEL, DateTimeToStr(Now) + #9 + FSessionId + #9'report session error: ' + FError);
LogWriter.ErrorReached;
if Assigned(TfrxReportServer(FParentReportServer).OnError) then // МОИ
TfrxReportServer(FParentReportServer).OnError(TfrxReportServer(FParentReportServer),FError);
end;
2. Добавьте, пож-та, событие
TfrxErrorEvent = procedure(Sender: TObject; sError:string) of object; Прошу, начиная с версии 3... Польза, огромная. Особенно при разработке служб.
procedure TfrxReportSession.DoError;
begin
FReportErrors := True;
LogWriter.Write(ERROR_LEVEL, DateTimeToStr(Now) + #9 + FSessionId + #9'report session error: ' + FError);
LogWriter.ErrorReached;
if Assigned(TfrxReportServer(FParentReportServer).OnError) then // МОИ
TfrxReportServer(FParentReportServer).OnError(TfrxReportServer(FParentReportServer),FError);
end;
Комментарии