ERREURS WINSOSK

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 - 8 juin 2002 à 10:56
djtexas Messages postés 20 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 9 mai 2006 - 10 juin 2002 à 03:33
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/11966-erreurs-winsosk

djtexas Messages postés 20 Date d'inscription mardi 16 avril 2002 Statut Membre Dernière intervention 9 mai 2006
10 juin 2002 à 03:33
J'avoie qun fichier ressource améliore la lisibilité du code
cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
8 juin 2002 à 10:56
Pour que ce code puisse être facilement réutilisable, il serait bon d'externaliser dans un fichier ressource de chaine (ou une simple unité), du style :
ResourceString
10004 = 'Interrupted function call.';
10013 = 'Permission Refusée.';
10014 = 'Mauvaise adresse.';
10022 = 'Arguments Invalides.';

etc...
Puis d'appeler la chaine à afficher de la façon suivante :
//Si la chaîne de ressource n'existe pas, LoadStr renvoie une chaîne vide
ErrorMsg := LoadStr(ErrorCode);
If ErrorMsg = EmptyStr then
ErrorMsg := 'Unknown socket error.';

Ainsi, le code devient facilement réutilisable et plus facile à lire.
Je t'envoie le code proposé par mail.
Rejoignez-nous