Jump to content

tcp crashes when trying to connect


Recommended Posts

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

Link to comment
Share on other sites

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!
Link to comment
Share on other sites

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

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...