KGF.dll - nouvelles fonctions FileOpen et FileCreate

J'ai ajouté deux nouvelles fonctions à ma DLL. Elles peuvent remplacer les objets open_dialog et save_dialog ainsi que la commande filter et la fonction file_name$. Le petit plus est la possibilité de choisir le dossier de départ, à chaque appel.

Ces fonctions sont destinées à ceux qui ont un besoin urgent de paramétrer le répertoire de racine pour la recherche. Je sais que Jack sortira prochainement une fonction permettant de faire cela, alors mes routines feront double emploi. Elles peuvent même être utilisées simultanément aux open_dialog et save_dialog de Panoramic car il n'y a pas de conflit.

Voici les fonctions:

Code:: dim res%, racine$, filtre$, fichier$

' pour sélectionner un fichier existant:
racine$ = "C:\Program Files" : ' juste un exemple !
filtre$ = "Exécutables|*.exe" : ' identique au filtre en Panoramic
fichier$ = string$(255) : ' CAPITAL ! il faut réserver la place !
res% = DLL_call4("FileOpen",adr(root$),adr(filtre$),adr(fichier$),len(fichier$))
select res%
case 0
' ici, on a abandonné la recherche par le bouton abandon ou la croix rouge
case 1
' ici, on a choisi un fichier existant, le nom est dans trim$(file$)
case 2
' ici, on a spécifié un nom de fichier inexistant, le nom est dans trim$(fichier$)
end_select

' pour créer un nouveau fichier:
racine$ = "C:\Program Files" : ' juste un exemple !
filtre$ = "Exécutables|*.exe" : ' identique au filtre en Panoramic
fichier$ = string$(255) : ' CAPITAL ! il faut réserver la place !
res% = DLL_call4("FileCreate",adr(root$),adr(filtre$),adr(fichier$),len(fichier$))
select res%
case 0
' ici, on a abandonné la recherche par le bouton abandon ou la croix rouge
case 1
' ici, on a spécifiéi un nom de fichier inexistant, le nom est dans trim$(file$)
case 2
' ici, on a choisi un fichier existant, le nom est dans trim$(fichier$)
end_select

Nouveauté: la DLL est maintenant distribuée en fichier ZIP pour des raisons de taille.

» Fais_moi un diaporama
» WebBrowser sur une form Panoramic !
» Des nouvelles de Linguassista.
» Des nouvelles du Trojan
» Nouvelles DLL bonus