Jump to content
Sign in to follow this  
Aiakonai

tcp crashes when trying to connect

Recommended Posts

Aiakonai

When attempting to make a basic connection with tcp i received the following error

Line -1:

Error: "long_ptr","int_ptr and "short_port" DLLCall() types have been deprecated. Use "long*","int*" and "short*"

instead.

... I have no idea what causes this

the code is straight from the help files TCPRecv and TCPSend with only a modification on the send (I put in the correct IP address)... the sender in this case was a win2k computer and the receiver was a windows xp machine .. I don't know if that is part of the problem or not.

Any help is appreciated :)


hmm... I wonder which key is the any key :O

Share this post


Link to post
Share on other sites
rambo3889

it might be the dllcall in the _SocketToIP function which is in that code

here is an modded version i found in one of my scrpt :

Func SocketToIP($zSocket)
    Local $zSockaddr = DLLStructCreate("short;ushort;uint;char[8]")
    Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$zSocket, "ptr",DLLStructGetPtr($zSockaddr),"int*",DLLStructGetSize($zSockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($zSockaddr,3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf
    $zSockaddr = 0
    Return $aRet
EndFunc

My Scripts:Radioblog Club Music DownloaderOther stuff:Fun movieIm serious read the help file it helps :PFight 'Till you drop. Never stop, You Cant give up. Til you reach the top Fight! youÂ’re the best in town Fight!

Share this post


Link to post
Share on other sites
Aiakonai

it might be the dllcall in the _SocketToIP function which is in that code

here is an modded version i found in one of my scrpt :

Func SocketToIP($zSocket)
    Local $zSockaddr = DLLStructCreate("short;ushort;uint;char[8]")
    Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$zSocket, "ptr",DLLStructGetPtr($zSockaddr),"int*",DLLStructGetSize($zSockaddr))
    If Not @error And $aRet[0] = 0 Then
        $aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($zSockaddr,3))
        If Not @error Then $aRet = $aRet[0]
    Else
        $aRet = 0
    EndIf
    $zSockaddr = 0
    Return $aRet
EndFunc
this seems to have cleared up the receiving end side problem but the sending computer popped up with a different error

TCPConnect failed with WSA error: 10060 ... sry nm it works fine ... It was the port number that I had changed ...

But that does bring up another ?

... how can I find a valid port number outside of the one listed in the help file?

Thank you so much for that info :)


hmm... I wonder which key is the any key :O

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.