connexion a un site =)

connexion a un site =) - Delphi/Pascal - Programmation

Marsh Posté le 05-05-2003 à 18:53:22    

ouaich je sais je suis nul j arrive a rien :D
j y suis arrivé en php mais alors en delphi quenini
 
voila mon pb
on entre ses info pseudo & pass clic sur un bouton
la il faut se connecter a un site , dont l adresse donne qq chose comme ca
www.lesite.com/server/arf?login=&# [...] word'
a ce moment le prog recupere les info données,
se reconnecte au site en metant cette fois ci les données dans l adresse
www.lesite.com/server/arf?lesdonnées
 
mon probleme c est que j sais pas quoi faire
j ai deja voulu essayer une methode de browser qui affiche que le txt d une page , donnée dans un exemple de mon bouquin  
j ai pas dans ma version de delphi (7 edition personnelle) le truc qu on me demande,
j ai cherché sur le net trouvé qq chose idem , j ai dl le code , il me dis qu il y a des composants qui n existe pas..  
 
j ai refais la meme chose avec un code trouvé sur delphiabout,
marche pas non plus
 
:yenaimarre:
vous les trouvez ou tt les composants de delphi

Reply

Marsh Posté le 05-05-2003 à 18:53:22   

Reply

Marsh Posté le 05-05-2003 à 20:14:51    

Tu dois afficher la page à l'utilisateur, ou bien juste la downloader / t'y connecter pour que le serveur ait les infos et que tu reçoives le contenu de la page dans une chaîne ?
Dans ce second cas, tu peux utiliser le TIdHTTP des composants Indy, ça sera plus simple.


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 05-05-2003 à 20:30:27    

antp a écrit :

Tu dois afficher la page à l'utilisateur, ou bien juste la downloader / t'y connecter pour que le serveur ait les infos et que tu reçoives le contenu de la page dans une chaîne ?
Dans ce second cas, tu peux utiliser le TIdHTTP des composants Indy, ça sera plus simple.


encore toi   :hello:  
tu doit en avoir marre de mes questions a deux francs six sioux  
 :jap:  :jap:  pour toutes tes aides  :jap:  
 
sinon oui c est le second cas je cherche juste a me connecter et a recuprer les infos dans une chaine  :)  
je vais regarder pour TIdHTTP  :)

Reply

Marsh Posté le 05-05-2003 à 20:48:10    

http://www.delphifr.com/article.aspx?ID=2345
on est obliger de dl la page?
car c est pas une page , enfin pas proprement dis , y a pas de .php .htm ou autre :D

Reply

Marsh Posté le 05-05-2003 à 20:55:21    

bhen si la page renvoie rien tu recevras une chaîne vide, mais ça tu t'en fous, t'es même pas obligé de stocker ce qu'il te renvoie hein ;)
 
s := idhttp1.Get(Format('http://www.lesite.com/server/arf?login=%s&password=%s', [login, password]));  
 
-> dans s t'as ce qui a été éventuellement renvoyé par la page


Message édité par antp le 05-05-2003 à 20:56:37

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 05-05-2003 à 22:11:39    

cha marche ^^
 
pitite question (encore vi je sais  :whistle: )
y  pas un moyen rapide de remettre tout les parametres par defaut?
car je change les valeurs de touts mes tlabel , timage,
mais je voudrais juste changer les parametres comme si on relancer le soft enfin a par la page avec le nom et le pass :)

Reply

Marsh Posté le 05-05-2003 à 22:15:45    

Si ce n'est pas ta Form principale, il suffit que tu crées ta Form à la demande au lieu de le faire au démarrage du programme, et que tu la détruise à la fermeture.
Pour la créer avant le Form2.ShowModal tu fais:
Application.CreateForm(TForm2, Form2);
Et dans le OnClose tu mets:
Action := caFree;
Et n'oublie pas de retirer ta Form2 de la liste des forms crées automatiquement, dans les options du projet.
L'avantage de cette technique est donc que ta form est réinitialisée à chaque utilisation, mais aussi que tu ne crées pas tout au démarrage, ce qui permet de gagner du temps et de la mémoire dans les gros programmes.
Bon si par contre la question concerne la Form principale, là je sais pas :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 05-05-2003 à 22:23:29    

ouaip c est sur la form principale :-/
 
par contre quand le serveur est lent (comme maintenant lol)
le log pour se connecter freeze carrement et on sais pas ce qui fait stop chiant lol :-/

Reply

Marsh Posté le 06-05-2003 à 09:46:40    

faut mettre le download dans un thread alors, mais c'est déjà plus compliqué :D


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 06-05-2003 à 16:05:59    

pas moyen de lui dire si la connexion avec le serveur est trop lente, de s arreter ?  

Reply

Marsh Posté le 06-05-2003 à 16:05:59   

Reply

Marsh Posté le 06-05-2003 à 16:17:29    

y a un timeout quelque part dans les propriétés


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
Reply

Marsh Posté le 06-05-2003 à 16:41:09    

oki j vais regarder cha
 
sinon j ai un aut pb :d
 
quand on utilise la fonction pos il est dis dans l aide que si la position est pas trouvé la valeur retrounée est 0
 
alors j ai fait ceci
 
//a l interieur d une boucle qui defini i de 0 a 13 et qui fonctionne pour d autres fonction
 
imaximport:=0; // nombre total de route commerciales
s := InfoTrades.Text ;
p := Pos(Format('&export%d.0', [i]), s);  //i=differance planetes
While (p>0) do
begin
imaximport:=imaximport+1;
p := Pos(Format('&export%d.%d', [i, imaximport]), s);
// = nombre total de route commerciales
lecompo := FindComponent (Format('TradesImportscapa%d', [i]));
       with lecompo as Tlabel do
       Caption:=IntToStr(imaximport);
           end;
 
il me trouve des valeurs allucinante et si je change le truc a trouvé par qq chose qu il ne doit pas y avoir il me trouve toujours 1 :(
 
---
edit:
j ai changé ce qui est en bleu deja ca va mieux la boucle fonctionne correctement :d  
 
j ai pu de pb je crois :o


Message édité par de@thm@ster of hell le 06-05-2003 à 16:44:44
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed