winsock

[ongtw]

dear pple

i'm facing a problem using winsock

in my program i have two winsock control. one to send and receieve data and the other to send and receieve messages. these messages act to start or stop some controls on the other app.

the problem is this. i entered code like this

winsock.SendData "START_SEND_FILE"
        file_name = CommonDialog1.FileName
        SendFile file_name, Wins
        first_time = True
        winsock.SendData "FINISH_SENDING_FILE"

the problem is at the receiving side, i get both message appended to each other at the same time. since the sendfile function is long, isn't it supposed to finish running the sendfile funtion before sending the second message?

please help

[abdul]

Try adding "DoEvents" like this:

winsock.SendData "START_SEND_FILE"
        file_name = CommonDialog1.FileName
        SendFile file_name, Wins
        first_time = True
        DoEvents
        winsock.SendData "FINISH_SENDING_FILE"

or you can send the last string when you recieve a "SendComplete"(or something like that) event.

[ongtw]

thanks!

it works..

what's the use of a doevents here???
how does it help in seperating both messages?

does this mean that everytime i need to senddata more than once i need to insert doevents in between?

[Stiletto]

You can use DoEvents, which will make a lil delay between the codes, or you can make the reciver side to msg-back the sender that he got the file and send the last string

[Stiletto]

Originally posted by ongtw
thanks!

it works..

what's the use of a doevents here???
how does it help in seperating both messages?

does this mean that everytime i need to senddata more than once i need to insert doevents in between?

DoEvents will couse a delay between the two codes, it will run the first code, wait a lil and then will run the second code.
If you want to increase the delay, you can use

DoEvents: DoEvents: DoEvents

[ongtw]

the problem is that i need to wait till the SENDFILE function finishes before it sends the second message. will adding doevents ensure this?

[abdul]

I actually have no clue why DoEvent works for nothing sending all the strings at the same time but it just works. As I know, main purpose of DoEvents is to let Window do other stuff while it's performing the code before DoEvents.

[ongtw]

so does that mean it will ensure that my function will finish before sending the second message? if yes then good news to me

[abdul]

I hope so but it depends on the internal structure of the TCP/IP stack and how winsock is internally configured. I think it will put all the data on the TCP/IP stack first and it'll send it either as a stream or message by message.

[ongtw]

so does that mean it will ensure that my function will finish before sending the second message? if yes then good news to me

[ongtw]

looks like doevents don't help...

[Stiletto]

You can check it like this:

Text1.Text = "Testing..."
DoEvents
MsgBox "First Delay"
Text1.Text = "Testing Delay"
DoEvents
MsgBox "Second Delay"

Run this, if you got the MsgBox popup, and you see Text1.Text with the string, that means that DoEvents will wait until the process is done, and then will continue to the second code

[ongtw]

it only delays the program.

the thing i need is to wait until the sendfile finishes before it sends out the message

one more thing.. if i added a function in a module, when that funtion is called, does the calling form wait until the function finishes before moving on?

[abdul]

Originally posted by ongtw
looks like doevents don't help...

Have you tested it? I hoped it would work but if it doesn't you can just do something like:

Dim sendingstuff As String
Private Sub mysub()
        file_name = CommonDialog1.FileName
        SendFile file_name, Wins
        sendingstuff = "SendingAFile" 'tell what you have just sent
        first_time = True
End Sub
 
Private Sub Winsock1_SendComplete()
'if we were sending the above file then now it's done sending
If sendingstuff = "SendingAFile" Then
        Winsock.SendData "FINISH_SENDING_FILE"
End If
End Sub

[abdul]

Originally posted by ongtw
it only delays the program.

the thing i need is to wait until the sendfile finishes before it sends out the message

one more thing.. if i added a function in a module, when that funtion is called, does the calling form wait until the function finishes before moving on?

Yes, but you can make it execute more than one functions, subs, or whatever by putting them in their own threads. You will have to do multithreading for that which vb doesn't completely support.

[ongtw]

winsock1_sendcompelte will only fire once everything is sent out?

[abdul]

Yes, it'll only be fired when whatever you send with ".SendData" is completely sent to the remote computer.

[ongtw]

i have another quetion.

if this is the case, since i'm breaking the file up into chunks, so i will need to senddata quite a lot of times if the file is big. so by adding the function i think it will not work right?

cos the winsock1_sendcompelte() will fire everytime senddata finish executing. and in my position, i want it to fire only after i finish sending all packets

[abdul]

Yes, it will be fired after every chunk of file is sent. You can just have another variable that specifies how much size of data is sent. You increase the value by a certain size of your file's chunk and then you only send your second command when the total size of the data already sent is same as your total file size.

[ongtw]

thanks... i did soemthing like that and it works perfectly fine..