EASYCOMPRESSJPG - COMPRESSE LES IMAGES JPEG

Commentaire de jmp77 le 04/01/2005 13:12:23

Hello,

J'ai voulu tester et voici l erreur que j'ai eu à la compilation :
[Erreur fatale] Compress.dpr(7): Fichier non trouvé : 'ToolEdit.dcu'

++,
JMP77.

Commentaire de grandvizir le 05/01/2005 16:19:27

jmp77> :))))))

ni69> Je serais enfin le premier à te dire qu'il existe des fichiers inutiles dans le Zip. Va voir à gauche dans... vous connaissez la suite. Sinon j'ai 4 remarques:

LA PREMIERE:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); doit devenir un évènement OnCloseQuery. OnClose est appelé via Form.Close. Or, si le user clique sur la croix, OnClose n'est pas appelé, contrairement à OnCloseQuery également appelée par Form.Close.

LA SECONDE:
Je suis noyé dans les commentaires... Met les tjs en bout de ligne. Sinon je sors fatalement mon code source 24746.

LA TROISIEME:
Pour remédier au pb des OnClose*, gère plutôt une structure du type suivant:

var MaJPg : TJpegImage;
implementation
[...]
initialization
MaJPG:=TJpegImage.Create;
finalization
MaJPG.Free;
end.

Et bien sûr, il faut Free dans l'ordre inverse des ordres de création. Exemple:

initialization
Jpg1.Create;
Jpg2.Create;
finalization
Jpg2.Free;
Jpg1.Free;
end.

Si tu veux gérer uniquement des finalization, il faut impérativement avoir ceci. Ca va par couple.

initialization
finalization
MaJpg.Free;
end.

LA QUATRIEME:
Dans le cas unique qui est celui-ci, il est cohérent de remplacer
procedure TForm1.ImagesDuDossierClick(Sender: TObject);
begin
if (ImagesDuDossier.ItemIndex <> -1) then
  AjouteImage.Enabled := True;
end;
Par: AjouteImage.Enabled:= (ImagesDuDossier.ItemIndex<>-1);

Notepad explique tout...

Commentaire de grandvizir le 05/01/2005 17:49:36

Merci de ne pas dire "n'importe quoi" lorsque cela n'est pas requis. Ou du moins, il faut nuancer... ;)

J'aurais plutôt mis "...mbNo],0)=idYes;" bien que idYes=mrYes dans Windows.pas. Ca ne change donc rien. Mélangeons donc les bananes et les citrons...

T'as raison pour les ShowMessage, mais sache que je n'ai demandé aucune confirmation. Dans l'exemple inconcevable que tu donnes, il est ridule de Freer car en définitive, tu n'es pas sûr si la fenêtre sera oui ou non fermée.

En réalité, mes objets sont Freés via FINALIZATION. Je n'ai donc pas de pb avec OnClose. En revanche, ta remarque est très pertinente.

En résumé:
OnCloseQuery autorise ou non l'exécution de OnClose
OnClose gère toutes les libérations de mémoire, si cela veut bien se faire correctement. Gare à d'éventuelles exceptions... qui ne fermeraient pas la fenêtre.

Commentaire de grandvizir le 05/01/2005 18:24:08

Je viens de voir que je n'ai pas répondu à une question. Pourquoi l'ordre est-il inversé ?

Une fois que tu as monté un meuble, pour le démonter tu n'enlèves pas la carosserie avant d'enlever les tiroirs... J'espère que cette image est explicite. La lévitation n'existe que dans l'Airbus Zéro-G.

:))

Commentaire de Caribensila le 05/01/2005 20:04:11

Pour la 4ème remarque de grandvizir, j'aurais une question :
C'est vrai que la proposition de grandvizir est plus propre. Mais est-ce que ça change vraiment qq chose, une fois le code compilé?
Je précise ma question: Ne vaut-il pas mieux favoriser la lisibilité du code plutôt que sa compacité?
... ... ...
Pour les commentaires, c'est un peu pareil, je trouve. Un débutant comme moi se noie plus par la pénurie de commentaires que dans l'excès.  ;)
Et quand on sait l'effort à fournir pour bien commenter un code que l'on connait par coeur, je dis bravo à ni69!
... ... ...
J'ai pas compris l'importance de l'ordre pour libérer les objets... Si on pouvait m'expliquer pour que je ne meurs pas tout à fait con...   lol

Commentaire de grandvizir le 05/01/2005 20:21:16

Caribensila> Ca ne change rien. Seulement ça exploite les performances des booléens permettant ensuite de réduire les lignes de code. Par exemple:
if Checked then Checked:=false
else Checked=true;
Ceci peut se réduire à: Checked:=not Checked;

Attention: cela dépend des cas. On ne peut pas tjs faire la technique proposée. En fait, il faut analyser les cas... C'est pas évident à expliquer.

Commentaire de ni69 le 05/01/2005 20:35:01

GrandVizir :
- Merci pour la quatrième remarque : j'ai modifié ça :)
- Pour les commentaires, j'estime que je n'en mets pas de trop, étant donné le nombre de commentaires du forum traitant du manque de commentaires de certaines sources... je laisse donc tel quel.
- Pour Initialization / Finalization, je vais remplacer ça tout de suite : en effet j'y pense d'habitude, mais cette fois ci, j'avais oublié ;) Merci de me le rappeler !

JulioDelphi :
"Un effort et une originilatié ça serait pas mal pour le design et/ou pour la navigation dans les dossiers :) " >> Qu'entends-tu par navigation dans les dossiers ? Qu'est-ce qui ne vas pas ? Serais-ce le choix du répertoire de destination ? Pour le design, je vais réfléchir... En tout cas, merci pour tes messages :)

Caribensila : merci pour tes idées données dans ton MP. Je vais voir ce que je peux faire ;)


Je ne vais pas tarder à faire une MAJ... Merci de vos idées respectives ;)

Bonne Prog'
@+
Nico

Commentaire de JulioDelphi le 05/01/2005 20:42:28 administrateur CS

Non ce code HTML est signalé MAUVAIS par le W3C HTML 4.0 ... :(
mdr nan de tete voyons !!

Commentaire de grandvizir le 06/01/2005 17:04:46

J'ai trouvé un code pour illustrer Caribensila.

Vous vous rappelez qu'il fallait remplacer par:
AjouteImage.Enabled:= (ImagesDuDossier.ItemIndex<>-1);

Eh bien dans le code suivant, il ne faut pas le faire. La casse est respectée dans la liste. Pour ignorer la casse, utiliser LowerCase ou UpperCase.

function Recherche(var STL:TStringList; S:string):boolean;
var x : cardinal;
    b : boolean;
begin
  b:=false;
  for x:=0 to STL.Count-1 do
    if STL[x]=S then
      b:=true;
  Recherche:=b;
end;

Je suis passé volontairement par une variable B pour bien comprendre. Le principe est de dire si la chaîne S est contenue dans la liste STL (le VAR peut être omis selon DelphiProg, mais... pas d'embrouille please bien que ce soit un objet). Bref...

Dans le code de ni69, on a une situation en TOR (Tout Ou Rien). Le processus est indépendant de tout résultat antérieur. Or, dans ma boucle (qu'on aurait pu breaker), on défile tous les items de la liste et le résultat n'est rendu qu'une fois tous scannés. Le TOR n'existe plus. On est placé dans une continuité...

Ainsi, le code suivant est incorrect:

function Recherche(var STL:TStringList; S:string):boolean;
var x : cardinal;
    b : boolean;
begin
  b:=false;
  for x:=0 to STL.Count-1 do
    b:= STL[x]=S;
  Recherche:=b;
end;

En effet... si la liste contient 2 items (on rappelle que l'index de liste commence à 0), et que S=STL[0], alors dans le code alors proposé, à la fin, le résultat est équivalent à b:= S=STL[1]; Ce qui est complètement faux, car en réalité, on devrait avoir: b:=S=STL[0];

En revanche, le code suivant est correct, mais plus lourd à la lecture.

function Recherche(var STL:TStringList; S:string):boolean;
var x : cardinal;
    b : boolean;
begin
  b:=false;
  for x:=0 to STL.Count-1 do
    begin
      b:= STL[x]=S;
      if b then Break;
    end;
  Recherche:=b;
end;

Pour en revenir à JulioDelphi... Le code suivant est bien sûr juste. Mais son exécution ne correspond pas à ce que tu attends:

begin //ID 1
  begin //ID 2
end; //ID 1
  end; //ID 2

Ce n'est pas un problème d'alignement. Ce dernier est justement là pour montrer qu'on voulait chevaucher les BEGIN...END. Pour être clair:

oooo> DELPHI interprète ainsi:
begin //ID 1
  begin //ID 2
  end; //ID 1
end; //ID 2

oooo> MAIS on voulait ce qui suit (et ce n'est pas pareil)
begin //ID 1
  begin //ID 2
end; //ID 1
  end; //ID 2

!!!!! C'EST POUR CELA QUE JE DIS QUE L'ALIGNEMENT DES CODES SOURCES PERMET D'EVITER DES ERREURS A LA *** !!!!!

J'espère que cela est rentré dans les têtes. Là, il n'y a pas beaucoup de lignes, mais parfois, j'ai des alignements qui font la largeur de l'écran. Donc... ça sert !

Sinon, ma proposition N°1 était effectivement fausse. Je ne sait pas ce que j'avais à ce moment... ??

Désolé que certains messages soient temporellement proches, mais des posts ont été postés simultanément si bien que j'ai bien été obligé de répondre immédiatement;)

Commentaire de ni69 le 13/01/2005 12:06:41

Merci pour cette belle illustration GrandVizir ! ;)

Commentaire de ni69 le 19/01/2005 21:08:11

Voilà c'est fait ;)

Commentaire de ni69 le 18/02/2005 20:52:31

Merci pour tes remarques :)

Pour la propostition 1, c'est ce que j'avais pensé faire au départ, mais à chaque fois que l'on

bougeait sur la trackbar d'une unité, ça mettait des plombes à recharger les grandes images,

donc j'ai préféré utiliser le principe du "Rafraichir"...
2 : OK pas de prob
3 : c'est ce que j'envisageais de faire
4 : c'est vrai ça serait pratique je vais y penser ;)
5 : dsl, mais je n'ai pas trouvé de meilleure organisation pour ma fenêtre... :(
6 : je vais arranger ça...
7 : le nom de la Form4 n'a pas trop d'intérêt, mais bon....

@+
Nico