Tutorial 08: Using TCP/IP to Obtain Stock Quotes September 20, 2009 © NSB Corporation. All rights reserved. Contributed by Tom Newman, Mission Peak Designs

Contents:

1. Introduction
2. How is it Done?
3. Creating the Form
4. Adding the Code
5. Testing the Program

Introduction

The purpose of this tutorial is to demonstrate adding networking functionality to your NS Basic/CE programs. You should have completed Tutorial #1 before beginning this tutorial.

The program to be developed uses the NewObjects ActiveX Net Stream control to open a socket and obtain stock quotes from Yahoo.com. The NewObjects Storage and File control is used to send and received data from the Yahoo server.

How is it Done?

Including network support in your application starts as simply as adding NewObjects ActiveX control as a resource to your program. Select Project > Add Resource, then select newObjectsPack1.dll.

(For a complete reference on the methods above, make sure you read the Tech Note 06: Communications - TCP/IP and IRDA and Tech Note 08: File I/O Control - SFStream.)

Working with TCP/IP protocols is similar to reading/writing files from the file system. There are basically three steps used to talk to a server:

1. First you have to open it (socket),
2. Then you send commands and read data to/from it,
3. and finally you close it (socket).

Because you are dealing with a remote system and not a local file, you have a "timeout" feature. It simply means that if your application does not hear from the remote machine for a specified period of time it will give up.

You must also specify to which service you want to connect in that remote machine, and that's the concept behind "port". Different ports provides different services, for instance,

• Webserver usually listens on port 80,
• Mail server accepts messages for delivery on port 25 (SMTP service), and
• Email client connects on the server's port 110 to retrieve your mail using the POP3 protocol.

Creating the Form

Start a new "Standard" project and save it as HttpStocks.nsb

• Create a TextBox and call it "txtMsg". Change Multiline to True. Change Scrollbars to 3 (both vertical and horizontal). Delete the field after the Text property.
• Create a CommandButton and call it "cmdFetch". Change the Caption to "Fetch".
• Create a TextBox and call it "txtSymbol". Change the Text property field to "AAPL".

The form should look like the following:

>

Adding the Code

In this project we will simply connect to the Yahoo server and send a request to return the latest information on the stock symbol entered (Apple is the default case).

Enter the following code in the Code Window (you can copy and paste this code):

Option Explicit ShowOKButton True 'for CE ' Shows how to read stock quotes from Yahoo.com AddObject "newObjects.net.NSMain", "NSMain" AddObject "newObjects.utilctls.SFStream","conn" Sub cmdFetch_Click Dim Host, addr, socket Dim s Dim Symbol Symbol = txtSymbol.Text Host = "download.finance.yahoo.com" Set addr = nsMain.GetHost(Host) txtMsg.Text = "Connecting to: " & Host addr.Port = 80 'http port Set socket = nsMain.NewSocket If Not socket.Socket Then txtMsg.Text= "Error: " & socket.lastError & vbCrLf & txtMsg.Text Exit Sub End If If Not socket.Connect(addr) Then txtMsg.Text= "Error: " & socket.lastError & vbCrLf & txtMsg.Text Exit Sub End If conn.SetStream socket txtMsg.text = "GET quote for " & Symbol & vbCrLf & txtMsg.text conn.WriteText "GET /d/quotes.cvs?f=sd1t1l1c1&e=.cvs&s=" & Symbol & vbCrLf txtMsg.text = "Waiting for response:"& vbCrLf & txtMsg.text s = conn.ReadText(-2) txtMsg.text = s & vbCrLf & txtMsg.text txtMsg.Text= "Done." & vbCrLf & txtMsg.Text socket.Close End Sub

Now let's analyze the code, line by line:

• Lines 4 and 5 define the Net Stream object (NSMain) and the Storage and File object (SFStream).
• Lines 14 and 15 define the Yahoo server address (URL) and gets the IP address of the server (calling GetHost).
• On line 19 we open the connection to "server" on port 80.
• Line 31 initializes the Socket connection for reading and writing.
• Line 34 Sends a "Get" command to the server requesting the quote information.
• Line 37 waits for a response from the server (read a line of data)
• The Socket is closed on line 41.

Line number 34 deserves a little explanation:

    conn.WriteText = "GET /d/quotes.csv?f=sd1t1l1c1&e=.cvs&s=" & Symbol & vbCrLf

That message will cause the host (Yahoo) to give the symbol, the date, the time of last trade, the latest price, and the change in dollars from the opening price for Apple Computer. These are respectively coded with s, d1, t1, l1 and c1. (I'm not sure where Yahoo officially publishes these codes but this article from the Motley Fool shows many of them: http://boards.fool.com/Message.asp?mid=18825035)

Testing the Program

Press F5 to save and start the program. Clicking on Fetch should show something similar to the image below. The program defaults to return the Apple stock price (AAPL) but you can enter your own stock symbol in the upper text box.