Aiakonai Posted May 19, 2008 Share Posted May 19, 2008 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 More sharing options...
rambo3889 Posted May 19, 2008 Share Posted May 19, 2008 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! youre the best in town Fight! Link to comment Share on other sites More sharing options...
Aiakonai Posted May 19, 2008 Author Share Posted May 19, 2008 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 More sharing options...
Kip Posted May 19, 2008 Share Posted May 19, 2008 basicly every port is ok, but you might want to choose a port which isn't listed here: http://www.iana.org/assignments/port-numbers MailSpons: Fake SMTP server for safe email testing Dutch postcode & address API. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now