begin process at 2012 02 09 07:35:39
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Réseau & Internet

 > RÉCUPPÉRER LE NOM DU FICHIER D'UNE URL

RÉCUPPÉRER LE NOM DU FICHIER D'UNE URL


 Information sur la source

 Description

Ce code permet de récuppérer le fichier qui est spécifié dans une URL.

Par exemple avec l'url 'http://www.mp3guest.com/default.asp' , la fonction retournera 'index.asp'

Source

  • function Right(str: string; numchars:integer):string;
  • begin
  • result := copy(str, (length(str)-numchars)+1, numchars);
  • end;
  • function Left(str: string; numchars:integer):string;
  • begin
  • result := copy(str, 0, numchars);
  • end;
  • Function GetFilefromURL (URL:string):string;
  • var
  • sl : string;
  • st : string;
  • i : integer;
  • begin
  • i := 0 ;
  • while not ((st) = ('/')) do
  • begin
  • i := i + 1 ;
  • sl := left(URL , length(URL)- i ) ;
  • st := (right(sl,1));
  • end;
  • GetFilefromURL := right(URL,i);
  • end;
    function Right(str: string; numchars:integer):string;
    begin
    result := copy(str, (length(str)-numchars)+1, numchars);
    end;
    function Left(str: string; numchars:integer):string;
    begin
    result := copy(str, 0, numchars);
    end;

Function GetFilefromURL (URL:string):string;
var
sl : string;
st : string;
i : integer;
begin

 i := 0     ;
while not ((st) = ('/')) do
 begin
        i := i + 1                   ;
        sl := left(URL  , length(URL)- i      )  ;
        st := (right(sl,1));
 end;
   GetFilefromURL := right(URL,i);
end; 

 Conclusion

Txt := GetFilefromURL ('Http://www.mp3guest.com/default.asp')

Txt vaut alors default.asp'


 Sources du même auteur

FAIRE UN SPLIT EN DELPHI
FAIRE UN LIEN VERS UNE URL AVEC SHELLEXECUTE
RETROUVER UNE ANCIENNE SOURCE
UN REPLACE, COMME EN VB

 Sources de la même categorie

Source avec Zip Source avec une capture PETITE APPLICATION DE TCHAT DANS UN RÉSEAU LOCALE par benimen
Source avec Zip Source avec une capture LOG DE PING POUR SURVEILLER LA QUALITÉ D'UNE CONNECTION par PhilLU
Source avec Zip GET IP AVEC INDY par Gerard
Source avec Zip GCS-FACEBOOK par pinkfloydhighopes
Source avec Zip Source avec une capture PINGNOW ADRESSE IP par mekhmoukhs

Commentaires et avis

Commentaire de Filipe35 le 23/09/2008 06:25:54

Pour ceux qui voudrait utiliser cette source, attention (!) celle-ci effectue une boucle infinie avec une chaine vide passée en paramêtre ... à vous de vérifier avant d'appeler la fonction.

Cela dit, c'est une bonne source ;-)

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,572 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales