OpenTCPstream FTP Server PROFTPD Problem
Archives Forums/BlitzPlus Bug Reports/OpenTCPstream FTP Server PROFTPD Problem
| ||
| After changing my webhost from a Windows IIS with Microsoft FTP Server to a Apache Server with PROFTPD FTP Server my BlitzPlus Code wont work. It hangs on the second OpenTCPStream Command in the code: way = OpenTCPStream("93.188.xxx.xxx",port)
tcp=OpenTCPStream( "93.188.xxx.xxx",21 )
If Not tcp AddTextAreaText daten, "Failed.":Return
AddTextAreaText daten,ReadLine$( tcp )+ Chr$(10)
Delay 1950
WriteLine tcp,"USER admin4"
AddTextAreaText daten,ReadLine$( tcp )+ Chr$(10)
Delay 1950
WriteLine tcp,"PASS xxxxxxxxx"
Linetext$=ReadLine$( tcp )
If Left$(linetext$,3) = "530" Then AddTextAreaText daten,"Command 530"+ Chr$(10):Return False
Delay 1950
AddTextAreaText daten,Linetext$+ " OK"+ Chr$(10)
WriteLine tcp,"PASV"
Repeat
pro$ = ReadLine(tcp)
AddTextAreaText daten, pro$ + Chr$(10)
;
Until Left$(pro$,3)="227"
mail$ = pro$
;----------------------------------------------------
; calculating the port
in = Instr(mail$,"(")+1
adr$ = Mid$(mail$,in,loc_of_xth(mail$,4,",")-in)
servip$ = Replace$(adr$,",",".")
AddTextAreaText daten,"Server IP: " + servip$ + Chr$(10)
beh$ = Right$(mail$,Len(mail$)-(loc_of_xth(mail$,4,",")))
faktor1 = Int(Left$(beh$,Instr(beh$,",")-1))
faktor2 = Int(Mid$(beh$,Instr(beh$,",")+1,Instr(beh$,")")-Instr(beh$,",")))
AddTextAreaText daten,faktor1 + Chr$(10)
AddTextAreaText daten,faktor2 + Chr$(10)
port = faktor1*256 + faktor2
AddTextAreaText daten,"port: "+port + Chr$(10)
;-------------------------------------------------
;Delay 1950
;way = OpenTCPStream("93.188.xxx.xxx",port)
WriteLine tcp,"SYST"
AddTextAreaText daten,ReadLine$( tcp )+ Chr$(10)
;Delay 1950
way = OpenTCPStream("93.188.xxx.xxx",port)
If Not way AddTextAreaText daten "Could´nt find the way....................." + Chr$(10) + Chr$(10)
with the Microsoft FTP Server everything works well, but now the way -Stream could´nt get, way is always "0" A standard FTP programm like Ipswitch´s WS_FTP works fine with this new server. I´ve logged the data and this is what I got: with WS_FTP FTP Response: 227 Entering Passive Mode (93,188,xxx,xxx,160,79). Request: TCP 41039 > 62300 [SYN, ACK] Seq=0 Ack=1 Win=5840 Len=0 MSS=1452 WS=7 Response: TCP 62300 > 41039 [ACK] Seq=1 Ack=1 Win=66792 Len=0 with BlitzPlus and the PROFTPD Server: FTP Response: 227 Entering Passive Mode (93,188,xxx,xxx,163,128). Request: TCP 61573 > 41856 [SYN] Seq=0 Win=8192 Len=0 MSS=1460 WS=2 Request: TCP 61571 > ftp [ACK] Seq=35 Ack=170 Win=66620 Len=0 Request: TCP 61573 > 41856 [SYN] Seq=0 Win=8192 Len=0 MSS=1460 WS=2 Request: TCP 61573 > 41856 [SYN] Seq=0 Win=8192 Len=0 MSS=1460 4 Requests but no answer! with Blitzbasic Programm and Microsoft FTP Server: the data port is automaticely named as: netview-aix FTP Response: 227 Entering Passive Mode (80,152,xx,xx,6,125) Request: TCP 61888 > netview-aix-1 [SYN] Seq=0 Win=8192 Len=0 MSS=1460 WS=2 Antwort: TCP netview-aix-1 > 61888 [SYN, ACK] Seq=0 Ack=1 Win=16384 Len=0 MSS=1452 WS=0 Request: TCP 61888 > netview-aix-1 [ACK] Seq=1 Ack=1 Win=66792 Len=0 got an answer and it works! I´ve checked it on Windows 7 and XP BlitzPlus 1.47 Any idea? |
| ||
| same behavior under BMax with ConnectSocket instead of CreateTCPStream. I used a local installed PureFTPd Manager FTP Server on my MacBook under OS-X to test it over LAN. But the same behavior as I attempt to connect the data connection with the second ConnectSocket with the calculated data port. The GUI hangs up and come back after 60-80 seconds with timeout from the server. |
| ||
| Might be interesting to try the connection with something like libcurl in BlitzMax... (just to see the difference a proper library makes of the connections). |
   |