connexion a un site =) - Delphi/Pascal - Programmation
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.
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 ? |
encore toi
tu doit en avoir marre de mes questions a deux francs six sioux
pour toutes tes aides
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
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
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
Marsh Posté le 05-05-2003 à 22:11:39
cha marche ^^
pitite question (encore vi je sais )
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
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
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 :-/
Marsh Posté le 06-05-2003 à 09:46:40
faut mettre le download dans un thread alors, mais c'est déjà plus compliqué
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 ?
Marsh Posté le 06-05-2003 à 16:17:29
y a un timeout quelque part dans les propriétés
Marsh Posté le 06-05-2003 à 16:41:09
oki j vais regarder cha
sinon j ai un aut pb
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
j ai pu de pb je crois
Marsh Posté le 05-05-2003 à 18:53:22
ouaich je sais je suis nul j arrive a rien
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
vous les trouvez ou tt les composants de delphi