dOPC Client Toolkit
Close
Example
ua.client.TdOPCUAClient.OnLog
Copy Code
// simple logging
procedure
TReadDemo.dOPCUAClient1Log(Sender: TObject; LogSeverity: Integer; LogType: Cardinal; LogMessage:
string
; Data: TuaObj);
begin
TThread.Queue(
nil
,
procedure
()
begin
Memo1.Lines.Add(LogMessage + ' '+ TuaLog.ToString(LogType));
end
);
end
;
// shows detailed response as JSON message in a memo box
procedure
TBrowseDemo.AddToLog(LogMessage:
string
; Data: TuaObj);
var
Response:
TuaResponseObj
;
begin
if
(Data <>
nil
)
and
(Data
is
TuaResponseObj
)
then
begin
Response :=
TuaResponseObj
(Data); MemoResponse.Lines.Text := Response.ToString;
end
;
end
;
procedure
TBrowseDemo.OPCClientLog(Sender: TObject; LogSeverity: Integer; LogType: Cardinal; LogMessage:
string
; Data: TuaObj);
begin
TThread.Queue(
nil
,
procedure
()
begin
AddToLog(LogMessage,Data);
end
);
end
;
Kassl GmbH Copyright © 2024. All rights reserved.