ATOUTFOX
    COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO

Forum AtoutFox

Le forum AtoutFox

Forum

RSS © www.atoutfox.org - Forum

Re: SQL Server 2012 et FoxPro 9 SP2
Bonjour,

il y a plusieurs fonctions qui peuvent t'interesser :
TRANSFORM()
TTOC()
TTOD()

est-ce que tu as accès à l'aide de vfp9 ?

Bon dimanche
Jean

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Sun, 01 Jun 2025 05:24:36 GMT

SQL Server 2012 et FoxPro 9 SP2
Bonjour à tous,

Je developpe une application avec Visual Foxpro 9. La base de données et SQL.
J'ai des difficultés à manipuler les champs datetime de sql avec FoxPro.

Je souhaite recuperer et afficher les datetime SQL au format date de Foxpro (DD/MM/YY).

Quelqu'un pourrait-il m'aider SVP??

Merci !


Fri, 30 May 2025 05:24:36 GMT

Re: Requete SQL
Jean à Grenoble avait écrit le 19-05-25 :
> la syntaxe générale est
> UPDATE nom_de_la_table SET lechamp = la_valeur_à_mettre WHERE la_condition_du
> filtre
>
> sans ; à la fin pour VFP, avec un ; pour Postgre !
>
> Bonne soirée
> Jean

Jean

Voici la commande:
UPDATE `act_div3` SET `LIBRE` = REPLACE(`LIBRE`, 'Anonyme', 'GED cercle
Hist. REBECQ') WHERE `LIBRE` LIKE '%Anonyme%' COLLATE utf8mb4_bin
Générée via l'éditeur.
Tout se passe coreectement, mais il n'affiche pas le résultat.
Je cherche le pourquoi, est-ce une limitation du serveur ou autre.

--
Guy Bonemme

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Thu, 29 May 2025 05:24:36 GMT

Re: décompilation
refox lui même il me semble....
même si un gars à sortie la décompilation refox il me semble
sinon : il y a VPA : JCR pourra peut être nous dire si cela protége la "décompilation"

à noter dans l'environnement .NET : le code généré est de l'IL est c'est exactement même sujet

reste technique d'obfuscation...


Wed, 28 May 2025 05:24:36 GMT

Re: Requete SQL
Jean à Grenoble a couché sur son écran :
> Bonsoir Guy,
>
> d'après ce que je comprend, une partie de l'import du .csv a déjà été faite
> mais avec l'erreur dans le champ validation et il ne faut pas refaire
> l'importation des ces lignes. Une autre partie du .csv n'a pas encore été
> importée et il faut le faire mais il n'y a pas de problème de doublon.
>
> est-ce que c'est cela ?
>
> De toutes façons, a mon humble avis, il faut créer un CURSOR à partir du
> .CSV. Puis faire un UPDATE de la table pour modifier le champ validation pour
> les lignes de la table dont le champ validation contient "Anonyme" ou
> "Anonyme2" et dont les champs date, nom et prénom sont présents dans le
> CURSOR.
> Puis faire un INSERT des ligne du CURSOR dont les champs date, nom et prénom
> ne sont pas dans la table avec la bonne valeur pour le champ validation.
>
> est-ce qu'on s'approche de la solution ?
>
> Cordialement,
> Jean

Pour la solution c'est correct mais je ne sais pas si dans PHP admin
je peux créer un curseur (CURSOR à partir du > .CSV ? de la table
actuelle 275000 lignes sur base du contenu du champ "Validation"
Je vais retester. a suivre

--
Guy Bonemme

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Thu, 22 May 2025 05:24:36 GMT

Re: Requete SQL
Bonsoir Guy,

d'après ce que je comprend, une partie de l'import du .csv a déjà été faite mais
avec l'erreur dans le champ validation et il ne faut pas refaire l'importation
des ces lignes. Une autre partie du .csv n'a pas encore été importée et il faut
le faire mais il n'y a pas de problème de doublon.

est-ce que c'est cela ?

De toutes façons, a mon humble avis, il faut créer un CURSOR à partir du .CSV.
Puis faire un UPDATE de la table pour modifier le champ validation pour les
lignes de la table dont le champ validation contient "Anonyme" ou "Anonyme2" et
dont les champs date, nom et prénom sont présents dans le CURSOR.
Puis faire un INSERT des ligne du CURSOR dont les champs date, nom et prénom ne
sont pas dans la table avec la bonne valeur pour le champ validation.

est-ce qu'on s'approche de la solution ?

Cordialement,
Jean

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Tue, 20 May 2025 05:24:36 GMT

Re: Requete SQL
BONEMME a exprimé avec précision :
> Bonjour a tous
>
> Après une longue convalescence, j'essaye de me rappeler quelques
> notions de SQL.
> Je voudrais traiter une table via phpadmin dans laquelle, je dois remplacer
> dans un champs existant une autre valeur
> par une autre. Simple Vfox...mais ma némoire me fait défault sur la syntaxe.
>
> Merci d'avance
> Guy
> Ps pour Jean je passe bientôt le cap des 80 ans.
>
> --
> Guy Bonemme

Merci Jean
La table est partie d'un prog: PHP Expoacte,(pas de Postgres) que je
maintient ainsi que le site WEB, y compris les publications des 65
dernières années soit 65 x 4 (publications/an) x 100 pages. Toutes en
pdf et dans le cloud actuellement, accès aux membres seul.
Sur le site chfleron.be voir l'onglet 'Outils de recherches' et
'Geneabel'.
Suite a une erreur de manipulation et de restriction en alimentant
la table via des fichiers .CSV.
Le champ "Validation" à eté rempli par 'Anonyme' ou 'Anonyme2'
en lieu et place de "GED xyz" (nom de l'organisation déposantes.
Soit ca 15000 lignes dont une partie est déja enregistrée.
Pour éviter les doublons, un test sur la date, nom, prénom lors de
import de csv.

--
Guy Bonemme

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Tue, 20 May 2025 05:24:36 GMT

Re: Requete SQL
la syntaxe générale est
UPDATE nom_de_la_table SET lechamp = la_valeur_à_mettre WHERE la_condition_du filtre

sans ; à la fin pour VFP, avec un ; pour Postgre !

Bonne soirée
Jean

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Mon, 19 May 2025 05:24:36 GMT

Re: Requete SQL
Bonsoir Guy,

si tu utilises phpadmin, c'est que tu travailles avec Postgre : vrai ?

Peux tu nous donner un exemple de ce que tu veux faire ?

Bonne soirée
Jean


--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Mon, 19 May 2025 05:24:36 GMT

Requete SQL
Bonjour a tous

Après une longue convalescence, j'essaye de me rappeler quelques
notions de SQL.
Je voudrais traiter une table via phpadmin dans laquelle, je dois
remplacer dans un champs existant une autre valeur
par une autre. Simple Vfox...mais ma némoire me fait défault sur la
syntaxe.

Merci d'avance
Guy
Ps pour Jean je passe bientôt le cap des 80 ans.

--
Guy Bonemme

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Mon, 19 May 2025 05:24:36 GMT

Re: bonjour a tous Recherche developpeur Foxincloud
Bonjour Hervé,

Il n'y a pas vraiment de développeur FoxinCloud mais des développeurs VFP qui ont adapté leur application au Web grâce à FoxInCloud.
Comme la plupart des adaptations nécessitent une connaissance de l'application, seul son auteur peut les réaliser sans risque.

Pour apprendre à réaliser ces adaptations, tu peux :

1- utiliser l'assistant d'adaptation qui identifie les adaptations, les localise dans le code et t'indique comment procéder
2- consulter le 'tutorial vivant FoxInCloud' où chaque cas d'adaptation est illustré sur un exemple basique, le code source avant et après adaptation étant visible au survol de la souris ; si tu as installé l'atelier de développement FoxInCloud, le menu 'FoxInCloud' te procure un accès rapide à ce tutoriel en local et en distant ; sinon voici l'URL : https://foxincloud.com/tutotest/bs/
3- poser tes questions avec exemple de code ici même, ou si tu préfères l'anglais, sur https://support.west-wind.com/
4- solliciter notre assistance privée selon des conditions à te communiquer par MP si tu le souhaites.

Bonne adaptation !


Wed, 14 May 2025 05:24:36 GMT

Re: Extraction texte d'un PDF
* PTCMD.EXE es una utilidad que crea un fichero de texto a partir del PDF
cCOMANDO='PTCMD.EXE '+a_pdf+' '+architxt
#define SW_SHOW_HIDDEN 0
oShell = CreateObject("WScript.Shell")
oShell.Run(cComando, SW_SHOW_HIDDEN, .T.)
TEMP=INKEY(1)


Tue, 06 May 2025 05:24:36 GMT

Re: Affichage d'image distante dans un formaulaire
Bonjour,

Première étape, vous devez copier le lien de l'image vers une variable mémoire ou stocker ce lien dans un enregistrement de table.

Deuxième étape, dans votre formulaire ou programme insérez la ligne de commande :

lnRetorno = URLDownloadToFile(0, m_lien, m_dossier, 0, 0)


Tarso



Tue, 06 May 2025 05:24:36 GMT

Re: décompilation
Refox peut-il également protéger l'exécutable de la décompilation ?


Mon, 05 May 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
Je suis content que tu sois arrivé.

Merci pour votre attention.


Mon, 05 May 2025 05:24:36 GMT

décompilation
Bonjour,

Existe-t-il un moyen de protéger l'exécutable contre la décompilation par ReFox ?

Cordialement,


Mon, 05 May 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
C'est une application qui doit disparaitre depuis .... 2017 ^^
On ne veut pas passer du temps dessus.



Sinon un collègue a réussi à me dépanner.

L'état est en police Letter Gothic .
L'éditeur de PRG est en courrier new .

Il faut déja passer l'éditeur en Letter Gothic (clic droit, police .. ) pour avoir un aperçu équivalent entre le codage et l'éxécution.

Ensuite, il faut passer par la table de caractère de windows et copier le bon caractère.


Si ça peut aider querlqu'un dans le futur :-)





Tue, 29 Apr 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
... j'ai aussi utilisé Clipper dans le passé ...


Sat, 26 Apr 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
Bonsoir

Je comprends, j'ai aussi utilisé XXX dans le passé. Nous devions écrire les codes à la main. kkkk

Si vous le pouvez, essayez de créer les rapports avec le générateur de rapports et intégrez-les dans les codes, car vous aurez plus de ressources.
Je suis conscient que cela prendra beaucoup de temps.

Tarso


Sat, 26 Apr 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
Hello,

je te remercie pour ta réponse.

c'est la version 6 .
Si j'ai bien compris. c'est de l'ancien code clipper recyclé.

tout est fait par code. on dirait qu'il crée un DBF converti en rapport. ( fichier ._SP dans le code )




Fri, 25 Apr 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
Bonsoir,

Quelle version de Foxpro utilisez-vous ?

Dans votre projet, utilisez-vous des rapports créés avec le générateur de rapports "Modify Report" ?

Tarso



Fri, 25 Apr 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
Bonjour,

je te remercie pour ta réponse.

Je vais essayé de m'exprimer au mieux car je ne maitrise pas tout.
En fait, l'état est crée à partir d'un code en PRG .

Voici des exemples

[VFP] SPL_W(10,01,"ÚÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄ¿")
SPL_W(11,01,"³ Client ³ Nom du Client ³ Analyses Demand,es ³ Courrier ³ Fax ³ Total ³")
SPL_W(12,01,"ÃÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄ´")
[/VFP]

ou les "a bizzares" affichent des lignes horizontales ..


La fonction appelée

[vfp]
*-----------------------------------------------------------
* SPL_W() FONCTION ECRITURE DU SPOOL
* SPL_W(_lig,_col,_txt)
* _lig :Nø DE LIGNE
* _col :Nø DE COLONNE
* _txt :TEXTE A ECRIRE
* SI _lig=0 ---> SAUT DE PAGE
*-----------------------------------------------------------
FUNCTION SPL_W(_lig,_col,_txt)
_zone=SELECT()
SELECT _SPLF
GOTO BOTTOM
IF _lig=0
APPEND BLANK
REPLACE NULIG WITH 0 ,;
TEXTE WITH CHR(12)
SELECT(_zone)
RETURN .T.
ENDIF
_maxlig=NULIG
DO WHILE _maxlig < _lig
_maxlig=_maxlig+1
APPEND BLANK
REPLACE NULIG WITH _maxlig
ENDDO
DO WHILE _maxlig > _lig
_maxlig=_maxlig-1
SKIP -1
ENDDO
IF NULIG=_lig
REPLACE NULIG WITH _maxlig,TEXTE with STUFF(TEXTE,_col,LEN(_txt),_txt)
ENDIF
SELECT(_zone)
RETURN .T.

[/vfp]

[vfp]
*-------------------------------------------------------------
* SPL_L() FONCTION LECTURE DU SPOOL
* SPL_L(_fic,_titre)
* _fic :NOM DU FICHIER
* -titre :TITRE DE l'EDITION
* _initd :CHAINE DEBUT INIT IMPRIMANTE
* _initf :CHAINE FIN INIT IMPRIMANTE
*-------------------------------------------------------------
FUNCTION SPL_L
PARAMETER _fic,_titre,_initd,_initf , _TITREPDF
LOCAL _AncFen
LOCAL liHWnd
LOCAL Zone
PRIVATE tabImpression
DIMENSION tabImpression(4)

RECUP_CARTOUCHE(_titre,@tabImpression)

Zone = SELECT()
_fic=SPL_FIC(_fic)


IF SELECT('_SPLF')=0
SELECT 0
USE &_fic ALIAS _SPLF
ELSE
SELECT _SPLF
ENDIF
[/vfp]



[vfp]
*-------------------------------------------------------------
* SPL_FIC() FONCTION Interne FMT FICHIER
*-------------------------------------------------------------
FUNCTION SPL_FIC
PARAMETER _fispl
RETURN ALLTRIM(_fispl)+"._SP"

[/vfp]





Thu, 24 Apr 2025 05:24:36 GMT

Re: Caractère spécial dans un état avec la police Courier new
Bonsoir,

si tu modifie un label dans l'état, peux-tu essayer de taper + 212 à
l'endroit où tu veux le Ô ?

Je sais c'est un vieux truc ... mais je suis vieux !!

Si ce n'est pas cela, peux-tu nous donner plus de précisions : c'est dans un
label, un champ, ...

Bonne soirée
Jean à Grenoble

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Wed, 23 Apr 2025 05:24:36 GMT

Caractère spécial dans un état avec la police Courier new
Bonjour,

Je dois modifier un vieux programme sous Foxpro.
Les états sont fait par code avec la police Courrier New. ( je pense qu'il utilise un DBF crée dynamiquement)

Je dois afficher le symbole 212 (https://www.math.fsu.edu/~mesterto/symbolfont.html ) - un O avec un accent circonflexe.

Mais je n'y arrive pas .
J'ai essayé de copier le symbole directement dans le texte de l'état mais cela ne fonctionne pas.
(j'ai testé avec chr , c'est pas mieux )

une idée ?

je vous remercie
Olivier




Wed, 23 Apr 2025 05:24:36 GMT

Re: SIRET vérification - clé de contrôle (dernier chiffre)
bonjour francis
réponse de chatgpt que j'ai pas testé mais qui doit pas être loin de ce que tu veux faire.

Le 14e chiffre est une clé de contrôle calculée via lâ€Talgorithme de Luhn
âo. Algorithme de Luhn (résumé) :
Pour vérifier un numéro SIRET : Prenez les 13 premiers chiffres.
Appliquez lâ€Talgorithme de Luhn pour calculer le 14e chiffre attendu.
Comparez-le au 14e chiffre du SIRET.


FUNCTION GetLuhnKey(tcSiret13)
LOCAL i, nDigit, nTotal, nTmp, cDigit
nTotal = 0

* Parcourir les 13 chiffres de droite à gauche
FOR i = 13 TO 1 STEP -1
cDigit = SUBSTR(tcSiret13, i, 1)
nDigit = VAL(cDigit)

IF MOD(13 - i, 2) = 0
* Position paire (depuis la droite) : doubler
nTmp = nDigit * 2
IF nTmp > 9
nTmp = nTmp - 9
ENDIF
ELSE
* Position impaire (depuis la droite) : laisser tel quel
nTmp = nDigit
ENDIF

nTotal = nTotal + nTmp
ENDFOR

RETURN (10 - MOD(nTotal, 10)) % 10
ENDFUNC


Fri, 18 Apr 2025 05:24:36 GMT

Re: SIRET vérification - clé de contrôle (dernier chiffre)
J'ai oublié de préciser qu'il s'agit d'un calcul sur le siren et le siret basé sur un "modulo 10"
exemple trouvé sur google mon ami :
http://www.granuloshop.com/devblog/blog-post-22.html


Wed, 16 Apr 2025 05:24:36 GMT

SIRET vérification - clé de contrôle (dernier chiffre)
Bonjour / Bonsoir,
Est-ce que quelqu'un a eu à coder la validité d'une saisie d'un numéro SIRET (calcul du dernier chiffre) en VFP
Merci
Cordialement
Francis


Wed, 16 Apr 2025 05:24:36 GMT

importer des données à partir d'une feuille de calcul Google Drive
Chers collègues, bonsoir.

Serait-il possible d'importer des données directement d'une feuille de calcul Google Drive vers un fichier Foxpro .dbf, tout en étant déjà connecté à Google Drive ?


Sun, 13 Apr 2025 05:24:36 GMT

Re: numéro de série du disque dur
Bonsoir,

Merci beaucoup pour le code.

Cordialement,

Tarso


Fri, 11 Apr 2025 05:24:36 GMT

Re: numéro de série du disque dur
petite réponse rapide (il faudrait tester l'existence du disque avant de lancer
la recherche du n° de série) et mettre le createobject dans un TRY CATCH

fso = CreateObject("Scripting.FileSystemObject")
lcdisque = "D"
IF fso.DriveExists(m.lcdisque)
LOCAL objdrive
objDrive = fso.GetDrive( m.lcdisque)
lcnumeroserie = IIF(VARTYPE(m.objdrive)=="O", m.objDrive.SerialNumber, "")
ENDIF && This.fso.DriveExists(m.lcdisque)


Jean à Grenoble

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Thu, 10 Apr 2025 05:24:36 GMT

numéro de série du disque dur
Bonjour

J'aimerais de l'aide de mes collègues, une fonction qui renvoie le numéro de série du disque dur.

Merci


Wed, 09 Apr 2025 05:24:36 GMT

bonjour a tous Recherche developpeur Foxincloud
Bonjour
J'ai 2 programmes developpés en Foxpro 9 que je voudrais convertir en Web Je cherche un cador (remu evidemment) On peur en discuter merci de me contacter
Hervé


Tue, 25 Mar 2025 05:24:36 GMT

Re: Affichage de fichiers PDF
Bonjour,

J'ai foxpro version 7 installé sur mon ordinateur.

J'ai copié les lignes de commande d'un site Web. Les gens travaillent sur la version 9.

J'ai regardé ici et trouvé les lignes de commande ci-dessous, d'une manière différente :

[vfp]
add object olecontrol1 as olecontrol with;
oleclass = 'AcroPDF.pdf.1',;
top = 48, ;
left = 12, ;
height = 540, ;
width = 776, ;
name = 'Olecontrol1'

procedure command2.Click
local cFile
cFile = getfile([pdf])
Thisform.Olecontrol1.LoadFile(cFile)
endproc

[/vfp]

Et puis ça a marché.

Où serait en vente la version originale 9.0 ?

Merci de votre attention.



Tue, 25 Mar 2025 05:24:36 GMT

Re: Affichage de fichiers PDF
Bonjour,

dans le groupe AtoutFox, je suis le dernier à avoir maintenu des applications
Foxpro 2.0 sous DOS. C'est dire si je suis vieux ! mais même moi je suis passé à
VFP9 !!

Pourquoi garder une application sous VFP7 ?

Et l'erreur que tu nous exposes provient d'une nouvelle application ou bien elle
fonctionnait avant dans une 'vieille' application et elle ne fonctionne plus
dans cette même application ? (en espérant que Google traduise cela correctement !).

Bien cordialement,
Jean

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Mon, 24 Mar 2025 05:24:36 GMT

Re: fichiers icônes, bitmap ou jpeg gratuits
... Google en fonction de votre astuce.


Sun, 23 Mar 2025 05:24:36 GMT

Affichage de fichiers PDF
Bonjour à tous.

La ligne de code suivante provoque une erreur dans Foxpro 7.0.

[vfp]
add object owb as olecontrol with;
Top = 24, Left = 12, Height = 200, Width = 709, ;
Name = "oWB",;
OleClass = "Shell.Explorer.2"
[/vfp]

Dans foxpro 9.0, cela fonctionne normalement.

Quelqu'un saurait-il comment y remédier.

Merci



Sun, 23 Mar 2025 05:24:36 GMT

Re: fichiers icônes, bitmap ou jpeg gratuits
bonjour monsieur Franis
Merci pour le conseil.

J'ai fait une recherche Google en fonction de votre journée.
J'ai trouvé le site https://www.flaticon.com/

Merci.




Sun, 23 Mar 2025 05:24:36 GMT

Re: fichiers icônes, bitmap ou jpeg gratuits
dans ton "ami" google
Taper
image libre de droit

et tu vas avoir plein de réponses
Cordialement


Sun, 23 Mar 2025 05:24:36 GMT

fichiers icônes, bitmap ou jpeg gratuits
Bonjour à tous.

Où puis-je obtenir des fichiers icônes, bitmap ou jpeg gratuits à utiliser dans mes projets ?

Merci


Sun, 23 Mar 2025 05:24:36 GMT

Re: Clôture inattendue du programme
Bonsoir Monsieur Jean

J'ai oublié de mentionner plus tôt que je surveillais la mémoire avec la commande "Sys(1016)".

J'ai réussi à détecter la cause du problème.
Dans la "procedure activate" du formulaire principal, j'avais placé la ligne de commande "do MyMenu.mpr with this"
C'est ce qui consommait de la mémoire petit à petit, à chaque fois que cette "procedure" serait exécutée.

J'ai supprimé cette ligne de commande et l'ai placée dans la "procedure init", après cela, elle a cessé de consommer de la mémoire et le système fonctionne normalement, ouvrant et fermant plusieurs formulaires.

Merci de votre attention

Tarso



Thu, 06 Mar 2025 05:24:36 GMT

Re: Clôture inattendue du programme
Bonjour monsieur Jean

Je viens du Brésil.

Je n'ai pas de fichier config.fpw.
Oui, j'ai accès à l'aide de VFP.

J'ai déjà utilisé les commandes Sys(), mais cela n'a fait aucune différence.
Mais je vais continuer ici en vérifiant les commandes
Merci beaucoup pour votre collaboration.

Tarso


Wed, 05 Mar 2025 05:24:36 GMT

Re: Clôture inattendue du programme
Bonsoir,

avez-vous un fichier config.fpw ? Si oui pouvez-vous nous le copier ici ?

avez-vous accès à l'aide de VFP ? si oui pouvez-vous regarder l'aide de
SYS(12)
SYS(23)
SYS(24)
SYS(1001)
SYS(1016)
SYS(1104) à executer de temps en temps :
You can improve performance by calling SYS(1104) after executing commands that
make extensive use of memory buffers. This function also clears internal buffers
for open tables, forcing the tables to be refreshed, which is useful with large
tables and in multiuser environments
SYS(3050)

Jean

PS vous êtes dans quel pays ?

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Wed, 05 Mar 2025 05:24:36 GMT

Re: Clôture inattendue du programme
Bonsoir Monsieur Jean

Merci de votre attention

J'utilise Windows 7 et également Windows 10.
Je n'utilise pas d'API ni de bibliothèques externes.

Ensuite, le programme se ferme de manière inattendue, sans donner de message la plupart du temps.
Parfois, le message "there is not enough memory to complete this operation" s'affiche

J'ai déjà ajouté les lignes de code ci-dessous, mais cela n'a eu aucun effet :
sys(3050,1,512*1024*1024)

Excusez mon français, j'utilise Google Translate. kkk



Wed, 05 Mar 2025 05:24:36 GMT

Re: Clôture inattendue du programme
Bonjour,

C'est très curieux ! en tout cas je n'ai jamais rencontré ce problème.

Y-a-t-il un message d'erreur ?
Si non un problème de mémoire ?
L'application VFP fait appel à des API ou librairies externes ?
Quel système d'exploitation ?

etc ...

Bonne journée
Jean

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Fri, 28 Feb 2025 05:24:36 GMT

Clôture inattendue du programme
Bonne nuit.
J'aimerais avoir de l'aide de la part de mes nobles collègues.
Mes systèmes, après un certain nombre d'ouvertures et de fermetures de formulaires (fenêtres), le système s'arrête de manière inattendue.
Comment pourrais-je résoudre ce problème ?


Fri, 28 Feb 2025 05:24:36 GMT

Re: VFPWINSOCK ne fonctionne plus
Bonjour Francis,

Merci d'avoir trouvé une solution rapide.
La solution fonctionne: Windows 11 Pro Version 24H2 Build 26100.2605 avec VFP9 version 09.00.0000.7423 et également avec Visual Foxpro Advanced version 10.00.0000.2212 (32 bit).





Mon, 06 Jan 2025 05:24:36 GMT

Re: pré requis installation CFP 9.0 sur Win10 et Win7 32b
je viens d'installer VFP9 sur un windows 11 dernière version 24H2
avec sp2 + hotfix + localisation + soap tool kit 3.0 sans aucun problème.
Cordialement


Sun, 05 Jan 2025 05:24:36 GMT

Re: VFPWINSOCK ne fonctionne plus
Bonsoir coppensg

a) ce jour j'ai installé un pc windows 11 dernière version : 24H2
b) j'ai installé un VFP9 SP3 + hotfix : ok
c) j'ai chargé vfpwinsock v1.25
j'ai pu répliquer cette erreur : la dll "htons" retourne un integer au lieu d'un "u_short"... (unsigned short)
d) j'ai cherché sur le net la fonction htons et ce qui qui pouvait être lié à déclaration VFP
voici 2 liens:
https://learn.microsoft.com/fr-fr/windows/win32/api/winsock/nf-winsock-htons
et
https://stackoverflow.com/questions/47475862/wsock32-dll-htons-function

e) j'ai rapidement modifié sur cette machine la déclaration de la dll "htons" dans vfpwinsock
ligne : 2353
comme ceci
[VFP]
Case m.lsFunction == Upper("htons")
*Declare Integer htons In ws2_32 Integer hostshort
DECLARE SHORT htons IN "wsock32.dll" INTEGER
[/VFP]


ET CELA FONCTIONNE

cette partie de code est basée sur les travaux de William GC Steinford et de Anatoliy Mogylevets
comme indiqué sur la page d'accueil http://www.vfpwinsock.com/

f) maintenant que j'ai la déclaration qui semble fonctionner : il va me falloir modifier et tester sur les différentes versions de windows pour rester compatible "ascendant"
et publier une version 1.26 de vfpwinsock
mais pour cela il me faut du temps libre que je n'ai pas actuellement....

en attendant tu as la solution pour ton cas

en espérant t'avoir répondu et dépanné ton cas

PS : si tu as du temps pour tester correctif sur différentes version windows je suis preneur ;)

Cordialement
Francis







Le ven. 03 janvier 2025, 13h06 coppensg a écrit :
> Le dll utilisé est la version 6.2.26100.1882 de ws2_32.dll (382 kB)
> Il n'y a pas d'erreur avec la version 10.0.22621.1 (380 kB).
>
> La traduction de SMTP-Port 25 par la fonction htons donne une valeur négatieve (-59136) qui donne une erreur dans la fonction:
>
> Function num2word(lnValue)
> Return Chr(Mod(m.lnValue,256)) + Chr(Int(m.lnValue/256))
> Endfunc
>
> L'erreur est: Function argument value, type, or count is invalid





Sun, 05 Jan 2025 05:24:36 GMT

Re: VFPWINSOCK ne fonctionne plus
Le dll utilisé est la version 6.2.26100.1882 de ws2_32.dll (382 kB)
Il n'y a pas d'erreur avec la version 10.0.22621.1 (380 kB).

La traduction de SMTP-Port 25 par la fonction htons donne une valeur négatieve (-59136) qui donne une erreur dans la fonction:

Function num2word(lnValue)
Return Chr(Mod(m.lnValue,256)) + Chr(Int(m.lnValue/256))
Endfunc

L'erreur est: Function argument value, type, or count is invalid


Fri, 03 Jan 2025 05:24:36 GMT

Re: VFPWINSOCK ne fonctionne plus
oups je n'avais pas vu le titre : je vais tester. pas eu de retour jusqu'à maintenant...


Fri, 03 Jan 2025 05:24:36 GMT

Re: VFPWINSOCK ne fonctionne plus
Bonjour Georges,
Meilleurs voux également pour la nouvelle année
Est-ce que tu peux donner un bout de code pour reproduire le problème ?
ou
pourrais tu tester http://www.vfpwinsock.com/ -> téléchargement -> scx de test
Cordialement
Francis


Fri, 03 Jan 2025 05:24:36 GMT

VFPWINSOCK ne fonctionne plus
Bonjour à tous,

Mes meilleurs voux pour 2025
Avec la dernière mise à jour de windows 11, l'envoi de messages ne fonctionne plus.
Le traitement du port avec la fonction htons dans ws2_32.dll donne une valeur négative.

Je vous remercie par avance pour votre aide
Georges Coppens


Fri, 03 Jan 2025 05:24:36 GMT

Re: pré requis installation CFP 9.0 sur Win10 et Win7 32b
bonjour,

De mémoire , il ne faut pas lancer vfpstart.htm comme indiqué dans autorun.inf

Lancer setup.exe



Tue, 31 Dec 2024 05:24:36 GMT

Re: pré requis installation CFP 9.0 sur Win10 et Win7 32b
mon avis personnel : l'iso n'est pas OK. car un cd VFP9 se lance : première étape les prérequis qu'il install et ensuite installation de vfp9


Sun, 29 Dec 2024 05:24:36 GMT

Re: pré requis installation CFP 9.0 sur Win10 et Win7 32b
Merci pour votre réponse,
je ne trouve pas cela sur l'iso, les pré-requis ne se sont pas installés automatiquement comme cela aurait dû se faire.
auriez-vous-vous une idée di dossier contenant les fichiers nécessaires ?
merci.
F.P.



Sun, 29 Dec 2024 05:24:36 GMT

Re: pré requis installation CFP 9.0 sur Win10 et Win7 32b
de mémoire tout est dans répertoires du CD


Sun, 29 Dec 2024 05:24:36 GMT

Re: pré requis installation CFP 9.0 sur Win10 et Win7 32b
Suite...
Je viens de lire ceci :
Microsoft Visual C++ 6.0 runtime libraries
Microsoft Data Access Components (MDAC) 2.6
Microsoft Windows Installer 2.0 mon problème, où trouver ces "briques" qui ne sont plus téléchargeables chez microsoft?
F.P.




Sun, 29 Dec 2024 05:24:36 GMT

pré requis installation CFP 9.0 sur Win10 et Win7 32b
Bonjour à tous.
Je voudrais installer VFP9 , j'ai trouvé le CD sur le site archives.org...
Lorsque le lance l'install, j'ai un message me disant que certaines versions de logiciels indispensables ne sont pas installée : le problème est qu'il ne précise pas lesquels.
Je recherche donc les pré requis logiciels pour faire cette installation.
où peut-on trouver cela ?
Je vous remercie par avance pour votre aide .
F.P.



Sun, 29 Dec 2024 05:24:36 GMT

Re: -Impression - gestion page setup
Merci pour votre réponse
Effectivement je ne cochais pas la case "save printer environment' lorsque l'état est ouvert dans l'environnement de développement





Mon, 23 Dec 2024 05:24:36 GMT

Re: -Impression - gestion page setup
Bonsoir Adel,

lorsque l'état est ouvert dans l'environnement de développement, une option de
menu est ajoutée : 'état'. En bas du menu déroulé, il y a 'propriétés'.
Clic, une fenêtre 'Report properties' s'ouvre. Tout en bas il y a un bouton
'page setup' qui ouvre une autre fenêtre 'mise en page' dans laquelle tu peux
sélectionner la taille par défaut. Je pense qu'il faut cocher la case 'save
printer environment' dans la fenêtre précédente pour que ces paramètres soient
pris en compte.
Mais il y a plus de 10 ans que je n'ai pas utilisé cette procédure !!

Jean à Grenoble

--
Cet e-mail a été vérifié par le logiciel antivirus d'AVG.
www.avg.com
Sun, 22 Dec 2024 05:24:36 GMT

Reproduction totale ou partielle strictement interdite • Propulsé par KitWeb • Hébergement Wan AgainValid XHTML 1.0 Transitional