EMULE EN DELPHI ÇA DONNE DMULE

Alfed biteau Messages postés 6 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 14 février 2004 - 29 janv. 2004 à 13:28
Delphichem Messages postés 1 Date d'inscription mercredi 31 août 2005 Statut Membre Dernière intervention 4 février 2010 - 4 févr. 2010 à 08:55
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/19857-emule-en-delphi-ca-donne-dmule

Delphichem Messages postés 1 Date d'inscription mercredi 31 août 2005 Statut Membre Dernière intervention 4 février 2010
4 févr. 2010 à 08:55
Ou en est le projet?
Le lien sourceforge n'existe plus :(
markabcd Messages postés 1 Date d'inscription mardi 12 février 2008 Statut Membre Dernière intervention 3 mars 2008
3 mars 2008 à 17:38
dmule is not complete source code vcl ? I want to, can I? thank you
cybersky Messages postés 40 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 25 mai 2009
6 janv. 2007 à 00:44
Salut à tous voila je voulais savoir si personne etait chaud pour vouloir continuer le projet dMule ou créer une autre du genre d'exosee visible sur http://www.exosee.com. Pour ma part je me contenterais de continuer ce projet bien sur en open sources. Merci à tous pour vos reponces.

coordialement
m4nn1x Messages postés 2 Date d'inscription dimanche 11 janvier 2004 Statut Membre Dernière intervention 9 mars 2006
26 oct. 2005 à 17:48
Salut à tous, je suis nouveau sur ce site. Je trouve cela ambitieux (donc bien) de recréer un client P2P pour le reseau ED2K (même si ça ne change rien aux niveau de nos non-droits en matière de téléchargements) pour le défi, le fun.
J'ai développé pas mal de progs avec Delphi, réseau et autres jeux. J'aime bien le pascal. Si vous avez toujours envie de relever le défi en groupe de faire ce truc, j'aimerais aussi.
J'ai vérifié avant de poster ce message si il y avait eu d'autres discussions postérieures à celle-ci (qui a plus d'un an) et apparemment, plus personne n'evoque Dmule, alors...
Dites-moi si je me jette sur mon clavier pour trouver ou si vous avez trouver les limites infranchissables de cette idée.
Merci de m'avoir lu.

Chapeau bas.
cybersky Messages postés 40 Date d'inscription lundi 16 décembre 2002 Statut Membre Dernière intervention 25 mai 2009
26 avril 2005 à 21:38
ca vous dirrait à tous de continuer ce projet ???? moi je suis deja en pleein dedant mais n'arrive pas a telecharger ni a afficher les fichiers part.met dans mon rep Icoming


vla si qqun pourrait me répondre ca serais cool

Cordialement
ImmortalPC Messages postés 954 Date d'inscription mardi 11 mai 2004 Statut Membre Dernière intervention 11 novembre 2008 2
24 nov. 2004 à 17:00
Bon y en a pas un qui pourrais me le compiler avec tout car j'ai pas delphi
cs_shining Messages postés 304 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 10 mars 2012
24 juil. 2004 à 03:54
inutile de vous casser la tête.. ça fait des Années que l'auteur n'a pas mis à jour le source.

pour ma part j'ai jetter un coup d'oeil.. et c clair que c assez mal coder quand même, beaucop de bug, de compo inutile, dont l'anti freeze qui créé justement un freeze de mon pc à la fermeture, pour ma part j'ai fait le ménage, quand on compile , fichier Dcu dans le rep dcu, exe dans le rep Exe ect.. c déja un bon début pour travaillé proprement.

voici donc les quelques changement apporter pour le moment

-----------------------------------------------------------------------
{ Unité FormSearch }
procedure TfrmSearch.btnDownloadClick(Sender: TObject);
var
Node: PVirtualNode;
Data: PSearchFile;
ED2K: TED2KFileLink;
begin
{ Code Added By Shining Freeman }
Node := vtSearch.GetFirstSelected;
if Assigned(Node) then
begin
Data := vtSearch.GetNodeData(Node);
{
ED2K := TED2KFileLink.Create;
ED2K.FileName := Data^.FileName;
ED2K.FileSize := Data^.FileSize;
ED2K.FileID := Data^.FileHash;
AppDownloadQueue.AddFileLinkToDownload(ED2K);
ED2K.Free;
}
AppDownloadQueue.AddSearchToDownload(Data^);
end;
end;



{ ------------ Unité PartFile ----------------- }

type
PPartFile = ^TPartFile;
TPartFile = class(TKnownFile)
private
PartCnt : Integer ;// Compteur pour créer un new part

.........................
function TPartFile.GetFreePart: String;
begin
Inc(PartCnt);
result := IntToStr(PartCnt);
if System.Length(result) = 1 then
result := '00' + result;
if System.Length(result) = 2 then
result := '0' + result;
end;


procedure TPartFile.CreatePartFile;
var
FileName: String;
TmpDir : String;
Tag: TTag;
Gap: ^TGap;
begin
//if Copy(appPrefs.PartMetDir , Length(appPrefs.PartMetDir)-1, 1) <> '\' Then TmpDir:= appPrefs.PartMetDir + '\' else
TmpDir := appPrefs.PartMetDir;

// ShowMessage('CreatePartFile: ' + TmpDir);
//Randomize;
PartCnt := -1;
repeat
FileName := TmpDir + GetFreePart + '.part.met';
until not FileExists(FileName);
FFullName := FileName;
//ShowMessage('FullName:' + FullName);
FileName := ExtractFileName(FFullName);
Delete(FileName, Length(FileName) - 4, 4);

FPartMetFileName := FileName;
FPartMetDirectory := appPrefs.GetTempDir(FileSize);
Tag := TTag.Create(FT_TEMPDIRECTORY, FPartMetDirectory);
FTagList.Add(Tag);

New(Gap);
Gap^.StartPos := 0;
Gap^.EndPos := FileSize - 1;
FGapList.Add(Gap);

FFileStream := TFileStream.Create(FPartMetDirectory + FPartMetFileName, fmCreate);

SetLength(FPartFrequency, PartCount);
FillChar(FPartFrequency, SizeOf(FPartFrequency), 0);
FPaused := False;
SaveFilePart;
end;
-----------------------------------------------------------------------
Constat: après ce changement le fichier xxx.part.met est bien créé néanmoins ça provoque une exception... en fait si on retire le SaveFilePart dans al fonction CreateFilePart, ça marche on a bien le nouveau fichier qui apparait dans Download ect.. mais le fichier principal xxx.part n'est pas créé dans le repertoire temp
autre chose, vous devez effacer le fichier tempdirs.ini qui ce trouve dans le rep "préférences", il sera automatiquement recréer avec le bon lien, assurez vous que les rep Incoming,Temp existe bien dans le rep principal du soft, reste maintenenant à trouver la routine qui lance le telechargement, j'ai tester résume mais ça marche pas, il faut faire une requete de demande de téléchargement... et après acceptation du client, on pourras downloader...
Saibot4 Messages postés 1 Date d'inscription dimanche 30 mai 2004 Statut Membre Dernière intervention 5 juin 2004
5 juin 2004 à 14:30
How to download lastest version dMule.
I'm use for example:
cvs95 -z5 -d:pserver:Anonymous@cvs.sourceforge.net:/cvsroot/dmule co dMule
Or
cvs95 -z5 -d:pserver:Anonymement@cvs.sourceforge.net:/dmule co dMule

And I can't login in and download. Can somebody tell me a login and
password.
yousky Messages postés 4 Date d'inscription vendredi 26 juillet 2002 Statut Membre Dernière intervention 9 mai 2004
9 mai 2004 à 15:11
Le problème c'est qu'il faut le bon login et mot de passe pour pouvoir ensuite gérer le projet. Anonymement ca ne passe pas :-(, si quelqu'un a des infos.
Merci
ciao ciao
DelphiExpert Messages postés 2 Date d'inscription mardi 30 mars 2004 Statut Membre Dernière intervention 30 mars 2004
30 mars 2004 à 21:32
Il vaudrait peut-etre mieux apprendre à utiliser CVS et a participer au projet NORMALEMENT
http://cvs.sourceforge.net/viewcvs.py/dmule/dMule/
yousky Messages postés 4 Date d'inscription vendredi 26 juillet 2002 Statut Membre Dernière intervention 9 mai 2004
4 mars 2004 à 21:50
Ca m'NRV, j'ai recupéré les différentes libairies mais le projet en lui même ne compile pas, j'ai l'impression que les versions ne sont pas compatible. Le problème est le Virtual TreeView, j'utilise la version VirtualShellTools_1.1.12 et vous ? Je commence à me bouffer les cheveux, ca me gave ce truc.

Merci à vous.
cs_jfs59 Messages postés 178 Date d'inscription mardi 29 avril 2003 Statut Membre Dernière intervention 2 février 2010
25 févr. 2004 à 17:35
appDownloadQueue.AddFileLinkToDownload(Link: TED2KFileLink)

si quelqu'un peut essayer ca avec un lien valide ???
cs_jfs59 Messages postés 178 Date d'inscription mardi 29 avril 2003 Statut Membre Dernière intervention 2 février 2010
25 févr. 2004 à 16:45
Bon ben aprés 5 heures a charger des composants divers qui font beau et qui servent a rien et aprés avoir essayer de compiler, trouver les fichiers , réorganiser tout ca ... j'arrive a : RIEN nada ... j'dois etre plus c*** que la moyenne ... pourtant j'en ai déja écrit un paquet de programmes en delphi ... quelqu'un a réussi a faire vraiment quelque chose ??? du genre on colle un lien et ca charge ne serait ce que celui la ?...
Alfed biteau Messages postés 6 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 14 février 2004
14 févr. 2004 à 00:36
Ce qui serait bien, ça serait de faire un client minimaliste avec les composants de piette par exemple, et un code clair et commenté
PastisD1 Messages postés 16 Date d'inscription dimanche 20 avril 2003 Statut Membre Dernière intervention 11 août 2008
11 févr. 2004 à 20:52
ce serait bien que tu mette tout les composant dans le ZIP ou que tu mette les lien direct pour les téléchargé et non le lien du site.
Merci à toi si tu peut le faire. ce serait beaucoup plus simple.
+++
cs_hendrix Messages postés 65 Date d'inscription lundi 30 décembre 2002 Statut Membre Dernière intervention 18 novembre 2008 1
10 févr. 2004 à 12:38
En plus il faut installer les composants Indy récupérés sur le net parce que ça ne marche pas avec ceux de base ( en D6 entreprise en tout cas).

Ensuite, plantage à la compilation dans l'unité IdHashMessageDigest
au niveau de la fonction:
function TIdHashMessageDigest2.HashValue(AStream: TStream):
T4x4LongWordRecord;

Ca plante à la ligne:
while LSize - AStream.Position >= SizeOf(FCBuffer) do

Quelqu'un a-t'il corrigé le truc parce que je comprends pas trop pour l'instant ce que l'auteur veut faire?

Merci de votre aide.
papyvore Messages postés 223 Date d'inscription samedi 15 novembre 2003 Statut Membre Dernière intervention 16 décembre 2021 15
6 févr. 2004 à 10:53
j'en suis au même point que MedGir ,je me connecte bien a un serveur .
je lance une recherche OK.
mais j'ai toujours pas trouvé comment
lancer le téléchargement .
vtDownload.??? peut être bien ailleur.
allez celui qui trouvera le 1er aura sans doutes gagné .....
la concidération des autres ;->) !
quand a moi étant donné ma compétence en delphi je vais essayer de
de suivre vos discutions de peut être comprendre.
Alfed biteau Messages postés 6 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 14 février 2004
5 févr. 2004 à 12:03
Je suis un peu deçu qu'il n'y ait pas plus de commentaire / source en rapport
Alfed biteau Messages postés 6 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 14 février 2004
2 févr. 2004 à 22:39
il faut cette archive VirtualShellTools 1.1.13
papyvore Messages postés 223 Date d'inscription samedi 15 novembre 2003 Statut Membre Dernière intervention 16 décembre 2021 15
1 févr. 2004 à 13:58
j'arrive pas a trouver VirtualExplorerTree ou ce trouve donc cette unit
l'adresse http://groups.yahoo.com/group/VirtualExplorerTree/
me renvoi a VirtualTreeview je tourne en rond ;-(
merci
MedGIR Messages postés 1 Date d'inscription vendredi 30 janvier 2004 Statut Membre Dernière intervention 31 janvier 2004
31 janv. 2004 à 23:36
Je l'ai complement modifié pour qu'il fonctionne avec les composants standard de Delphi. Par contre meme avant que je le modifie je n'ai jamais reussi à lancer un téléchargement(code manquant). Je n'ai eu aucun probleme pour me connecter sur un serveur. Quelqu'un a t'il des infos sur la maniere de lancer un telechargement (Code source)...Merci
DylDelph Messages postés 3 Date d'inscription samedi 24 janvier 2004 Statut Membre Dernière intervention 31 janvier 2004
31 janv. 2004 à 15:58
Ce source fait appel à de nombreux composants inutiles !!!!

Je n'arrive pas à installer la GUI libs

Delphi ne trouve pas certains fichiers pas
Alfed biteau Messages postés 6 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 14 février 2004
31 janv. 2004 à 04:03
ça marche tres bien sous delphi 7

tu bloques où ?
DylDelph Messages postés 3 Date d'inscription samedi 24 janvier 2004 Statut Membre Dernière intervention 31 janvier 2004
30 janv. 2004 à 16:01
Bonjour,

Utilisant delphi 7, je n'ai pu installer que les composants Virtual TREEVIEW, vous pouvez m'aider ?
Alfed biteau Messages postés 6 Date d'inscription jeudi 29 janvier 2004 Statut Membre Dernière intervention 14 février 2004
29 janv. 2004 à 13:28
Par contre, il va falloir que vous telechargiez tout le composants
treeview, etc..

readme.txt :

Used Components for GUI:

4th gui libs
http://4thfebruary.port5.com
http://4thfebruary.topcities.com
http://4thfebruary.tripod.com

Virtual Treeview (CLX version currently in test)
http://www.delphi-gems.com/VirtualTreeview/VT.php

VirtualShellTools
http://groups.yahoo.com/group/VirtualExplorerTree/

Toolbar2000
http://www.jrsoftware.org/tb2k.php

To compile you need Borland Delphi 6 or above
Rejoignez-nous