Ce programme, permet de connaitre son ID des reseaux eDonkey / eMule d'après son ip et vise vers ca :)
J'ai développer ce programme pour deux raison :
La première :
car un pot à moi à un routeur et je n'arrive jamais à connaitre son ip :/
même avec IPCONFIG, donc je lui demande son ID et avec mon prog je converti :)
La deuxième:
A titre indicatif :)
1.) On peut voir comment renverser une chaine de caractère (Script de : Japee)
2.) Convertir Hex -> Dec : Dec -> Hex
et ca peut être utile à quelq'un.
Voila j'éspère décevoir personne.
NOTE : Je viens juste de rencontrer un bug :
Quand on convertit IpToId, parfois l'id est egual à moins quelque chose.
Je ne sait pas pourquoi
j'ai essayer avec ma mule j'avais une id de 10 caractère et ca à pas voulu me traduire mon ip ca m'as afficher un message d'erreur.
Si quelqu'un à ce bug un jour, et si il veux bien regarder / modifier la source et me prévenir par mail (amokers@yahoo.fr) je le remercie d'avance.
Conclusion :
Je remercie encore Japee pour son aide dans les forum de DelphiFr.com.
et aussi DelphiFr.com pour toutes ses évolutions et ses sources ;)
Puis enfin les utilisateurs qui s'intérressent à mes sources.
Vous pouvez visiter mon site : www.delphi-projets.fr.st
Au fait je voulais vous demander à tous, voullez vous bien votter pour mes sources, afin de voir ce quelles vallent ?
Merci
www.w3seek.de, je vous souhaite un très Joyeux Noël à tous et à toutes, ainsi que tout mes meilleurs voeux pour l'Année 2004, j'espère que vous avez été très sage cet Année sinon papa noël... ;)
HID := IntToHex(StrToInt64(ID.Text),8);
StrToInt64 transfert " FFFFFFFF " comme il se doit
StrToInt transfert " FFFFFFFF" à -1 ...pas très correct
2-modifie la ligne 112
ID.Text := IntToStr(HexToInt(Temp));
3-StrUtils.ReverseString(sting);string
fait la job il me semble ?
4- utilise cette function HexToInt qui renvoi les valeur supposé
function HexToInt(HexStr: String): Int64;
var RetVar : Int64;
i : byte;
begin
HexStr := UpperCase(HexStr);
if HexStr[length(HexStr)] = 'H' then
Delete(HexStr,length(HexStr),1);
RetVar := 0;
for i := 1 to length(HexStr) do begin
RetVar := RetVar shl 4;
if HexStr[i] in ['0'..'9'] then
RetVar := RetVar + (byte(HexStr[i]) - 48)
else
if HexStr[i] in ['A'..'F'] then
RetVar := RetVar + (byte(HexStr[i]) - 55)
else begin
Retvar := 0;
break;
end;
end;
Result := RetVar;
end;
ça ira mieux après
ah oui j'oubliais ,évite d'inclure dans tes projets le chemin par défaut que tu as chez toi ,moi je ne détiens pas le répertoire c:programfilesdelphi7...
ce qui cré une erreur impossible de créer le fichier de sortie ,pour moi ça va mais les nouveaux ne seront pas capable de compilier (projet/ options/destination...=nil
2ie points je ne dispose pas des unité xpmanifest...,ça n'a aucune importance mais bon je dois supprimer tout ce qui a rapport à ces unité pour compiler ...
c'est très bien quand même !!! je rigole joyeuses fêtes
Yve
Je reviendrai plus tard pour donner de plus complètes informations
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.