Delphichem
Messages postés1Date d'inscriptionmercredi 31 août 2005StatutMembreDerniè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és1Date d'inscriptionmardi 12 février 2008StatutMembreDerniè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és40Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention25 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és2Date d'inscriptiondimanche 11 janvier 2004StatutMembreDerniè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és40Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention25 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és954Date d'inscriptionmardi 11 mai 2004StatutMembreDernière intervention11 novembre 20082 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és304Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention10 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;
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és1Date d'inscriptiondimanche 30 mai 2004StatutMembreDerniè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és4Date d'inscriptionvendredi 26 juillet 2002StatutMembreDerniè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és2Date d'inscriptionmardi 30 mars 2004StatutMembreDernière intervention30 mars 2004 30 mars 2004 à 21:32
yousky
Messages postés4Date d'inscriptionvendredi 26 juillet 2002StatutMembreDerniè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és178Date d'inscriptionmardi 29 avril 2003StatutMembreDernière intervention 2 février 2010 25 févr. 2004 à 17:35
si quelqu'un peut essayer ca avec un lien valide ???
cs_jfs59
Messages postés178Date d'inscriptionmardi 29 avril 2003StatutMembreDerniè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és6Date d'inscriptionjeudi 29 janvier 2004StatutMembreDernière intervention14 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és16Date d'inscriptiondimanche 20 avril 2003StatutMembreDernière intervention11 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és65Date d'inscriptionlundi 30 décembre 2002StatutMembreDernière intervention18 novembre 20081 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és223Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention16 décembre 202115 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és6Date d'inscriptionjeudi 29 janvier 2004StatutMembreDernière intervention14 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és6Date d'inscriptionjeudi 29 janvier 2004StatutMembreDernière intervention14 février 2004 2 févr. 2004 à 22:39
il faut cette archive VirtualShellTools 1.1.13
papyvore
Messages postés223Date d'inscriptionsamedi 15 novembre 2003StatutMembreDernière intervention16 décembre 202115 1 févr. 2004 à 13:58
MedGIR
Messages postés1Date d'inscriptionvendredi 30 janvier 2004StatutMembreDernière intervention31 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és3Date d'inscriptionsamedi 24 janvier 2004StatutMembreDernière intervention31 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és6Date d'inscriptionjeudi 29 janvier 2004StatutMembreDernière intervention14 février 2004 31 janv. 2004 à 04:03
ça marche tres bien sous delphi 7
tu bloques où ?
DylDelph
Messages postés3Date d'inscriptionsamedi 24 janvier 2004StatutMembreDernière intervention31 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és6Date d'inscriptionjeudi 29 janvier 2004StatutMembreDernière intervention14 février 2004 29 janv. 2004 à 13:28
Par contre, il va falloir que vous telechargiez tout le composants
treeview, etc..
4 févr. 2010 à 08:55
Le lien sourceforge n'existe plus :(
3 mars 2008 à 17:38
6 janv. 2007 à 00:44
coordialement
26 oct. 2005 à 17:48
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.
26 avril 2005 à 21:38
vla si qqun pourrait me répondre ca serais cool
Cordialement
24 nov. 2004 à 17:00
24 juil. 2004 à 03:54
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...
5 juin 2004 à 14:30
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.
9 mai 2004 à 15:11
Merci
ciao ciao
30 mars 2004 à 21:32
http://cvs.sourceforge.net/viewcvs.py/dmule/dMule/
4 mars 2004 à 21:50
Merci à vous.
25 févr. 2004 à 17:35
si quelqu'un peut essayer ca avec un lien valide ???
25 févr. 2004 à 16:45
14 févr. 2004 à 00:36
11 févr. 2004 à 20:52
Merci à toi si tu peut le faire. ce serait beaucoup plus simple.
+++
10 févr. 2004 à 12:38
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.
6 févr. 2004 à 10:53
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.
5 févr. 2004 à 12:03
2 févr. 2004 à 22:39
1 févr. 2004 à 13:58
l'adresse http://groups.yahoo.com/group/VirtualExplorerTree/
me renvoi a VirtualTreeview je tourne en rond ;-(
merci
31 janv. 2004 à 23:36
31 janv. 2004 à 15:58
Je n'arrive pas à installer la GUI libs
Delphi ne trouve pas certains fichiers pas
31 janv. 2004 à 04:03
tu bloques où ?
30 janv. 2004 à 16:01
Utilisant delphi 7, je n'ai pu installer que les composants Virtual TREEVIEW, vous pouvez m'aider ?
29 janv. 2004 à 13:28
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