OUTLOOK : VERSION BÊTA

Commentaire de Bruto le 29/09/2002 12:44:03

Le zip doit faire 360Ko peut-être est-ce de là s'il n'est pas de cette taille.
Sinon c'est vrai je fais référence à un ancienne form que j'ai oublié de retirer de mon code.
Il faut supprimer dans l'unit 'Mail', dans Uses : 'Attache' et c'est bon
Désolé pour ce prob je ne l'avais pas détecté.

Commentaire de Frostizz le 29/09/2002 14:16:36

Il faut aussi penser à dire k'il faut créé un repertoire Temp situé dans le même repertoire que le fichier éxécutable.
...

Commentaire de Nono40 le 29/09/2002 22:41:24

Pour le zip : tu mets beaucoup trop de fichiers dedans !!!!!

Supprime les fichiers .~pas .~dfm .~dpr, ils ne servent à rien, ce ne sont que des copie de sauvegarde. Ainsi ton ZIP fera moins de 250 et tu pourras le mettre à jour sans demander à Nix.

Nono

Commentaire de Nono40 le 29/09/2002 22:50:21

Il y a des petites erreur sur les create() et free(), souvent tu crées dans le forumCreate ( donc une fois au début ) et tu libère dans le FormClose ( donc à chaque fois que l'on ferme la fiche). Pour tes variables globales tu pourrais utiliser les déclaration Initialization et Finilization. Par exemple dans l'unité Mail.pas, supprimer des évenements List_Att := TStringList.Create(); et List_Att.Free; et ajoute tout à la fin de l'unité :
Initialization
  List_Att := TStringList.Create();
Finalization
  List_Att.Free;
end.

Bon je continue de regarder...

Nono.

Commentaire de Bruto le 30/09/2002 11:11:44

Je viens de faire les correctifs mais il reste encore une erreur 'opertion de pointeurs incorrectes' si vous trouvez, ... j'ai souvent ce type de problème, ça m'énerve.
Sinon comme je l'ai dit plus haut, si vous améliorez le projet avec de nouvelles options, possibilités, ... vous pouvez l'ajouter comme votre source mais il faut que vous me remerciez comme je le fait dans la form 'A propos'.
Maintenant il fait 254Ko c'est nettement mieux merci Nono40.
Pour info : la procédure IncludeTrailingPathDelimiter() n'est pas reconnu chez moi, j'utilise Delphi 5 entreprise. Si quelqu'un peut m'indiquer où je pourrais trouver la version 6 'grat**te' Merci

Commentaire de Nono40 le 30/09/2002 22:49:58

J'ai trouvé le problème de 'Opération pointeur incorrecte'. Le problème vient de ta dll de cryptage, si on la supprime du projet il n'y a plus d'erreur. Dans les prototype d'appel de Cryptage de Decryptage tu utilises des paramètres en String et des résultats en String. C'EST FORTEMENT DECONSEILLE. Car String est en fait une structure pointeur cachée, or l'espace des variables des dlls n'est pas celui de l'application, delphi ne gére alors bien les pointeurs que dans des conditions très strictes sur les Uses ( voir l'aide en ligne ). Il vaut mieux utiliser le type ShortString si tu n'utilises pas de chaines de plus de 255 caractères ( ce que je conseille si ta dll ne sera utilisée que par des applis delphi ), sinon il faut passer en PChar mais c'est un peu plus casse-pied à manipuler ( mais indispensable si ta dll doit être utilisée par VB ou C++).

Si tu veux vraiement utiliser le type String regarde l'aide en ligne sur la création des dlls, il y a une rubrique spécialement dédiée au String en paramètre des fonctions exportées.

A mon avis le problème de ton source suivant doit être le même...

Nono.

P.S. il faut modifier la propriété SpeedButton_Select.Anchors de la fenêtre Form_Carnet pour que le bouton suive les modifications de taille.

Commentaire de Nono40 le 01/10/2002 23:27:15

Non, je n'ai pas touché au projet. Sauf pour aller à la chasse au bug 'Opération pointeur incorrecte'. Pour moi ce qui manque le plus dans ce projet c'est la sauvegarde automatique des messages à la fermeture de l'application. Ainsi quand on revient dans le programme, les messages sont déjà chargés ( ce qui permet de les consulter hors connection ). Ceci permet aussi d'activer l'option pour supprimer les messages du serveur une fois qu'ils sont lus.

Il est possible d'enregistrer le contenu d'un composant dans un flux. C'est très utile pour les TListView :
*** Sauvegarde du contenu :
procedure TForm1.Button1Click(Sender: TObject);
Var St:TFileStream;
begin
  St:=TFileStream.Create('C:TEMPESSAI.DAT',fmCreate);
  Try
    St.WriteComponent(ListView1);
  Finally
    St.Free;
  End;
end;

*** Relecture du contenu :
procedure TForm1.Button2Click(Sender: TObject);
Var St:TFileStream;
begin
  St:=TFileStream.Create('C:TEMPESSAI.DAT',fmOpenRead);
  Try
    St.ReadComponent(ListView1);
  Finally
    St.Free;
  End;
end;

Nono.

Commentaire de sofiane2 le 15/05/2003 16:45:41

NMSMTP , NMPOP3 tu peut me l'envoyer stp

Commentaire de Nero` le 20/12/2004 17:07:19

Salut brutos.

j'aimerais pouvoir essayer ton soft mais je n'est pas le composant NMPOP3 j'utilise delphi 7.

pourais tu me l'envoyer stp ?

merci @++