Discussion :

[flo-1987]

Bonjour,

Je débute dans la programmation graphique, jusqu'à présent j'effectué de la programmation sous dos ou de la programmation sur composants.
Je dois effectuer un portage d'une application DOS en application graphique utilisant la VCL. Je n'ai pas eu de problème pour effectuer la majeure partie des modifications mais je bloque un peu là.
Je suis en train d'essayer de changer la méthode de chargement et d'enregistrement des fichiers en utilisant GetOpenFileName et GetSaveFileName.
j'arrive bien à lancer ces fenêtres mais j'aimerais savoir si il est possible d'avoir un nom de fichier par défaut à leur ouverture et si oui de quel méthode.
Mon principal problème est avec WriteFile (pour la sauvegarde) : je dois sauvegarder des tableaux de double et dans mes fichiers j'obtient que des caractères non reconnus.
Voici l'extrait du code réalisant cette partie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
OPENFILENAME ofn;
	HANDLE hf, hf2;
    DWORD dw;
ZeroMemory(&ofn, sizeof(ofn));
	ofn.lStructSize = sizeof(ofn);
	ofn.nMaxFile = sizeof(szFile);
	ofn.lpstrFilter = "Fichiers textes\0*.TXT\0Tous\0*.*\0";  // Filtre les fichiers
	ofn.nFilterIndex = 1;
	ofn.lpstrFile = szFile;
    ofn.lpstrFile[0] = '\0';
	ofn.lpstrFileTitle = szFile;
	ofn.nMaxFileTitle = 0;
	ofn.lpstrInitialDir = "C:\Projet"; // Chemin par défaut
	ofn.Flags = OFN_EXPLORER | OFN_PATHMUSTEXIST | OFN_SHOWHELP | OFN_OVERWRITEPROMPT;
	ofn.lpstrTitle = NULL;	// modifie nom de la fenetre
	ofn.lpstrDefExt = ".txt";
 
	if (GetSaveFileName(&ofn) == true)
	{
	   	hf = CreateFile(ofn.lpstrFile, GENERIC_WRITE,
			0, (LPSECURITY_ATTRIBUTES) NULL,
			CREATE_NEW, FILE_ATTRIBUTE_NORMAL,
			(HANDLE) NULL);
		BOOL b = WriteFile(hf, cal, sizeof(cal), &dw, NULL);
		if (!b) {
            MessageBox(NULL, "Erreur Fichier", "Impossible d'écrire dans le fichier", MB_OK);
		}
		CloseHandle(hf);
	}

[Médinoc]

Nom de fichier par défaut: Il me semble que si lpstrFile pointe sur une chaîne non-vide, cette chaîne sera utilisée comme nom par défaut.
Aussi, attention, tu as oublié de doubler le backslash dans lpstrInitialDir.

Au sujet du WriteFile(), il doit y avoir une incompréhension: Cherches-tu à créer un fichier texte ou un fichier binaire?

[koala01]

Salut,

Le tout sans oublier que, l'idéal, ca reste toujours de séparer clairement le processus métier (la structure de données elle-même qu'il faut sauvegarder, avec sa fonction de sauvegarde) de tout ce qui a trait de l'interface graphique (le fait d'invoquer la fonction de sauvegarde de l'instance de la structure à enregirster en lui fournissant en paramètre le nom du fichier qui a été récupéré grâce au formulaire adéquat)...

De cette manière, si, dans quelques années, tu décide de passer de la VCL à une autre bibliothèque graphique (Qt, par exemple) il n'y aura vraiment qu'à recréer l'interface graphique, le reste (le processus métier) n'ayant pour ainsi dire pas à être adapté

[flo-1987]

Merci pour les réponses, les fichiers créés en sauvegarde sont des fichiers textes. Pour l'évolution graphique, il n'y a rien de prévu mais il n'y a que les événements qui sont définis dans le fichier gérant l'interface. Le programme est séparé.

[Médinoc]

Quel est le type de cal?

[flo-1987]

cal est un tableau de double (29 lignes et 400 colonnes)