Mon FTP

Vous pourrez trouver sur mon webdav un zip de "Mon FTP"
Je sais, je ne me suis pas cassé la tête pour le nom    mais je ne savais pas trop comment le nommer...

Une fonction n' est pas encore codé...enfin... elle l' est, mais encore en cours de tests  .
Le source est un assemblage et contient kgf_sub.

Voilà, je vous laisse voir si cela fonctionne pour vous avec vos sites...
( cela fonctionne avec "Panoramic le mag" même si les coupures serveur sont fréquentes )

Ah un petit FTP en pano !
Je vais tester voire ce que cela donne !

oh
Dès que je lance la compilation j'ai un (32) Illegal instruction. Line 1.

Comme ça se fait ?
Merci

Certainement ton chemin qui n'a pas été mis à jour.

Relance ou mets la variable Path$ avec le chemin de ton appli avec les noms courts.

Il y a cela dans le code :

Code:

  path$ = dir_current$
  dir_file$ = path$+"\MFTP_files"
  dir_img$  = path$+"\MFTP_files\MFTP_img"
  dir_temp$ = path$+"\MFTP_files\MFTP_temp"

Donc normalement c'est bon non ? Enfin je crois ça fait des mois que je n'ai pas touché au panoramic..

Lors des premier lancement du programme, le dir_current$ n'est pas toujours bon quand tu lances depuis l'éditeur. Normalement, en relançant juste après, ça devrait marcher. Si tu veux t'ôter tout doute sur ce point, en inscrivant le chemin de base en dur dans path$ tu sera certain que l'erreur vient ou non de ce chemin.
Vérifies aussi que le répertoire: MFTP_files\MFTP_temp a bien été créé

Nope c'est toujours pareil..

J'ai testé et ça marche pour moi - La première fois j'ai eu une erreur (problème classique de prise en compte du répertoire courant) et à partir de la deuxième fois, la fenêtre avec Mon FTP se lance bien. PS: se problème de premier lancement ne se produit que sous l'éditeur (si le programme est sous forme d’exécutable, le problème ne se pose pas)

J' ai changé le zip sur mon webdav.

Celui ci contient le *.exe
J' ai rajouté la fonction de Maj complète mais bon c' est à vos risques et périls, j' ai pas pu tout tester... 
En principe cette fonction regarde si les fichiers du dossier local sont sur le serveur et les ajoutes si il n' y sont pas.

L' explorateur de fichier fonctionne sur deux niveaux pour l' instant ( parent-enfant et retour ).

Pour accéder au contenu d' un dossier sur le list du serveur, il faut utiliser un double clic et pareil pour le retour (.../...)
le simple clic est pris pour la sélection de l' item qui sert dans les fonctions annexes. 
Côté local, un simple clic suffit.

Pour récupérer le source, un coup de " Recover source" et le tour est joué.

ATTENTION !

A la première connexion, le pare feu risque de bloquer le remplissage du list côté serveur.
Une fois l' autorisation faite, pour débloquer, cliquer sur déconnexion puis re-cliquer pour vous reconnectez.

Par contre, je n'arrive pas à me connecter sur mon ftp.

Quelle est la forme de l'adresse du serveur qu'il faut entrer ?
Actuellement j'ai rentré cette adresse: ftp://ftp-web.funpic.org/

Il me dit toujours qu'il ne trouve pas le serveur pour le moment.

ftp-web.funpic.org

Par contre j' ai des accès violation du module MFTP quand je ferme mais je n' arrive pas à traduire
ce que cela veut dire sauf qu' il me reste un processus panoramic.exe derrière...

Je comprends pas trop car la procédure "Fermer" ferme toutes les zones de surveillance bouton images, la connexion serveur,
la dll... 

Ok je teste cela ce soir
Oui si tu met ftp://ftp-web.funpic.org/ bah c'est pour un accès via HTTP, pas en FTP

OK demenvil, je t'envois les codes d'accès en MP par contre impossible de me connecter ici en utilisant monftp. Je testerais de chez moi ce soir (peut être une sécurité sur le réseau qui bloque)

PS: Accès au ftp envoyés
Adresse pour voir ce que ça donne: http://panoramic.funpic.org/ (Pour l'instant, il n'y a qu'une vieille version du site dessus puisque ce site avait était abandonné)

=> Ceci est donc le site de test - ne pas communiquer sur cette adresse, c'est juste pour tester et proposer les modifs à Ygeronimi (côté ergonomie pour les MAJ) et à tous les Panoramiciens pour l'utilisation, l'ergonomie d'utilisation, le visuel, etc ...

=> C'est un peu lourd, mais comme le process se veut le plus démocratique possible, on soumet tout aux votes, propositions etc... C'est Ygeronimi qui s'en occupe en tant que rédacteur en chef et qui tranche après en fonction des échanges sur les questions et propositions faites

Sûrement le parefeu... 

Vous êtes gentils mais si vous faites des modif que je ne peux pas gérer en édition...
JE FAIS COMMENT !!!!

Tout ce que je cherchais, ce sont quelques scripts qui me facilite la tâche et que j' intègre à ce qui existe
Pas une usine à gaz ingérable en php.                 

Mon ami ^^
Si les choses sont bien faites en php Toi n'a pas à te prendre la tête ^^
Je m'occupe du côté technique et programmation, vous me ferez passer vos idées après dans le temps
Par contre il serait pas mal de prendre un nom de domaine.
Un gros gain en visibilité sur le net

Nous petites gens
Pas argent , argent trop cher....

En prime, un truc que je ne peux pas bidouiller moi même, m' emmerde royalement.

(  une perte de connexion )

bon sur ce, je dois m' absenter...

Nom de domaine = argent => Problème puisqu'il faut que quelqu'un paye tous les ans et ça pose un problème de pérennité si quelqu'un prend en charge le nom de domaine puisque s'il ne paye plus, l'adresse sera redistribuée.

Pour ygeronimi: si le code est bien fait (et je pense qu'il les sera pour avoir déjà vu des codes de demenvil sur son site), c'est assez facile à modifier (le créer c'est autre chose, il est souvent difficile de faire simple surtout quand on manque d'expérience)

C'est aussi pour ça que les tests sont faits sur un site autonome. On regarde, on propose, on farfouille les entrailles du site pour voir les mécaniques qui peuvent être mises en place pour te faciliter la vie et après tu prends ou pas (un peu comme quand tu as faits le site, on a adhéré à ta maquette). On peut voir ça comme une maquette V2 (une possible évolution). On travaille sur la maquette, on voit ce que ça apporte, et après on prend ou non, voir même on maintient les 2 sites si on veut, c'est un détail, le plus important étant que le travail sur les articles soit disponible et que les lecteurs puissent y accéder.

Je dirais même que plus il y aura des sites miroirs mieux ce sera puisque cela permettra de diffuser la connaissance et diminuera le risque de voir disparaître les informations par exemple en cas de fermeture de l'hébergeur. Par contre il faut que les sites miroirs renvoient clairement sur le site source: http://monpanoramic.funpic.org/ pour que si les gens se connectent dessus, si celui qui fait le miroir ne le maintient pas à jour, puissent continuer d'avoir accès aux informations. (Il peut même je pense y avoir un script sur la page du site Miroirs qui regarde si la version mise sur le Miroir correspond à celle disponible sur monpanoramic.funpic.org).

@ygeronimi Oui t’inquiètes pas je vais faire un truc le plus propre et je documenterai le maximum le code

@Ygeronimi:
regarde mon programe update_site_FTP.bas, fonction "déconnecter". Avant de sortir du programme, il faut appeler la fonction qui ferme le lien FTP et qui libère les ressources de la DLL. Sinon, violation d'accès...

La dernière version est ici:
https://panoramic.1fr1.net/t3075-238-du-27-mai-2013-nouvelle-fonction-getactiveftpdirectory#34825
dernier poste de 11h09.

@ Klaus,

Voilà la fonction/procédure de "Fermer"

Code:

sub init_appli()
   dim_local res%
   hide_cont():show fond%
   if etat%=1
      res%=dll_call0("CloseFTP")
      etat%=0
      font_color e_etat_serv%,255,0,0
   end_if
   name_site$=""
   dos$=""
   pwd$=""
   id$=""
   server$=""
   text e_fich_loc%,""
   text e_serv%,""
   text e_login%,""
   text e_pwd%,""
   clear list_local%
   clear list_serv%
end_sub

et voilà celle de sortie par la croix, j' ai squizzer un "Quitter" dans le menu.

Code:

close0:
   stopsurvey(cont_site%)
   stopsurvey(cont_param%)
   if fen_new% >0    :stopsurvey(fen_new%)    :end_if
   if fen_choix% >0  :stopsurvey(fen_choix%)  :end_if
   if fen_supp% >0   :stopsurvey(fen_supp%)   :end_if
   if fen_add_dir% >0:stopsurvey(fen_add_dir%):end_if
   dll_off
return

Je ne me rappelle plus ce que j' ai fait tout à l'heure.
J' ai peut être quitter par la croix avec la connexion ouverte.
Je vais mettre une sécurité sur la fermeture par la croix.

J' ai ajouté la sécurité et apparemment...plus de bug... 
J' ai changé le zip sur mon webdav, il est à jour.


Maintenant, il ne me reste qu' à tout reprendre pour éclaircir le code...

Avant de faire DLL_OFF, l faut être certain d'avoir appelé Close_FTP. Et puisque tu désactives des "survey" de divers objets, il faut être certain que tous les évènements présents en file d'attente soient éliminés par Windows. Je te conseille d'ajouter unpetit quelque chose devant le DLL_OFF, mais pas la commande WAIT, car les évènements ne seront pas purgés ! Fais plutôt une petite boucle avec quelques dizaines de commandes DISPLAY - ça devrait passer.

J' ai ajouté un "Pause 1000" ce qui permet d' avoir l' affichage du fond pendant ce temps là en prime.

C'est pas mal. Ca devrait marcher, à condition de placer PAUSE après Close_FTP et juste avant DLL_OFF.