PURE FTP

[doudouvs]

Il serait bien de fournir à @drobo la taille et la résolution de vos écrans.
pour ma part 2560 x 1600 Cinema Display 30"

[Backup]

j'ai corrigé mon code

ça doit passer sur du 1024x768

ça sera la taille minimum
a la prochaine release ,j'ajouterai la possibilité de changer la taille de la fenetre , de sorte qu'on puisse prendre ses aises ...

Merci

ps perso je suis en 1920X1080 .. sur mon Portable MSI GT780DXR

c'est DOBRO pas @drobo

Explication du Pseudo ici :
http://www.purebasic.fr/french/viewtopi ... 9&start=15

Trombinoscope ici :
http://www.purebasic.fr/french/viewtopic.php?f=9&t=3588

[doudouvs]

@dobro Oups toutes mes excuses

[Backup]

no blemes

[Backup]

Sans problème sache que ton programme marche sur d'autre FTP
J'ai regarder de plus près CloseFTP() en fait il ferme uniquement la connexion niveau logiciel ce qui risque de posé des problèmes. Si tu à un hébergeur qui n'autorise que 2 connexion tu va avoir 2 connexions fantôme, tant que le serveur ne les kill pas tu ne pourra pas en faire une 3em.

ce qu'il faudrait envoyer au serveur c'est un "QUIT" et il doit répondre "221 Goodbye."

Apparemment Fred a corrigé le probleme pour la prochaine Version

Merci a toi d'avoir soulevé ce probleme

[doudouvs]

Cool c'est du rapide

[Backup]

petite modif sur le Code de la premiere page

je n'ai pas inclus la recursivité pour l'exploration des dossiers mais ...

j'ai ajouté pour L'upload la creation des dossiers "Vide"
ce qui permet ensuite dans un deuxieme temps de pouvoir Uploader les Fichiers dans ces Dossiers Créé , et ainsi de les remplirs

pour l'Erase (distant toujours) , on ne peut pas effacer un dossier "Remplis" mais ... on peut entrer dans le dossier , sélectionner tout les fichiers
les eraser , puis sortir du dossier maintenant "vide" , alors on peut effacer ce ou ces dossiers Vide ..

ce qui rends quand meme , exploitable le code dans l'utilisation de tout les jours ..

bien sur la prise en compte de l'arborescence , serai un plus ... mais pour tout vous avouer , j'ai un peu la bulle de continuer ..
je retourne dans Tracmania Forever ...

[Backup]

Modification du code de la premiere page :

ajout du bouton Renommer qui fonctionne pour les Dossiers/fichiers Distants...
Ajout de la creation de Dossier Distant...

utilisation du code de Falsam pour l'affichage des icones de dossier/fichier Distant qui est plus performant que l'api
que j'utilisais .. donc merci a lui

Code : Tout sélectionner

; ************ pour chaque dossier **************************
FolderIcon = GetAssociatedFileIcon("c:\Windows", #SHGFI_LARGEICON) ; pour les icones de la listes distante; pour les icones DOSSIER de la listes distante
; on prends en reference l'icone du dossier de Windows :)
AddGadgetItem(#Tree_list2,i, info_distant()\name.s+chr(10)+info_distant()\size.s+" ko"+chr(10)+info_distant()\dat.s, FolderIcon)
; ********************************************************

; *********** pour chaque fichier *****************
hIcon = GetAssociatedFileIcon(info_distant()\name.s, #SHGFI_LARGEICON | #SHGFI_USEFILEATTRIBUTES)
AddGadgetItem(#Tree_list2, i, info_distant()\name.s+chr(10)+info_distant()\size.s+" ko"+chr(10)+info_distant()\dat.s,hIcon)
;   **********************************************


Procedure GetAssociatedFileIcon(IconPath.s, Value.l)
	; Falsam code
	Protected FileInfo.SHFILEINFO
	SHGetFileInfo_(IconPath, 0, @FileInfo, SizeOf(SHFILEINFO), #SHGFI_ICON | Value)
	ProcedureReturn FileInfo\hIcon
EndProcedure

[GallyHC]

Bonjour,

Je penses que je vais faire pas mal de pontage de code .

Sinon perso sur l'icone de répertoire, j'ai un problème (j'avais eu le même problème avec mon explorateur). En gros j'ai ceci :



Pour résoudre cela je charge l'icone des répertoire dans "shell32.dll". Pour ce faire je me suis aidé de ce code qui permet de voir toutes les icones :

Code : Tout sélectionner

; http://www.rafb.net/paste/results/R4CgNu20.html
; Author: Unknown (older code, posted by pcfreak on IRC)
; Date: 12. March 2006
; OS: Windows
; Demo: No

OpenWindow(0,0,0,320,240,"Window",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_ScreenCentered)
 
If CreateGadgetList(WindowID(0))
 ListIconGadget(1,10,10,300,220,"Icon #",280)
 ;SetGadgetAttribute(1, #PB_ListIcon_DisplayMode, #PB_ListIcon_LargeIcon)
 count.l = ExtractIconEx_("C:\WINDOWS\system32\shell32.dll",-1,0,0,0)
  For i = 0 To count - 1
   hIcon.l = 0
   ExtractIconEx_("C:\WINDOWS\system32\shell32.dll",i,0,@hIcon,1)
   AddGadgetItem(1,-1,"Icon #" + Str(i),hIcon)
  Next
EndIf
 
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow

Cordialement,
GallyHC

[Backup]

oui , il suffit de changer la ligne 108 par

Code : Tout sélectionner

Global FolderIcon = GetAssociatedFileIcon("c:\Windows", #SHGFI_LARGEICON) ; pour les icones de la listes distante

c'est a dire que je prends comme refererence l'icone qui sert de dossier a Windows
et tu aura ton icone de dossier Standard ... , je change le code .. Merci