Winsock Control

Hi,

I'm using Visual Basic 5 to create a simple TCP/IP client.  I have add a Winsock control to the main form of the application and can make a telnet connect to a remote host.

What i'm trying to achieve is when a menu option is selected a a sting of characters will be transmitted to the host and a response waited for.  Depending on the menu option different characters are transmitted. The response will be output in a dialog box.

i have tried the following (Query is the menu option)

Private Sub Query_Click()
dim received as String

Winsock1.SendData ">>P001"
received = ""
while received = ""
     Winsock1.PeekData received
wend
` we have some data
` so lets display it
End Sub

What seems to happen is that Winsock1.SendData completes OK. But data is not transmitted to the remote host. As the remote host does not send anything back till it receives an input. we get into a loop.  I have noticed that Winsock1.SendData only physically transmits the data when Query_Click() functions exits.  If  this is how it works how can I have a function which is called by a click of a menu option which sends data waits for a response displays the result then sends some more etc etc.

Robert
Robert888Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

bitzCommented:
I need to know one thing.  What Winsock Control are you using?  (Did you download the Internet Control Pack from MicroSoft?).  If  you say the filename, I'll know what one your using.  Thanks,
                        -bitz(program@mindless.com)
0
lmeijerCommented:
Robert,

Place a doevents statement! Otherwise you don't let events
happen to fill the data.

while received = "" 
  Winsock1.PeekData received
  DoEvents
wend
 
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Programming Languages-Other

From novice to tech pro — start learning today.