Découvrons dans ce nouveau tuto comment uploader des fichiers PDF en utilisant HFSQL comme base de donnée

Découvrir sur la fonction URI : https://doc.pcsoft.fr/?1000024262

FichierSelectionner est un URI = URISélecteur("application/pdf")



ExtraitNomfichie est une chaîne = fExtraitChemin(FichierSelectionner, fFichier + fExtension)



Choix_fichier = ExtraitNomfichie

PROCÉDURE MaFenêtre()



NouveauChemin est une chaîne = fRepExe() + "/Fichier PDF/"







HFichierExiste(fichiers)

HOuvre(fichiers)









ZoneRépétéeSupprimeTout(ZonFichierPDF)



HLitPremier(fichiers, IDfichiers)



TANTQUE HEnDehors() = Faux

	ZoneRépétéeAjoute(ZonFichierPDF, fichiers.nomFichier)

	HLitSuivant(fichiers)

	

	ZoneRépétéeAffiche(ZonFichierPDF,taDébut)

FIN

NouveauChemin = fRepExe() + "/Fichier PDF/"



SI fRepExiste(NouveauChemin) = Vrai ALORS

	fCopieFichier(Choix_fichier, NouveauChemin)

	

//	Enregistrement dans la base de données



	fichiers.nomFichier = Choix_fichier

	HAjoute(fichiers)

	Info("Fichier Enregistrer")

	

SINON

	fRepCrée(NouveauChemin)

	fCopieFichier(Choix_fichier, NouveauChemin)

	

	//	Enregistrement dans la base de données

	

	fichiers.nomFichier = Choix_fichier

	HAjoute(fichiers)

	Info("Fichier Enregistrer")

FIN



ZoneRépétéeSupprimeTout(ZonFichierPDF)



HLitPremier(fichiers, IDfichiers)



TANTQUE HEnDehors() = Faux

	ZoneRépétéeAjoute(ZonFichierPDF, fichiers.nomFichier)

	HLitSuivant(fichiers)

	

	ZoneRépétéeAffiche(ZonFichierPDF,taDébut)

FIN