Jump to content

Recommended Posts

Posted

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

Posted

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!
Posted

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

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
  • Recently Browsing   0 members

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