Bug sur un code Résolu

Question

Bonjour je cherche à faire une classe mais j'ai un code qui bug : Procedure TIPv4.SaveToFileOptimize(FileName:String); {Enregistre dans le format le plus court Format (127.0.0.1) : [SM]Simple(127.0.0.1)->127.0.0.1:Codage standard sans simplification [S0]Supp0(127.0.0.1)->127...1:Supression des 0 [NP]NoPoint(255.255.255.255)->255255255255:Supprime les points (uniquement si chaque Octect > 99) [NM]Name(127.0.0.1)->me:Transforme en nom si possible} Var Temp:TStrings; Supp0:ShortString; NoPoint:ShortString; Name:ShortString; Begin //Préparation Temp := TStrings.Create;//Initialisation de Temp //Application des algorithme //Supp0 If FByte1 = 0 Then//Simplique du 1er octect possible? Supp0 := '.' Else Supp0 := IntToStr(FByte1)+'.'; If FByte2 = 0 Then//Simplique du 2e octect possible? Supp0 := Supp0 + '.' Else Supp0 := Supp0 + IntToStr(FByte2)+'.'; If FByte3 = 0 Then//Simplique du 3e octect possible? Supp0 := Supp0 + '.' Else Supp0 := Supp0 + IntToStr(FByte3)+'.'; If FByte4 = 0 Then//Simplique du 4e octect possible? Else Supp0 := Supp0 + IntToStr(FByte4); //NoPoint If (FByte1 > 99) and (FByte2 > 99) and (FByte3 > 99) and (FByte4 > 99) Then NoPoint := GetIP('') Else NoPoint := GetIP; //Name NoPoint := GetIP; If GetIP = '127.0.0.1' Then NoPoint := GetIP('me'); If GetIP = '255.255.255.255' Then NoPoint := GetIP('+'); If GetIP = '0.0.0.0' Then NoPoint := GetIP('-'); If GetIP = '192.168.1.1' Then NoPoint := GetIP('nat1'); If GetIP = '192.168.0.1' Then NoPoint := GetIP('nat0'); If GetIP = '255.255.255.0' Then NoPoint := GetIP('nat'); //Recherche de l'algorithme le plus court Temp.Text := 'SM' + GetIP;//Simple If Length(Supp0) < Length(Temp.Text) Then//Supp0 Begin Temp.Text := 'S0' + Supp0; end; If Length(NoPoint) < Length(Temp.Text) Then//NoPoint Begin Temp.Text := 'NP' + NoPoint; end; If Length(Name) < Length(Temp.Text) Then//Name Begin Temp.Text := 'NM' + Name; end; //Enregistrement Temp.SaveToFile(FileName); end; Temp.Text := 'SM' + GetIP; (ligne 48) fait une erreur abstraite (je suis sérieux). Fbyte1, Fbyte2, Fbyte3 et Fbyte4 sont des Byte. GetIP renvoie 127.127.127.127. Ce code enregistre un IP dans le format le plus court d'après 3 algorithmes différent. Ensuite le code choisit le plus adapter. Merci de votre aide.

Francky23012301 · Answer

Malheureusement en l'état actuel on ne peut pas tester ton code puisqu'il manque des variables globales dont tu nous donnes pas le type.

Ceci dit quelques remarques en vrac :

-Je crois que tu as mal lu la définition du type ShortString qui est inutile dans ton cas et devenu obsolète avec les dernières versions de delphi (Utilisation de l'unicode). 

-On utilise dans la mesure du possible jamais de variables globales. Au pire on réalise une fonction si on a besoin de récupérer un résultat.

-Arrêtte avec ces transtypages systématiques : Ton code est déjà lent à la base, n'en rajoute pas une couche ;).

-Ton code n'est pas optimisé ni en terme d'écriture (Il y a plus simple et plus beau) ni en terme d'execution.

MiniApp · Answer

J'ai résolu mon problème, J'ai regarder l'aide de TStringList et j'ai vu que TStringsList avait son propre Add, alors j'ai remplacer mon TStrings par TStringsList ce qui a marcher. Le problème ensuite c'est que le test pour savoir quelle chaines est la plus courtes était érronée, alors j'ai fait une variables temp qui est un String et que j'utilise pour trouver la chaine la plus courtes que je rentre dans TStringList. Le code final : Procedure TIPv4.SaveToFileOptimize(FileName:String); {Enregistre dans le format le plus court Format (127.0.0.1) : [SM]Simple(127.0.0.1)->127.0.0.1:Codage standard sans simplification [S0]Supp0(127.0.0.1)->127...1:Supression des 0 [NP]NoPoint(255.255.255.255)->255255255255:Supprime les points (uniquement si chaque Octect > 99) [NM]Name(127.0.0.1)->me:Transforme en nom si possible} Var Temp:String; Strings:TStringList; Supp0:String; NoPoint:String; Name:String; Begin //Préparation Strings := TStringList.Create;//Initialisation de Strings //Application des algorithme //Supp0 If FByte1 = 0 Then//Simplique du 1er octect possible? Supp0 := '.' Else Supp0 := IntToStr(FByte1)+'.'; If FByte2 = 0 Then//Simplique du 2e octect possible? Supp0 := Supp0 + '.' Else Supp0 := Supp0 + IntToStr(FByte2)+'.'; If FByte3 = 0 Then//Simplique du 3e octect possible? Supp0 := Supp0 + '.' Else Supp0 := Supp0 + IntToStr(FByte3)+'.'; If FByte4 = 0 Then//Simplique du 4e octect possible? Else Supp0 := Supp0 + IntToStr(FByte4); //NoPoint If (FByte1 > 99) and (FByte2 > 99) and (FByte3 > 99) and (FByte4 > 99) Then NoPoint := GetIP('') Else NoPoint := GetIP; //Name Name := '255.255.255.2550'; If GetIP = '127.0.0.1' Then Name := 'me'; If GetIP = '255.255.255.255' Then Name := '+'; If GetIP = '0.0.0.0' Then Name := '-'; If GetIP = '192.168.1.1' Then Name := 'nat1'; If GetIP = '192.168.0.1' Then Name := 'nat0'; //Recherche de l'algorithme le plus court Temp := 'SM' + GetIP;//Simple If Length(Supp0) < Length(Temp) Then//Supp0 Begin Temp := 'S0' + Supp0; end; If Length(NoPoint) < Length(Temp) Then//NoPoint Begin Temp := 'NP' + NoPoint; end; If Length(Name) < Length(Temp) Then//Name Begin Temp := 'NM' + Name; end; //Enregistrement Strings.Text := Temp; Strings.SaveToFile(FileName); end; L'encodeur marche. Chercher et essayer : vous trouverez la solution! Fouiner et regarder partout : vous trouverez la connaissance!!

Cirec · Answer

ben en fait j'avais aussi testé cette partie et peu importe le type de processeur 
le code limité à 256 Threads est ~1sec plus long qu'avec 50 Threads  

et dans les deux cas (XP et Seven) l'os ne laisse pas créer autant de Threads(256) simultanément 
le système semble les retenir les mettre en attente !!! (~160 - 170 Max)

justement c'est pour cela que ça m'étonne un peu ... en plus chaque réponse prend ~40ms ce sont donc des limites physiques que l'on approche tout doucement ... après cet outil n'utilise certainement pas la méthode que la notre ... la quelle il faut le rappeler avait pour but de départ de faire 1 Ping sans utiliser Indy ou autre composant tiers  ... on est donc parti sur une commande Dos, un simple Ping !

... je reste donc dubitatif ^^ 
 
&#8194;&#8194;&#8194;&#8194;@+ Cirec

Bug sur un code

3 réponses

Votre réponse

Discussions similaires