FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» track_bar circulaire
par pascal10000 Aujourd'hui à 13:13

» API Windows
par Klaus Aujourd'hui à 3:21

» KGF.dll - demandes ou suggestions de modifications ou ajouts
par pascal10000 Hier à 17:49

» Cartes de voeux, menus, etc.
par JL35 Hier à 17:48

» Mah-Jong européen new-look
par jjn4 Hier à 15:48

» a l'aide klaus
par Minibug Hier à 11:42

» KGF_dll - nouvelles versions
par Minibug Hier à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Hier à 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Projet FTP basé sur la dll tcp4panoramic de D.J Peters

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 18:44

bonsoir voici un programme basé sur la dll de D.J.peters tcp4panoramic
pour fonctionner il faut la dll et les 2 fichier include
Code:
left 0,300
font_color 0,255,255,255
top 0,350
 width 0,400
 height 0,200
hide 0
main_menu 89
container 84
hide 84
 top 84,130
 width 84,380
 left 84,2
 caption 84,"Message du Serveur distant"
 height 84,80
rem Creation of 2 sub_menus at the same level
sub_menu 88 : caption 88,"Fichier" : parent 88,89
sub_menu 87 : caption 87,"Freebox en local" : parent 87,89
sub_menu 86 : caption 86,"Memoriser Compte" : parent 86,88
sub_menu 85 : caption 85,"A propos" : parent 85, 89
sub_menu 851 : caption 851,"A propos" : parent 851, 85
sub_menu 881 : caption 881,"Quitter" : parent 881,88
' example FTP STOR with log
rem trace_on "c:\trace.txt"
' TCP interface
#include "TCP_INCLUDE.bas"
' optinal use logging can be a hidden DLIST or LIST, or MEMO
MSG_LOG% = 10: memo MSG_LOG% :parent MSG_LOG%,84 : bar_none MSG_LOG%  : ' (bar_both only for MEMO)
hide MSG_LOG%
color MSG_LOG%,0,0,0
' FTP interface
#include "FTP_INCLUDE.bas"

' optional
if MSG_LOG%<>0
full_space 0
rem full_space MSG_LOG%
  font_name  MSG_LOG%,"Courier New"
top MSG_LOG%,15
width MSG_LOG%,370
height MSG_LOG%,60
left MSG_LOG%,5
left 0,300
top 0,350
 width 0,400
 color 0,75,74,81
 font_color 0,255,255,255

rem dim formdebut$
rem formdebut$=number_objects-1

  caption 0,"FTP test"
  alpha 666
  top 666,100
  left 666,2
  caption 666,FTP_SOURCE$
end_if

dim i%,t$,menu1$,menu2$,menu3$,cont2$,i,c$,sauv$
dim menu4$,menu5$,menu6$,bouton1$,cont1$,dial1$,src$
dim server$,user$,mdp$,disloc$,g$,fbv6$,chemin$,compte$
fbv6$="\\freebox\Disque dur"
g$="
disloc$="net use y: "+g$+fbv6$+g$
user$="freebox"
server$="freebox"
mdp$="mot de passe"
t$="Autres Dossiers"
label choix2,apropos2,apropos3,aide,codeco,crypt,testftp
label suite,suite4,suite5,suite6,suite7,suite8
label quit2,ouvrir
label ident,identf,mess1

caption 0,FTP_SOURCE$
caption 0,"FTP-connecté à " + FTP_SERVER$
container_option number_objects+1
top number_objects,2
left number_objects,2
height number_objects,130
width number_objects,130
caption number_objects,"Dossier Freebox V6"
height number_objects,120
font_color number_objects,255,255,255
cont1$=number_objects
option number_objects+1 : parent number_objects,cont1$
top number_objects,15 : left number_objects,10 : caption number_objects,"Téléchargements"
menu1$=number_objects
option number_objects+1 : parent number_objects,cont1$
top number_objects,35 : left number_objects,10 : caption number_objects,"Vidéos"
menu2$=number_objects
option number_objects+1 : parent number_objects,cont1$
top number_objects,55 : left number_objects,10 : caption number_objects,"Musique"
menu3$=number_objects
rem option number_objects+1 : parent number_objects,cont1$
rem top number_objects,75 : left number_objects,10 : caption number_objects,"Photos"
rem menu4$=number_objects
picture 99
top 99,78
left 99,120
height 99,64
width 99,64
file_load 99,"upload64.jpg"
picture 83
top 83,15
left 83,140
height 83,30
width 83,78
file_load 83,"icon_login.jpg"
option 97 : parent 97,cont1$
top 97,75
left 97,10
caption 97,"Photos"
menu4$=97
option 91 : parent 91,cont1$
top 91,95
left 91,10
caption 91,"Autres Dossiers"
menu5$=91
container 80
Caption 80,"Identification"
top 80,2
width 80,200
height 80,80
left 80,140
hide 80
alpha 98 :parent 98,80
caption 98,"Serveur FTP"
top 98,20
left 98,5
width 98,100

alpha 96 : parent 96,80
caption 96,"Utilisateur"
top 96,40
left 96,5
alpha 95 : parent 95,80
caption 95,"Mot de Passe"
top 95,60
left 95,5
combo 94 :text 94,"Serveur" : left 94,75 :top 94,11 : item_add 94,server$ :parent 94,80
item_add 94,"hd1.freebox.fr"
font_color 94,0,0,0
edit 93 : left 93,75 :top 93,31 : text 93,user$ :parent 93,80
font_color 93,0,0,0
edit 92 : left 92,75 :top 92,51 : text 92,mdp$ :parent 92,80
font_color 92,0,0,0
edit 90 :hide 90 : left 90,30 :top 90,95 : text 90,t$ :width 90,85
font_color 90,0,0,0
secret_on 92

form 771
hide 771
color 771,75,74,81
font_color 771,255,255,255
border_small 771
left 771,700
top 771,450
width 771,245
height 771,200
caption 771,"A propos..."
picture 761 :parent 761,771
left 761,2
top 761,2
height 761,90
width 761,150
file_load 761,"freea.jpg"
alpha 751 : parent 751,771
caption 751,"FTP Fbv - FreeAddOns"
left 751,1
top 751,50
alpha 311 : parent 311,771
caption 311,"Version:      0.2c"
left 311,1
top 311,70
alpha 321 : parent 321,771
caption 321,"Auteur: William Meunier"
left 321,1
top 321,90
alpha 331 : parent 331,771
caption 331,"Site Web: http://freeaddons.free.fr"

font_color 331,255,0,0
font_underline 331
left 331,1
top 331,110
alpha 341 : parent 341,771
caption 341,"Contact: freeaddons@free.fr"
left 341,1
top 341,130
button 261 : parent 261,771
top 261,130 : left 261,150 : caption 261,"Fermer"
button 8000
caption 8000,"test"
height 8000,20
width 8000,30
top 8000,85
left 8000,340
on_click 8000,testftp
on_click 261,apropos3
on_click 881,quit2
on_click 0,ident
on_click 87,mess1
on_click 80,identf
on_click 83,ident
on_click 99,ouvrir
on_click 851,apropos2
on_click 331,aide
on_click menu1$,suite4
on_click menu2$,suite5
on_click menu3$,suite6
on_click menu4$,suite7
on_click menu5$,suite8
on_click 86,crypt
inactive 90
hide 90
form 2001
hide 2001
form 3050
hide 3050
print_target_is 3050
if file_exists(dir_current$+"\compte\compte.txt")=1 then gosub ident


combo 3060
text 3060,"Comptes favoris"
item_add 3060,"TEST"
rem file_load 3060,g$+dir_current$+"\Compte\compte.txt"+g$
top 3060,85
left 3060,210
height 3060,80
width 3060,130
rem font_color 3060,0,0,0
rem memo 4060 :parent 4060,3060
rem top 4060,2
rem left 4060,22
rem height 4060,56
rem width 4060,84
rem item_add 3060,(g$+dir_current$+"\compte\compte.txt"+g$)
left 99,140
height 99,64
width 99,64
show 0
end


ouvrir:
file_load 99,"ftp.jpg"
hide 3060
height 0,280
show 84
show MSG_LOG%
rem text 90,t$
t$=text$(90)
rem active cont1$
FTP_SERVER$  = text$(94)
FTP_USER$    = text$(93)
FTP_PASSWORD$ = text$(92)
open_dialog number_objects+1
FTP_SOURCE$=file_name$(number_objects)
caption 0,FTP_SOURCE$

goto suite

choix2:
end

suite4:
t$="Disque dur/Téléchargements"
text 90,t$
return

suite5:
t$="Disque dur/Vidéos"
text 90,t$
return

suite6:
t$="Disque dur/Musiques"
text 90,t$
return

suite7:
t$="Disque dur/Photos"
text 90,t$
hide 90
return

suite8:
active 90
show 90
return

ident:
hide 83
show 80
return

identf:
show 83
hide 80
return

suite:

caption 84,"Message de"+FTP_SERVER$

caption 0,FTP_SOURCE$



' source file must readable for TCP/FTP upload !
TCP_ADR%=adr(FTP_SOURCE$)
gosub TCPFileExists
if TCP_RESULT%=0
  i% = message_error_ok("no file no fun !")
  return
  else
  end_if

left 99,180
height 99,48
width 99,48


' extract filename from source path
i%=len(FTP_SOURCE$)
while i%>1
  if mid$(FTP_SOURCE$,i%,1)="\" then exit_while
  i%=i%-1
end_while
FTP_TARGET$= right$(FTP_SOURCE$,len(FTP_SOURCE$)-i%)
left 99,200
height 99,48
width 99,48


' connect
caption 0,FTP_SOURCE$
gosub FTPCONNECT
rem caption 270,FTP_SERVER$
if FTP_OK%=1
rem caption 270,FTP_USER$
caption 0,"Utilisateur: "+FTP_USER$
left 99,220
height 99,48
width 99,48

else
end_if
if FTP_OK%=0
  i% = message_error_ok("connexion refusée !")
rem  caption 270,FTP_SERVER$
rem  caption 270,FTP_USER$
    else
end_if

left 99,240
height 99,48
width 99,48


' get folder list
gosub FTPLIST
if FTP_OK%=0
  i% = message_error_ok("parcours dossier distant impossible")


  return
  else
end_if

item_add MSG_LOG%,FTP_DIR$

' store FTP_SOURCE$ on server as FTP_TARGET$
FTP_DIR$ = "../"+t$
if FTP_Ok%=1
left 99,260
height 99,48
width 99,48

caption 0,"FTP-copie vers "+t$+"/"+FTP_TARGET$+" en cours"
wait 350
else
end_if

  gosub FTPCWD
  item_add MSG_LOG%,FTP_DIR$
gosub FTPSTOR
if FTP_OK%=0
  i% = message_error_ok("Dossier non trouvé")
  else
  caption 0,"FTP-copie de "+FTP_TARGET$+" vers "+FTP_SERVER$+" Ok!"
wait 350
  return
end_if
item_add MSG_LOG%,FTP_DIR$
chemin$=FTP_DIR$

if FTP_OK%=0
  i% = message_error_ok("Envoi de " + FTP_SOURCE$+"vers"+FTP_SERVER$+ impossible")
  terminate
end_if

' get folder list again
' you should see your fresh uploaded file
FTP_DIR$ = "/"+t$
gosub FTPCWD
gosub FTPLIST
if FTP_OK%=0
  i% = message_error_ok("can't get folder list !")
  terminate
end_if



item_add MSG_LOG%,FTP_DIR$

' disconnect
gosub FTPDisconnect
left 99,140
height 99,64
width 99,64
  caption 0,"FTP fbv-Connexion à "+FTP_SERVER$+" fermé"
show 3060
return

quit2:
terminate
end

mess1:

execute disloc$
return

apropos2:
show 771
return

apropos3:
hide 771
return

aide:

EXECUTE "http://freeaddons.free.fr/"
return

crypt:
rem show 3050
message "compte sauvegardé"
FTP_SERVER$  = text$(94)
FTP_USER$    = text$(93)
FTP_PASSWORD$ = text$(92)
print_target_is 3050
mdp$=text$(92): ' mot de passe (par exemple)
GOSUB Codeco: ' codage
PRINT c$
mdp$=c$
GOSUB Codeco: ' décodage
PRINT c$
file_open_write 3051,dir_current$+"\compte\"+text$(94)+"_"+text$(93)+".txt"
rem écrire une ligne dans ce fichier
file_writeln 3051,text$(93)+":"+mdp$+"@"+text$(94)
rem le fermer
file_close 3051

print text$(94)
print text$(93)
print text$(92)
rem print g$+text$(94)+"_"+text$(93)+".txt"+g$"
return

Codeco:
c$=""
FOR i=1 TO LEN(mdp$)
  c$=c$+CHR$(BIN_XOR(ASC(MID$(mdp$,i,1)),33))
NEXT i
RETURN
testftp:
FTP_SERVER$  = text$(94)
FTP_USER$    = text$(93)
FTP_PASSWORD$ = text$(92)
gosub FTPCONNECT
rem caption 270,FTP_SERVER$
if FTP_OK%=1
rem caption 270,FTP_USER$
caption 0,"Utilisateur: "+FTP_USER$
wait 350
caption 0,"testconnexion ok"
else
caption 0,"Utilisateur: "+FTP_USER$
wait 350
caption 0,"connexion echoué"
end_if
gosub FTPDisconnect

return


Dernière édition par wiwi60 le Mer 14 Déc 2011 - 18:55, édité 2 fois
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 18:49

Heu... elle n'est pas de moi la dll :
C'est D.J Peters qui nous a offert ce petit bijou ! Wink
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 18:50

je rectifie!!!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 18:52

Nardo comme tu as l'air expert y a til un moyen de lister les dossiers et fichiers sur le ftp?
Comment faire avec open dialog pour une selection multiple en local?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 19:00

Tu veux dire dans un programme Panoramic ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 19:01

oui tout a fait
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 19:07

Pour le distant, tu vas être obligé de tout faire à la mimine. Tu peux t'appuyer sur les commandes suivantes:

- FTPLIST, FTPMLSD, FTPNLST pour récupérer le contenu d'un dossier sous différentes formes.

- FTPCWD pour changer de répertoire,
etc...

Regarde sur mon site, tu as la liste des commandes disponibles...

Pour la sélection multiple, je ne vois pas de solution...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 19:13

oui je croit que ca va etre dur dur pour moi le debutant!!!
j'aimerait faire quelque chose de simple et pratique :

la possibilité de parcourir le ftp

Pour l'instant j'essai de sauvegarder des logins que l'utilisateur enregistre et peut recuperer apres le lancement du programme j'ai creer des fichiers txt je sais pas si c la solution la plus correcte
serveur_user.txt et dedans le mdp crypté
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Nardo26

avatar

Nombre de messages : 2294
Age : 49
Localisation : Valence
Date d'inscription : 02/07/2010

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 20:54

C'est pas si compliqué que ça si tu procède étape par étape...
Par exemple pour afficher dans une liste ce que tu as à la racine de ton compte distant :
Code:

#include "tcp_include2.bas"
#include "ftp_include2.bas"

FTP_SERVER$ = "ftp.xxxxxxxx.xxx"
FTP_USER$ = "username"
FTP_PASSWORD$ = "password"

LABEL Analyse
ALPHA 1
LIST 2:TOP 2,20: WIDTH 2,300: HEIGHT 2,HEIGHT(0)-70
DIM I,fichier$

' on établi la connection avec le serveur FTP
CAPTION 1,"Etat : Connection en cours..."
gosub FTPConnect
if FTP_OK% = 1
  CAPTION 1,"Etat : Connection établie !"
  GOSUB FTPLIST
  MESSAGE FTP_DIR$
  FOR I=1 TO LEN(FTP_DIR$)
    if mid$(FTP_DIR$,I,1)<>chr$(10)
      fichier$=fichier$+mid$(FTP_DIR$,I,1)
    else
      GOSUB Analyse
    end_if
  NEXT I
  SORT 2
  gosub FTPDisconnect
  CAPTION 1,"Etat : Déconnecté"
ELSE
  CAPTION 1,"Etat : Echec de connection!"
END_IF
END

Analyse:
  DIM Analyse_rep,Analyse_I
  DIM Analyse_a$
  IF LEN(fichier$)=0 THEN RETURN
  ' test si c'est un répertoire
  IF Left$(fichier$,1)="d" THEN Analyse_rep=1
  ' manque rtrim... ;)
  FOR Analyse_I=LEN(fichier$)-1 TO 1 STEP -1
    IF MID$(fichier$,Analyse_I,1)=chr$(9) then EXIT_FOR
    IF MID$(fichier$,Analyse_I,1)=" " then EXIT_FOR
    Analyse_a$=MID$(fichier$,Analyse_I,1)+Analyse_a$
  NEXT Analyse_I
  IF Analyse_rep=1 THEN Analyse_a$=" ["+Analyse_a$+"]"
  ITEM_ADD 2,Analyse_a$
  fichier$=""
  FREE Analyse_rep: FREE Analyse_I: FREE Analyse_a$
RETURN
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://nardo26.lescigales.org
wiwi60



Nombre de messages : 57
Date d'inscription : 21/11/2011

MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   Mer 14 Déc 2011 - 22:05

Pas compliqué!!!! ecoute je decode toute la logique je te dit ca mdr

le debutant!! scratch scratch
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://freeaddons.free.fr
Contenu sponsorisé




MessageSujet: Re: Projet FTP basé sur la dll tcp4panoramic de D.J Peters   

Revenir en haut Aller en bas
 
Projet FTP basé sur la dll tcp4panoramic de D.J Peters
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Mon dernier projet
» [PROJET] Jeu de Plateforme - Commentaires
» [Projet] MMORPG: "Xeladora"
» 3D pour un projet en Stage
» Problème création projet !!

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos projets-
Sauter vers: