Ftp command LIST
Blitz3D Forums/Blitz3D Beginners Area/Ftp command LIST
| ||
How does it work, do i need to set up something before calling it? here's my code: Graphics 800,600,16,2 SetBuffer BackBuffer() stream=OpenTCPStream("ftp.myftp.com",21) WriteLine stream,"PASV" Print While Not Eof(stream) k=GetKey() If k>27 And k<127 command$=command+Chr(k) ElseIf k=8 And Len(command)>0 command=Left$(command,Len(command)-1) ElseIf k=13 WriteLine stream,command command="" EndIf Color 0,0,0 Rect 0,0,800,13 Color 0,255,0 Text 0,0,command Color 255,255,255 If ReadAvail(stream)<>0 l$= ReadLine$(stream) Print l exheader=header header=Left(l,3) If header<>exheader Select header Case 220 WriteLine stream,"USER myname" Case 331 WriteLine stream,"PASS mypassword" Case 230 WriteLine stream,"TYPE I" Case 530 End Select EndIf EndIf If KeyHit(1) Then Goto quit Flip Wend .quit CloseTCPStream stream |
| ||
Select header Case 220 WriteLine stream,"USER myname" Case 331 WriteLine stream,"PASS mypassword" Case 230 WriteLine stream,"TYPE I" Case 530 End Select are you sure this works? Maybe try a simple If Then in stead, to make sure you know. can't explain, it's just something in my memory that says "Select is tricky, sometimes, for some reason" |
| ||
I ve found, i must send PASV and connect to the new stream But Select works good. |