O exemplo neste artigo descreve como o Delphi analisa endereços FTP. Compartilhe com todos para sua referência. O método de implementação específico é o seguinte:
procedimento TForm1.FTPAnalysis(S:string;var UserName,Password,IP,FileName:String;var DirList:TStringList);var i,j:integer; strAddr,strDirFile:string //Informações de autorização começam UserName:= ' anônimo'; Senha:= '[email protected]'; Copy(S,7,length(S)-6); //Obter a parte após ftp:// //O formato S deve ser semelhante a ftp://rec:[email protected]/20050418/abcdef.vox, //ou ftp://192.168.76.11/...... i := Pos('@',S); então comece strAuthorization := Copy(S,7,i-7); //Pegue apenas o campo de senha da conta j:=Pos(':',strAuthorization); - 1);Senha := Copiar(strAuthorization,j+1,length(strAuthorization)-j); j:=Pos('/',strAddr); if(j>0) then IP := Copy(strAddr,i+1,ji-1);//Obtém o endereço IP strDirFile := Copy(strAddr,j+ 1 ,length(strAddr)-j); DirList.Delimiter := '/'; DirList[DirList.count-1];//A última parte é o nome do arquivo DirList.Delete(DirList.Count-1);end;
Espero que este artigo seja útil para a programação Delphi de todos.