HI - and thanks for the reply If you want to chat about this - call me at 510 889 1453 I Posted this reply a bit early - and have found a small glitch I have modified the code a bit - here is the most recent version using a directcast . . . The other version hung on the response statement - forever - and the network is basically empty during the hang The reply is a 1-4 byte string. ---> Glitch - the directcast returns the entire web page string - I found the following as an alternate suggestion - it works - but seems to time out on each request (my test file has 2 records, and the total time is about 12 seconds) - but if I un-comment the test1 string I get sub second response to a browser window. My DevEnv is VisualStudio2008 WebRequestString = "http://ws.geonames.org/gtopo30?lat=" & lineArray(LatPosition) & "&lng=" & lineArray(LonPosition) 'Dim test1 As String = "http://www.geonames.org/gtopo30?lat=33.7669399&lng=-116.4134417" Dim Request As HttpWebRequest Dim Response As HttpWebResponse Dim reader As StreamReader Dim sbSource As StringBuilder Try Request = DirectCast(WebRequest.Create(WebRequestString), HttpWebRequest) Request.KeepAlive = False response = DirectCast(Request.GetResponse(), HttpWebResponse) If Request.HaveResponse = True AndAlso Not (response Is Nothing) Then ' Get the response stream reader = New StreamReader(response.GetResponseStream()) ' Read it into a StringBuilder sbSource = New StringBuilder(reader.ReadToEnd()) End If Catch wex As WebException ' This exception will be raised if the server didn't return 200 - OK ' Try to retrieve more information about the network error If Not wex.Response Is Nothing Then Dim errorResponse As HttpWebResponse = Nothing Try errorResponse = DirectCast(wex.Response, HttpWebResponse) MsgBox("The server returned '{0}' with the status code {1} ({2:d})." & errorResponse.StatusDescription & " , " & errorResponse.StatusCode & " , " & errorResponse.StatusCode) Finally If Not errorResponse Is Nothing Then errorResponse.Close() End Try End If Finally If Not Response Is Nothing Then Response.Close() End Try

Thanks very much - I've downloaded the sdk, looked at some of the references - still working - Is there a short vb code snippet I can grab that will allow me to get a single image and start rummaging - I have gone through a zillion (well - maybe a million) pages and no simple thing that I can grab - Once I have a start - I can usually make progress . . . Thanks Again !! Best Bob

Have you tried windows version of sed or awk? They will strip quotes instead of you ;) Attached code shouldn't return quoted string, so i think quotes are added during saving to file. H.

You can get call trees using Reflector[^] which has the great price of being free. AFAIK you'll need to look elsewhere if you need pretty graphics instead of just a simple treeview style display. -- You have to explain to them [VB coders] what you mean by "typed". their first response is likely to be something like, "Of course my code is typed. Do you think i magically project it onto the screen with the power of my mind?" --- John Simmons / outlaw programmer

Thanks for the response - I have looked pretty carefully but nothing is obvious - the problem seems to be that PortMon sees the string comming in - but the readline(ServoDataIn) statement in the vb code either gets an incomplete transfer or garbage - I am not certain which . . . this is all very slow stuff and not much data is moving . . .

There is nothing that will scan the ports for a device for you. You have to write the code to attempt to open each COM port using the settings that the device expects (baud, bits, parity, stop bits, ...). If the port opens, you then try to send a command that the device expects and see if you get a correct repsonse. If so, you found it! If not, try the next port. Dave Kreskowiak Microsoft MVP - Visual Basic

Well thanks ! It took me a while but I managed to suss out the following . . . and the values are correct - I wound up declaring\f every6thing as double I am using a Canon EOS with a Canon SDK, and an Allmotion servo control and a Garmin GPS Next is to scan the com ports to get the location of the serial usb devices Any Ideas ?? Thanks Again !! bob Private Sub CalculateAngularVelocity(ByVal GPSSpeedIn As Double, ByVal AltitudeAGLIn As Double) 'This uses a HP9100 encoder, 500 counts per motor revolution, 303.366 counts per degree 'Formula W (Rads per sec) = V (Ft Per sec) / R (Ft) ConvertSuccessful = Double.TryParse(AltitudeAGL.Text, AltitudeAGLIn) If Not GPSPresent Then ConvertSuccessful = Double.TryParse(GPS_GroundSpeed.Text, GPSSpeedIn) End If GroundVelocity = GPSSpeedIn * FeetPerNauticalMile / SecondsPerHour AngularVelocity = GroundVelocity / AltitudeAGLIn MsgBox("GS " & GroundVelocity) MsgBox("alt " & AltitudeAGLIn) Dim AngularVelocityDegrees As Double AngularVelocityDegrees = Math.PI * 2 * AngularVelocity MsgBox("Angular Velocity" & AngularVelocityDegrees) CountRate = AngularVelocity * CountsPerRad MsgBox("CountRate" & CountRate) End Sub