Requirement


How to do

* Step1 : Download the "svghelper.vbs"

* Step2 : Add the following code on your home Page.


<SCRIPT type="text/vbscript" language="vbscript" src="script/svghelper.vbs">

<SCRIPT type="text/vbscript" language="vbscript">

Sub Render(Byval strDOT,ByRef objSVGViewer)

	on error resume next

	Rander.disabled = true                  

	

	Dim obj

	Set obj = CreateObject("WinGraphviz.DOT")               

	

	if obj is Nothing then

	        Msgbox "Unable to load WinGraphviz ,You may install it first or set this page as trust site in IE !"

	

	else

	                

	        Dim strSVG

	    strSVG = obj.ToSVG(strDOT)                          

	        

	        if (len(strSVG > 0) ) then

	                call syncXMLtoSVG(strSVG,objSVGViewer.getSVGDocument())

	        end if

	end if

	

	Set obj = Nothing

	

	Rander.disabled = false

        

End Sub         

</SCRIPT>


* Step3 : Add the "Adobe SVG Viewer" on your homepage.


<embed  ID="SVGEmbed" NAME="SVGEmbed"

            src="default.svgz" 

            width="800" 

            height="800" 

            type="image/svg+xml"

            PLUGINSPAGE="http://www.adobe.com/svg/viewer/install/"          

            >

	

* Step4 : Integrated them together .


<INPUT name="Rander" type="button" value="Render DOT language to SVG Viewer" onclick=

        "vbscript:call Render(txtDOT.value,SVGEmbed)">                     

        

    	

Feedback

Submit bug reports or suggestions for the WinGraphviz ood Tsen.