TÉLÉCHARGEMENT DE MISES À JOUR AVEC INDY

Commentaire de elguevel le 12/07/2006 12:45:35

Bon programme.

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 ;-)

Commentaire de Matt 261 le 12/07/2006 14:24:47

Merci pour ton commentaire Elguevel. POur les uses, bein à partir du moment ou tu mets un composant Indy, tu as toute une ribembelle d'unités qui se rajoutes :( .
Je vais revoir le code. Encore Merci ;-)

Commentaire de Matt 261 le 12/07/2006 15:59:51

Oui je veux bien Elguevel parcequ'on va dire que je me suis rééllement dit il y a quelques jour : Tiens si j'essayais Indy donc je veux bien que tu me réécrive quelques trucs parceque sinon, je ne vois pas comment faire pour apprendre ;-) .

Pour l'aspect graphique : content que ça te plaise :).

Commentaire de shining le 12/07/2006 19:57:58

et sans Indy ça donne quoi ?
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 ?

Commentaire de Francky23012301 le 13/07/2006 01:22:06

Salut Matt,

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

@+

Commentaire de elguevel le 13/07/2006 11:21:15

ha oui merde j'tavais dit que je te ferais quelque chose pour ta source, je m'y met maintenant ... :-)

Commentaire de elguevel le 13/07/2006 12:22:00

oula t'es allé la chercher loin la blague, j'ai bloqué un moment :-D

Commentaire de shining le 13/07/2006 17:25:37

Matt261 à dit:
"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

Commentaire de Also know as le 19/07/2006 09:16:07

Très sympa comme source ca :)

Cela pourra servir pourra servir pour mes prochaines applications, merci à toi, qui plus est le design est agréable.

Merci beaucoup

Commentaire de Matt 261 le 19/07/2006 09:45:27

@ Also : Merci ! :D il y a un moyen en effet de connaitre la taille de la barre des taches. Donc pour la prochaine MàJ : "Voulez vous télécharger la Maj?" et la taille de la barre.

Commentaire de Matt 261 le 25/07/2006 09:51:18

Merci pkZip, normalement, ma fonction verifie si le pc est connecté à internet ET sur ton routeur/modem sauf erreur de ma part...

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

Commentaire de Matt 261 le 25/07/2006 09:59:59

Je vais voir si je peux trouver un truc pour les routeurs pur mais n'en ayant pas encore (ça va pas tarder) je ne pourrais pas tester... En tous cas, ça fait plaisir de savoir que ça peut servir à des gens :D

Commentaire de Matt 261 le 25/07/2006 11:21:55

Je reviens de Marseille !

Commentaire de Also know as le 02/12/2006 20:19:12

Oulà toujours pas eu de mise à jour depuis tout ce temps :p

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 :)

@+ !