Télécharger/Lire un fichier d'un serveur Web

**jeffk_** · 20/12/2011, 15h30

Bonjour,

Je suis à la recherche d'une unité ou fonction qui me permettrait de télécharger un fichier depuis un serveur web distant.

Par exemple, au lancement de l'application, celle ci télécharge checking.ini qui est stocké sur un serveur web (par exemple http://monsite.free.fr/checking.ini).

Ce fichier est téléchargé dans le même dossier que mon application, après peu d'importance de vous le dire, mais bon je lis ce fichier pour afficher X ou Y chose dans mon application, puis le supprime. Ou même de le lire comme un .ini normal grâce à INIFile sans le télécharger, mais là je pense que je rêve

Cela me permet de modifier et d'afficher certaines données dans l'application en dynamique, sans avoir à faire tourner un serveur MySQL. (La plupart des hébergeurs n'acceptant pas une connexion arrivante externe).

Connaissez-vous ce genre d'unité/fonction/composant qui permette cela ?

Merci,

Jean-François.

**mick605** · 21/12/2011, 17h42

Salut

Tu peux utiliser la librairie de composants Indy10. Je ne sais pas si elle fonctionne sous Linux, mais elle te permettra, a l'aide du composant IdHTTP de récuperer le contenu de ton document, et tu pourra en faire ce que tu veux (l'enregistrer, l'utiliser avec Inifile, etc.).

Quand tu dis sans le télécharger, cela n'a pas vraiment de sens. Pour lire un fichier, tu es obligé de le télécharger. Par contre, tu n'est pas obligé de l'enregistrer sur ton ordinateur. Tu peux l'analyser en mémoire, et le supprimer quand tu as fini.

Bonne chance

Mick605

**microb** · 22/12/2011, 10h41

Bonjour,
Pour faire ce genre de choses ,sur des pages free,j'utilise les composants iNet.
Cela fonctionne sur Windows,et sur Linux(je suis sous Ubuntu).
Quand tu télécharge les composants,il y a des exemples.
cordialement

**jeffk_** · 22/12/2011, 11h38

Bonjour

En effet hier j'ai penché sur Indy 10.

Quel...Bordel...

L'installation est plus que bancale, erreur de compilation du packet, erreur de reconstruction de Lazarus à cause de Indy 10, obligé de modifier les chemins et option du compilateur, puis les remettre par défaut, il ajoute 15 Tab dans IDE.

Ca marche quand même grâce à idHTTP, + une unit filedownload développé appart qu'il faut chercher sur le net... Après 3h à essayer de l'installer correctement (sans rire) ça pseudo-marche.

De temps en temps le composant ne fait plus partis de l'IDE, obligé de tout recompilé, les unités ne veulent plus compilé, obligé de fermer/ré-ouvrir, idHTTP deviens introuvable.

Bref.... C'est une misère ce truc...

Je vais regarder du coté de iNet pour voir si c'est mieux, pour le moment ça marche avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
uses filedownload, IdHTTP,
 
procedure Tfrm_main.lireALouverture();
var
 
  Filedownload1 : TFileDownload;
 
begin
 
 
  FileDownload1 := TFileDownload.Create(Self);
  FileDownload1.FileFrom := 'http://127.0.0.1/www/event.ini';
  FileDownload1.FileTo := 'event.ini';
  FileDownload1.Run;        
 
end;

Invité · 22/12/2011, 12h11

Bonjour,

Peut-être un peu tard, mais j'ai mis à disposition un patch d'installation d'indy10 sur ce forum. Il fonctionne aussi bien pour Win que pour Nux.

Pour utiliser Indy dans mes projets, dans leurs options de compilation, j'ajoutais (à adapter évidemment) :

G:\lazarus\0.9.31-30276-fpc-2.4.3-20110413\components\indy-10.2.0.3\;G:\lazarus\0.9.31-30276-fpc-2.4.3-20110413\components\indy-10.2.0.3\fpc\

dans Autres fichiers unité (-Fu) et Librairies (-FI).

Cordialement. Gilles

**jeffk_** · 22/12/2011, 15h15

Bon finalement j'ai laissé tomber Indy 10, trop de problèmes de compilation/construction...et ce "n'importe quand", des fois l'installation ce passe bien, mais d'une compilation à une autre, il ne trouve plus les classes, les unités, etc...

J'ai essayé Lnet, installation du package OK, mais 40 lignes pour DL un fichier.

Finalement, coup de coeur pour Synapse (version 39), pas d'installation de package à faire, juste copier les .pas qu'on à besoin dans le projet.

ça donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
uses httpsend;  
 
procedure Tfrm_main.lireALouverture();
var   
  fs: TFileStream;   
 
begin
 fs := TFileStream.Create('event.ini', fmCreate);
 HttpGetBinary('http://127.0.0.1/www/event.ini', fs);
 fs.Free;
end;