[SOLVED] Catching error on SVGButton

[AsleyCruz]

Hi there,
How can I catch the error if inserted wrong SVG string on SVGButton?

I am trying to create a component and if I insert wrong SVG string,
Lazarus freezes and crash. See attached image

Code: Pascal  [Select][+][-]

1. //Code on the component
2. try
3.   BCSVGButton1.SVGNormalXML.Text:=Memo1.Text;
4.   BCSVGButton1.RedrawBitmap;
5. except
6.   Dialogs.MessageDlg('Icon','Unable to load the icon from SVG string.', mtError, [mbOk], 0, mbOk);
7. end;

Thanks a lot!

[paweld]

svg is simply xml, only with specific tags. you can do it like this:

Code: Pascal  [Select][+][-]

1. uses
2.   DOM, XMLRead;
3.  
4. procedure TForm1.Button1Click(Sender: TObject);
5. var
6.   Doc: TXMLDocument;
7.   ss: TStringStream;
8. begin
9.   ss := TStringStream.Create(memo1.Lines.Text);
10.   Doc := TXMLDocument.Create;
11.   try
12.     ReadXMLFile(Doc, ss);
13.     ShowMessage('XML / SVG OK!');
14.   except
15.     on E: Exception do
16.       ShowMessage('XML / SVG Error: ' + E.Message);
17.   end;
18.   Doc.Free;
19.   ss.Free;
20. end;    
21.  

[AsleyCruz]

svg is simply xml, only with specific tags. you can do it like this...

Thanks a lot, it worked.

This is my function:

Code: Pascal  [Select][+][-]

1. function IsSVGValid(aText:String):boolean;
2. var
3.   Doc: TXMLDocument;
4.   SS: TStringStream;
5. begin
6.   SS := TStringStream.Create(aText);
7.   Doc := TXMLDocument.Create;
8.   try
9.     ReadXMLFile(Doc, SS);
10.     Result:=true;
11.   except
12.     Result:=false;
13.   end;
14.   Doc.Free;
15.   SS.Free;
16. end;
17.  
18. if IsSVGValid(Memo1.Text) then begin
19.   BCSVGButton1.SVGNormalXML.Text:=Memo1.Text;
20.   BCSVGButton1.RedrawBitmap;
21. end else
22.   Dialogs.MessageDlg('Icon','Unable to load the icon from SVG string.', mtError, [mbOk], 0, mbOk);