Как отобразить в Memo события из zSQLMonitor в Delphi7?

Question

[Владимир Кай]

Добрый день!

Понадобилось отобразить в Memo события из zSQLMonitor из пакета компонентов ZEOSDBO для доступа в MySQL.
Нашел информацию что можно из обычного SQLMonitor загрузить события следующим образом:

Для вывода сообщений расположим на форме компонент Memo. Для его заполнения создадим обработчик события OnLogTrace компонента SQLMonitor1 со следующим кодом:

Memo1.Clear; 
Memo1.LinesAddString(SQLMonitor1.TraceList);

Но код не работает с компонентом от ZEOS, так как у ZEOS TraceList - Integer, а не Strings..
Есть другой вариант как реализовать подгрузку событий?

Answer 1

[kalapanga]

Какой-такой Integer, когда:

property TraceList[Index: Integer]: TZLoggingEvent read GetTraceItem;

А уж у TZLoggingEvent-а выбирай чего нужно:

function AsString(LoggingFormatter:IZLoggingFormatter = nil): string;

property Category: TZLoggingCategory read FCategory;
property Protocol: string read FProtocol;
property Message: string read FMessage;
property ErrorCode: Integer read FErrorCode;
property Error: string read FError;
property Timestamp: TDateTime read FTimestamp;

AsString небось самое оно и будет

Comments

[Владимир Кай]

А если всё и сразу нужно?

[kalapanga]

Владимир Кай: Так AsString-то попробовали? Она и должна эти свойства в виде одной строки выдавать.

[Владимир Кай]

kalapanga:

procedure TAdminForm.ZSQLMonitor1LogTrace(Sender: TObject;
  Event: TZLoggingEvent);
begin
MemoLog.Clear;
MemoLog.Lines.AddStrings(zSQLMonitor1.TraceList[3].AsString);
end;

Так должно быть?

[Владимир Кай]

Благодарю