I have done conversions using the free corpson code libraries. You will have to copy the libraries to each machine and either put in same folder path location or use a config the application reads to know the stored path of the corpson libaries.http://http://www.agc.army.mil/corpscon/index.htmlhere is some code snippet of setting it up. there are some other calls you need to set up first that I did not include. If you want the rest of the code snippet- just let me know. Believe the download of corpscon includes a user guide.<DllImport("F:\ArcIMS\Corpscon6\corpscon_v6.dll", EntryPoint:="GetXOut", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function getoutx() As Double
' Leave function empty - DllImport attribute forces calls
' to Corpsconconfig to be forwarded to MoveFileW in KERNEL32.DLL.
End Function
<DllImport("F:\ArcIMS\Corpscon6\corpscon_v6.dll", EntryPoint:="GetYOut", SetLastError:=True, _
CharSet:=CharSet.Unicode, ExactSpelling:=True, _
CallingConvention:=CallingConvention.StdCall)> _
Public Shared Function getouty() As Double
' Leave function empty - DllImport attribute forces calls
' to Corpsconconfig to be forwarded to MoveFileW in KERNEL32.DLL.
End Function
then you just need to call your methods to convert to and from whatever. Private Sub convertDegreestoFeet(ByVal inx As Double, ByVal iny As Double, ByRef outx As Double, ByRef outy As Double)
Dim RetVal As Integer
RetVal = setinsystem(1)
RetVal = setindatum(1983)
RetVal = setoutstystem(2)
RetVal = setoutdatum(1983)
RetVal = setoutzone(1900)
RetVal = setoutunits(1)
RetVal = Corpscon_initialize()
RetVal = setiny(iny)
RetVal = setinx(inx)
Dim script As String
RetVal = Corpscon_convert()
Dim outdbl As Double
outdbl = getoutx()
script = "<script language=JavaScript>window.alert('" & outdbl & "'); </script>"
'ClientScript.RegisterStartupScript(Me.GetType, "tab3", script)
outx = outdbl
outdbl = getouty()
script = "<script language=JavaScript>window.alert('" & outdbl & "'); </script>"
'ClientScript.RegisterStartupScript(Me.GetType, "tab4", script)
outy = outdbl
End Sub