Page 2 sur 2
Re: PURE FTP
Publié : dim. 10/mars/2013 20:17
par 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"
Re: PURE FTP
Publié : dim. 10/mars/2013 20:43
par 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
Re: PURE FTP
Publié : dim. 10/mars/2013 21:25
par doudouvs
@dobro Oups toutes mes excuses
Re: PURE FTP
Publié : dim. 10/mars/2013 21:34
par Backup
no blemes
Re: PURE FTP
Publié : lun. 11/mars/2013 14:29
par Backup
doudouvs a écrit :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
Re: PURE FTP
Publié : lun. 11/mars/2013 14:41
par doudouvs
Cool c'est du rapide
Re: PURE FTP
Publié : jeu. 14/mars/2013 14:36
par 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 ...
Re: PURE FTP
Publié : lun. 18/mars/2013 13:48
par 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
Re: PURE FTP
Publié : lun. 18/mars/2013 15:39
par 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
Re: PURE FTP
Publié : lun. 18/mars/2013 17:09
par 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