Comunicating with a Telnet Server

[lu_ozzie]

My question is, can I comunicate with a telnet server? I have a PPC application and i need to write and read string of text with a telnet server...
I'm trying to use Network.dll and BinaryStream.dll, but I don't have enough info and I don't know how to deal with these classes...
Any suggestion or example will be very appreciate!
Thanks!

[Erel]

Do you know the server's IP?
Create a Client object and connect to this IP (use port 23):
Don't forget to add a reference to the Network library and add a Client object named client.

<div align="left"><font face="Courier New"><font color="#0000ff">Sub </font></font><font face="Courier New"><font color="#010101">App_Start</font></font>
<font face="Courier New"><font color="#010101">      client.New1</font></font>
<font face="Courier New"><font color="#010101">      client.Connect("xxx.xxx.xxx.xxx",23) </font></font>
<font face="Courier New"><font color="#0000ff">msgbox</font></font><font face="Courier New"><font color="#010101">("Client connected.")</font></font>
<font face="Courier New"><font color="#010101">      client.Close</font></font></div><font face="Courier New"><font color="#0000ff">End Sub
</font></font>

[lu_ozzie]

Ok, that's what i did... and it connects properly...
My biggest problem was the dialogue with the tother computer after connecting..
That's what i did:

Sub Connect(IP)
    'ErrorLabel(errConnect)
    WaitCursor(true)
    TextBox2.Text = "Connecting to " & IP
    Dim client
    client.New1
    client.Connect(IP,23)
    stream.New1(client.GetStream,true)
    TextBox2.Text = "Connection established."
    Return
End Sub

I'm trying to read something from the server...I need to write sentences and read replies... Thanks for the quick answer!

[Erel]

You should remove the Dim client line.
Did you add a BinaryFile object named stream?
See this example:
You should add a Bitwise object named bit.

Sub Globals
    Dim buffer(0) As byte
End Sub

Sub App_Start
    bit.New1
    AddTimer("Timer1")
    Timer1.Interval = 500
End Sub

Sub Connect(IP)
    'ErrorLabel(errConnect)
    WaitCursor(true)
    TextBox2.Text = "Connecting to " & IP
    client.New1
    client.Connect(IP,23)
    stream.New1(client.GetStream,true)
    TextBox2.Text = "Connection established."
    timer1.Enabled = true
    WaitCursor(false)
End Sub

Sub Timer1_Tick
    If client.DataAvailable Then
        Dim buffer(4096) As byte
        count = stream.ReadBytes(buffer(),4096)
        TextBox2.Text = bit.BytesToString(buffer(),0,count)
    End If
End Sub

[TWELVE]

Hello Erel,

i don't wanna highjack this thread, but i've got a question regardings this.

That piece never works for me:

Sub Timer1_Tick
   <font color="Red"> If client.DataAvailable Then</font>        Dim buffer(4096) As byte
        count = stream.ReadBytes(buffer(),4096)
        TextBox2.Text = bit.BytesToString(buffer(),0,count)
    End If
End Sub

The line

If client.DataAvailable Then
..
end if

gets never triggered and therefore i never catch the server's response.If i remove this check, i can read the server's response but run risk to get stuck because there's maybe no answer from the server pending anymore .


cheers

TWELVE

[Erel]

It's strange. DataAvailable should return the correct value.
See the ChitChat example which uses it.

[agraham]

I can confirm that DataAvailable should work. I've used it in two apps so far, on the device and desktop. If the Dim Buffer... line really is there maybe it's upsetting things even if it does get through the compiler. Dim should only go in Globals.

[Erel]

Small correction, it is fine (and many times necessary) to use the Dim keyword to redimension an array which was declared in Sub Globals.

[agraham]

Sorry. You are right Erel, as usual. I had overlooked that possibility

[TWELVE]

It's strange. DataAvailable should return the correct value.

I'll have a look at it again...

Cheers

TWELVE