TÉLÉCHARGEMENT DE MISES À JOUR AVEC INDY
Matt 261
Messages postés
1173
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
10 septembre 2011
-
12 juil. 2006 à 12:17
Matt 261 Messages postés 1173 Date d'inscription mercredi 2 novembre 2005 Statut Membre Dernière intervention 10 septembre 2011 - 3 déc. 2006 à 14:11
Matt 261 Messages postés 1173 Date d'inscription mercredi 2 novembre 2005 Statut Membre Dernière intervention 10 septembre 2011 - 3 déc. 2006 à 14:11
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/38530-telechargement-de-mises-a-jour-avec-indy
https://codes-sources.commentcamarche.net/source/38530-telechargement-de-mises-a-jour-avec-indy
3 déc. 2006 à 14:11
Merci pour ton astuce.
@+
Matt
2 déc. 2006 à 20:19
Bon vis à vis pour connaitre la taille de la barre des tâches moi je fais comme ceci :
Form1.Top := GetSystemMetrics(SM_CYFULLSCREEN) - Height + 20;
Form1.Left := GetSystemMetrics(SM_CXSCREEN) - Width;
Le (+20) ça sert à toucher pile poil la barre des tâches ensuite on est libre de faire comme on veut :)
@+ !
25 juil. 2006 à 13:13
25 juil. 2006 à 11:21
25 juil. 2006 à 11:09
25 juil. 2006 à 09:59
25 juil. 2006 à 09:57
Cela n'enlève rien à l'intérêt du source ! ^^
D'ailleur, je l'ai ré-implémenté en partie dans une de mes appli... donc Merci !
25 juil. 2006 à 09:51
Je ne vais pas tarder à poster la mise à jour, il y a encore quelques petits réglages (et après une version sans compos).
@+
Matt
24 juil. 2006 à 10:11
seul bémol pour moi la fonction : Detection_Connexion.
Si tu es derrière un rooteur ADSL, il te renvoit que tu es connecté même si ton routeur est "disconnect". Il renvoit "connecté" car le lien LAN entre ta machine et le rooteur est bon mais ce n'est pas pour autant que tu as une connexion internet...
perso derrière cette fonction moi je fais 1 ping de vérif (1 sur google.fr et s'il marche pas 1 sur yahoo.fr) normalement y'a forcément un des deux qui marche et qui te garanti ta connexion internet...
19 juil. 2006 à 09:45
19 juil. 2006 à 09:18
Form1.Top:=(Screen.DesktopHeight-Form1.Height) - 30;
Mais moi ma Barre des tâches utilise 2 lignes, donc j'aimerais savori s'il n'éxistait pas un moyen pour connaitre la taille de la Barre des tâches ?
19 juil. 2006 à 09:16
Cela pourra servir pourra servir pour mes prochaines applications, merci à toi, qui plus est le design est agréable.
Merci beaucoup
13 juil. 2006 à 17:25
"Je vais rajouter une messageBox : "Une mise à jour est disponible, voulez-vous la télécharger + taille du soft"."
là c'est parfait ;) j'ai mis 9/10 car c'est du bon boulot
13 juil. 2006 à 15:14
13 juil. 2006 à 12:22
13 juil. 2006 à 12:12
13 juil. 2006 à 11:21
13 juil. 2006 à 09:37
@ Shining : c'est grace au lien que tu donnes juste au dessus que j'ai commencé la programmation Internet.
Je vais rajouter une messageBox : "Une mise à jour est disponible, voulez-vous la télécharger + taille du soft".
@ John : Il est vrai que la BdR devient de plus en plus lourde à cause des désinstallateurs qui virent mal les valeurs mais la comme je me sers des valeurs enregistrés pour mon écran de veille qui sont dans la BdR... Mais après, en modifiant un tout petit peu le code, vous pouvez utiliser un INI.
Encore merci pour vos commentaires :) Je vais faire une MaJ avec tout ce que vous m'avez dit ;-)
@+
Matt
13 juil. 2006 à 01:22
Le design est sympas.
En ce qui concerne Indy : evidemment dans les uses tu as une ribambelle d'unités. qu'indy incruste Du reste, je me demande si elles sont toutes utiles.
La technique proposée par Elguevel est valable. Maintenant c'est un choix : s'allourdir de quelques octets pour un code simple ou se casser la tete pour gagner quelques octets. Sinon une technique sans utiliser de composants, consiste à faire appel au Shell via Delphi ( valable aussi pour les mails).
Je te mets 9/10 : c'est bien coder et je trouve que c'est sympas de proposer une méthode pour réaliser une mise à jour d'un soft. Je te félicite
@+
12 juil. 2006 à 20:11
12 juil. 2006 à 19:57
http://www.swissdelphicenter.ch/torry/showcode.php?id=889,
mais là ton updateur ne permet pas à l'utilisateur de choisir se qu'il veut télécharger c'est un peu gênant, car imagine que tu as une mise à jour de 25Mo et qu'il est en modem classique 56k.., et le pire il est impossible d'annuler le téléchargement mdr ^^ tu ne serais pas de la famille de microsoft par hazard ?
12 juil. 2006 à 18:06
Sinon, j'ai une question plus généraliste : pourquoi tu utilises la BDR ?
On sait tous que cette BDR s'encrasse au fil du temps, surtout quand les devs l'utilisent mal (ce qui est très souvent le cas), des clés sont crées et les désinstalleurs font très mal leur travail. Résultats on se retrouve avec des clés orphelines qui poluent le système.
Alors qu'avec un simple fichier de config dans le dossier d'installation de l'executable serait tellement plus simple : tu effaces le dossier (plus besoin du programme) = tu effaces tout ce qui avaient rapport à l'executable. Je trouve ça nettement plus propre et simple comme méthode ...
C'est pas vraiment dirigé contre ton code en particulier, c'est une constatation générale :).
Pour le reste ton code me plait bien, je te mets 8/10 ;)
12 juil. 2006 à 15:59
Pour l'aspect graphique : content que ça te plaise :).
12 juil. 2006 à 14:33
Pour ce qui est de "WININET" j'avais fait plusieurs sources à ce sujet ; çà te permet via l'API windows et en quelques fonctions d'avoir accès à un serveur FTP puis downloader ou uploader ce que tu veux dessus.C'est quand meme plus leger que les X composants Indy compilé avec l'appli.
PS : Sinon graphiquement çà l'air très évolué, bravo.
Aller continue comme çà, et bonne mise à jour ... ;-)
12 juil. 2006 à 14:24
Je vais revoir le code. Encore Merci ;-)
12 juil. 2006 à 12:51
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP, OleCtrls, SHDocVw, XPMan, ComCtrls, Shellapi,
IdIntercept, IdLogBase, IdLogStream, DateUtils, IdAntiFreezeBase,
IdAntiFreeze, jpeg, ExtCtrls, Registry, Inifiles;
Je trouve que çà fait bcp, je pense que l'on peux améliorer :-)
12 juil. 2006 à 12:45
Par contre quelques améliorations :
- Tu peux déclarer ta fonction externe en 1 seule ligne de cette façon :
function InternetGetConnectedState(lpdwFlags: LPDWORD;dwReserved: DWORD): BOOL; stdcall; external 'wininet.dll' name 'InternetGetConnectedState';
- Tu fait appel à une fonction de l'API windows "InternetGetConnectedState" de la librairie "wininet.dll". Dans ce cas j'aurai programmé l'application avec cette librairie, celà aurai pu t'eviter l'utilisation de Indy (mais çà c'est juste si tu veux eviter d'utiliser des composants).
- Et je ne voit pas de méthode "Free" correspondant à tes différentes instanciations de classes ( "Fil:=TMemoryStream.Create", "Ini := Tinifile.Create", et d'autres ... )
- "Form1.Label1.Caption:=..." => tu est dans ton objet Form1 donc tu peux n'ecrire que "Label1.Caption=..." (tu as fait çà sur d'autres lignes)
- Si tu veux tu peux évité d'associer une variable objet à une instanciation.
Tu fais :
Registre := TRegistry.Create;
With Registre Do
Try
...
Mais tu peux faire directement :
With TRegistry.Create Do
Begin
Try
...
Finally
Free;
End;
End;
Voila grossièrement ce que je viens de voir au niveau code, sinon j'ai pas Indy sur ma version de delphi je peux donc pas l'executer.
@+, Bon Code ;-)
12 juil. 2006 à 12:17