Connect your controller to the Internet using only 4 pins
|
MCS
Electronics presents |
|
|
 |
|
|
Making
things easy. |
| |
A few years ago MCS Electronics introduced
Easy-TCP/IP, which gave you a way of interfacing AVR microcontrollers to
the Internet in a fast cost effective way.
Easy-TCP/IP is now being used in the world of embedded electronics and
we aim to improve our products in response to our users’ feedback.
That’s the reason why we now like to introduce EASY-TCP/IP TWI – a
TCP/IP interface that only uses a few I/O pins of your microcontroller,
while keeping your program code as good as unchanged.
Key advantages of the EASY-TCP/IP TWI is that it only uses two I/O pins
for I²C serial communications plus one interrupt pin and a reset pin. So
a maximum of four I/O pins is used for a full TCP/IP interface. The
previously released TCP/IP board used about 16 I/O lines, making it only
suitable for relatively large AVR controllers that can address external memory.
The reduction of I/O pins of the Easy-TCP/IP TWI makes is slower than
the EASY-TCP, but for a lot of embedded applications high speed is not a
requirement. It’s up to you to decide whether you choose for speed,
EASY-TCP or a compact and economic EASY-TCP/IP TWI.
TCP/IP-TWI Motherboard with TWI-Adapter Board.
Features
Easy TCP/IP I²C TWI Development board
●
Supports ATMega32, ATMega88 or pin compatible microcontroller
●
RS232 Interface
●
HD44780 LCD connection
●
RS232 Serial port connector
●
Compatible for programming with STK200/300 dongle (LPT)
●
Headers for most ports pins, GND and +5V
BASCOM-AVR Code samples available.
IIM7010A Adapter PCB. This is available as a KIT in our SHOP
Products
The following TWI products are available
thru our shop:
●
Easy TCP/IP I²C TWI Development board
●
IIM7010A Adapter
Board PCB
●
IIM7010A Ethernet Module
Downloads
●
Easy TCP/IP I²C TWI
Manual
●
Easy TCP/IP I²C TWI
Manual - Polish
● Easy TCP/IP I²C TWI
Adapter Board Manual
●
Sourcecode
A simple web server
This code shows a simple webserver for the TCP/IP-TWI Development Board.
|
|
|
| |
'------------------------------------------------------------------------------
' webserver_twi.bas
' simple webserver demo for Easy-TCP/IP TWI
' (c) 2005 MCS Electronics
'
'This
is exactly the same webserver as the webserver.bas only this program
'can
be used on the Easy-TCP/IP TWI
'
'------------------------------------------------------------------------------
$regfile =
"m32def.dat"
$crystal =
8000000
$baud =
19200
'used
constants
Const
Sock_stream
=
$01
' Tcp
Const
Sock_dgram
=
$02
' Udp
Const
Sock_ipl_raw
=
$03
' Ip Layer
Raw Sock
Const
Sock_macl_raw
=
$04
' Mac Layer
Raw Sock
Const
Sel_control
=
0
' Confirm
Socket Status
Const
Sel_send
=
1
' Confirm Tx
Free Buffer Size
Const
Sel_recv
=
2
' Confirm Rx
Data Size
'socket status
Const
Sock_closed
=
$00
' Status Of
Connection Closed
Const
Sock_arp
=
$01
' Status Of
Arp
Const
Sock_listen
=
$02
' Status Of
Waiting For Tcp Connection Setup
Const
Sock_synsent
=
$03
' Status Of
Setting Up Tcp Connection
Const
Sock_synsent_ack
=
$04 '
Status Of Setting Up Tcp Connection
Const
Sock_synrecv
=
$05
' Status Of
Setting Up Tcp Connection
Const
Sock_established
=
$06
' Status Of
Tcp Connection Established
Const
Sock_close_wait
=
$07
' Status Of
Closing Tcp Connection
Const
Sock_last_ack
=
$08
' Status Of
Closing Tcp Connection
Const
Sock_fin_wait1
=
$09
' Status Of
Closing Tcp Connection
Const
Sock_fin_wait2
=
$0a
' Status Of
Closing Tcp Connection
Const
Sock_closing
=
$0b
' Status Of
Closing Tcp Connection
Const
Sock_time_wait
=
$0c '
Status Of Closing Tcp Connection
Const
Sock_reset
=
$0d
' Status Of
Closing Tcp Connection
Const
Sock_init
=
$0e
' Status Of
Socket Initialization
Const
Sock_udp
=
$0f
' Status Of
Udp
Const
Sock_raw
=
$10
' Status of
IP RAW
'in
debug mode to send some info to the terminal
Const
Debug =
1
Const
Authenticate
=
0 '
use 1 to use authentication
$eepleave ' do
not delete the EEP file since we generated it with the converter tool
#if
Debug
Print "init
W3100A"
#endif
Enable
Interrupts
Config
Tcpip = Int0 ,
Mac =
00.40.12.34.56.78
,
Ip =
192.168.0.8
,
Submask
=
255.255.255.0
,
Gateway
=
192.168.0.1
,
Localport
=
1000 ,
Tx =
$55 ,
Rx =
$55 ,
Twi = &H80
,
Clock =
400000
'dim
used variables
Dim
S As
String *
140
At &H100
,
Shtml
As
String *
15 ,
Sheader
As
String *
30
Dim
Buf(120) As Byte At &H100
Overlay ' this
is the same data as S but we can treat it as an array now
Dim
Tempw
As Word
Dim
I As Byte ,
Bcmd
As Byte ,
P1
As Byte ,
P2
As Byte ,
Size
As Word
Dim
Bcontent
As Byte
Dim
Bauth
As Byte ,
Ipcon
As Long ' for
optional authentication
'note
that this webserver demo uses just 1 connection. It can easy be changed to use
all 4 connections
'also
note that the connection is terminated by the webserver after the data has been
sent.
'this
is done so more clients can be served, it is not acording to the RFC
'Also
included is some simple authentiation. It works by determining the client IP
number
'When
it differs from the current connection, the user/pwd will be asked. It is
decoded with the base64dec() routine
'Usualy
we start with creating a connection. This is also tru for this demo.
'Because the socketstat()function will find out that the connection is closed,
it will take then
' Case Sock_closed part of the select case statement, and so will create
a new socket.
'After
that it will listen to the connection for a client.
I =
0
' we use just
1 connection with number 0
Do
Tempw
=
Socketstat(i
,
0) ' get
status
Select Case
Tempw
Case
Sock_established
#if
Debug
Print "sock_est" '
delete it when it sends to much data to the terminal
#endif
If
Getdstip(i) <>
Ipcon
Then ' the
current client is different then the number stored
Bauth
=
0
' reset
authentication bit
End If
Tempw
=
Socketstat(i
,
Sel_recv) ' get
received bytes
#if
Debug
Print
"receive buffer size : " ;
Tempw
#endif
If
Tempw >
0
Then ' if
there is something received
Bcmd
=
0
Do
Tempw
=
Tcpread(i
,
S) ' read
a line
If Left(s
,
3) = "GET" Then
Bcmd
=
1
' GET /index.htm
HTTP/1.1
Gosub
Page
Elseif Left(s
,
4) = "HEAD" Then
Bcmd
=
2
Gosub
Page
Elseif Left(s
,
4) = "POST" Then
Bcmd
=
3
Elseif Left(s
,
15) =
"Content-Length:" Then ' for
post
S
= Mid(s
,
16) :
Bcontent
= Val(s)
Elseif Left(s
,
20) =
"Authorization: Basic" Then ' user
and pwd specified
Print
S
S
= Mid(s
,
22)
'Authorization: Basic bWFyazptYXJr
Print "{" ;
S ; "}" ' this
is the user/pwd part the browser is sending
#if
Debug
Print
"Decoded user:pwd " ;
Base64dec(s)
#endif
If
Base64dec(s) = "mark:mark" Then 'pwd
ok
Bauth
=
1
' verified
Ipcon
=
Getdstip(i) '
store current ip number
End If
Else
#if
Debug
Print
S
' print data
the client browser sent
#endif
End If
Loop
Until
S = "" ' wait
until we get an empty line
#if
Authenticate
If
Bauth =
0
Then
Tempw
=
Tcpwrite(i
,
"HTTP/1.0 401 OK{013}{010}") ' ask
for user password
Tempw
=
Tcpwrite(i
,
"WWW-Authenticate: Basic realm={034}ServerID{034}{013}{010}")
Goto
Continue
Else
Tempw
=
Tcpwrite(i
,
"HTTP/1.0 200 OK{013}{010}")
End If
#else ' no
authentication used
Tempw
=
Tcpwrite(i
,
"HTTP/1.0 200 OK{013}{010}") 'send
ok
#endif
If
Bcmd =
3
Then
#if
Debug
Print "Posted
data"
#endif
Tempw
=
Tcpread(i
,
Buf(1) ,
Bcontent) ' read
data
#if
Debug
Bcontent
=
Bcontent
+
1
Buf(bcontent) =
0
' put string
terminator at end of data so we can handle it as a string
Print
S
#endif
Shtml
= "/redirect.htm" '
redirect to www.mcselec.com
End If
Gosub
Stuur
' GET or HEAD
or POST feedback so send it
Continue:
Print
"closing socket"
Closesocket
I
' close the
connection
Print "done"
End If
Case
Sock_close_wait
#if
Debug
Print "CLOSE_WAIT"
#endif
Closesocket
I
' we need to
close
Case
Sock_closed
#if
Debug
Print
"CLOSED"
#endif
I
=
Getsocket(0
,
Sock_stream
,
5000 ,
0) ' get
a new socket
Socketlisten
I
' listen
#if
Debug
Print
"Listening on socket : " ;
I
#endif
End
Select
Loop
End
'get
html page out of data
Page:
P1 =
Instr(s
, " ") ' find
first space
P1 =
P1 +
1
' 4
P2 =
Instr(p1
,
S , " ") ' find
second space
P2 =
P2 -
P1
Shtml
= Mid(s
,
P1 ,
P2) ' dont
use too long page names
Shtml
=
Lcase(shtml) ' make
lower case
#if
Debug
Print "HTML
page:" ;
Shtml
#endif
Return
'send
data
Stuur:
Dim
Woffset
As Word ,
Bcontenttype
As Byte ,
Wsize
As Word ,
Bgenerate
As Bit ,
Ihitcounter
As
Integer
Bgenerate
=
0
' by default
Select Case
Shtml
Case "/index.htm"
Bcontenttype
=
0 :
Bgenerate
=
1
Case "/redirect.htm"
Bcontenttype
=
0 :
Bgenerate
=
1
Case "/post.htm" :
Wsize =
277
Bcontenttype
=
0 :
Woffset
= 0
Case "/notfound.htm" :
Wsize =
123
Bcontenttype
=
0 :
Woffset
= 277
Case Else ' not
found
Bcontenttype
=
0 :
Woffset
= 277
:
Wsize =
123
End
Select
Select Case
Bcontenttype
Case
0: ' text
Tempw
=
Tcpwrite(i
,
"Content-Type: text/html{013}{010}")
Case
1: ' gif
End
Select
If
Bgenerate
=
0
Then '
data from eeprom
S
=
"Content-Length: " + Str(wsize) +
"{013}{010}"
Tempw
=
Tcpwritestr(i
,
S ,
255) ' add
additional CR and LF
Tempw
=
Tcpwrite(i
,
Eeprom ,
Woffset
,
Wsize) '
write data
Else ' we
generate the data
If
Shtml = "/index.htm" Then
S
=
"<html><head><title>Easy TCP/IP</title></head><body><p><b>MCS webserver test<br></b>Hits
: " + Str(ihitcounter) +
"</p><p> </p><p> </p></body></html>"
Incr
Ihitcounter
'increase
hitcounter
Else
S
=
"<html><head><title</title></head><body onload='window.location.href=" + Chr(34) +
"http://www.mcselec.com" + Chr(34) +
"'></body></html>"
End If
Wsize
= Len(s) ' size
of body
Sheader
=
"Content-Length: " + Str(wsize) +
"{013}{010}"
Tempw
=
Tcpwritestr(i
,
Sheader
, 255) ' add
additional CR and LF
Tempw
=
Tcpwrite(i
,
S ,
Wsize) ' send
body
End If
Return
|
