From f2cdddebcde3030afdd6712672bc9ccd77c328ef Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Sun, 13 Sep 2020 07:56:31 +0000
Subject: [PATCH] * ExtractErrorMsg

---
 packages/dataabstract/rosdk.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/packages/dataabstract/rosdk.pas b/packages/dataabstract/rosdk.pas
index 5596bf3..b5ab8c5 100644
--- a/packages/dataabstract/rosdk.pas
+++ b/packages/dataabstract/rosdk.pas
@@ -212,7 +212,18 @@ Type
     function encodeInt(data : NativeInt; bits : Integer; Signed : boolean) : String;
   end;
 
+Function ExtractErrorMsg(jsError : TJSError) : String;
+
 implementation
 
+Function ExtractErrorMsg(jsError : TJSError) : String;
+begin
+  if Assigned(jsError) and isString(jsError.message) then
+    Result:=jsError.message
+  else
+    Result:='Unknown error'
+end;
+
+
 end.