Discussion :

[Pov type]

Autre chose que j'oubliais de préciser: j'ai tout recommencé du début entre temps, reprendre une application commencé par quelqu'un d'autre n'ayant pas la même logique que moi est pour moi quelque chose de trop difficille pour moi, de ce fait j'ai préféré tout recommencer du début donc le dernier code que j'ai affiché, vous pouvez en tenir compte, tout le reste vous pouvez l'oublier donc plus de fonction getvalue et autre.

[Pov type]

une autre erreur de corrigée : pour le Z:\cpaj_rec.Text non déclaré en fait il manquait juste des ' '.

[Pov type]

bon, je n'ai plus de message d'erreur maintenant, seulement des avertissements:

le symbole finddata est propre à une plate forme.

Maintenant j'arrive à compiler mais je n'ai aucun affichage.

[ShaiLeTroll]

Pour FindData, dans la FAQ de Developpez, il y a la consigne à suivre ...

[Pov type]

Oui effectivement j'ai réussi à me débarasser du warning en revanche, l'application ne marche toujours pas.

[Pov type]

Et puis aussi, je n'ai pas trop compris la signification de cette ligne là:

Code :

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

If Not((Info.Attr And faDirectory)=0)

[Pov type]

bon en fait l'application marche, j''avais spécifié un répertoire sur un autre disque dur par contre je n'ai toujours pas compris la ligne plus haut.

[Pov type]

Bon peu importe, j'ai viré la condition de toute façon, récupérer les sous répertoires ne m'intéresse pas.

Bon, le plus dur est fait, il ne me reste plus qu'à faire l'enregistrement dans la base maintenant.

[Pov type]

Bon, voilà où j'en suis maintenant:

J'ai créé une variable Donnees

voilà mon code actuel:

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
procedure TForm1.Button1Click(Sender: TObject);
{$WARN SYMBOL_PLATFORM OFF}
Var Chemin : String;
    Donnees: String;
    Info   : TSearchRec;
begin
  ListBox1.Items.Clear;                //lignes que je
  ListBox2.Items.Clear;               //compte virer
 
  { Pour être sur que la barre oblique finisse le nom du chemin }
  Chemin := IncludeTrailingPathDelimiter('C:\a_test');
 
  { Recherche de la première entrée du répertoire }
  If FindFirst(Chemin+'*.*',faAnyFile,Info)=0 Then
  Begin
    Repeat
 
        ListBox1.Items.Add(Info.FindData.cFileName); //ligne que je compte virer
        sauvegarde.insert;
        Donnees := Info.FindData.cFileName;
        sauvegarde.FieldByName('nom').AsString:=Donnees.Text; *
 
      { Il faut ensuite rechercher l'entrée suivante }
    Until FindNext(Info)<>0;
 
    { Dans le cas ou une entrée au moins est trouvée il faut }
    { appeler FindClose pour libérer les ressources de la recherche }
    FindClose(Info);
  End;

bon en fait là je reçois le message d'erreur suivant là où j'ai mis l'*:

type record object ou class requis.

De plus je ne suis pas sur avoir attribué la bonne valeur à Donnees

[Pov type]

En fait ce que je n'arrive pas à comprendre dans le code c'est quelle partie du code correspond au non du fichier appelé.

[ShaiLeTroll]

Avant posé des questions, tu regardes un peu l'aide ? as-tu consulté la documentation du WIN32_FIND_DATA (Info.FindData), as-tu remarqué que cFileName est un array[0..MAX_PATH] of Char que tu as recopiés dans Donnees qui est une string (c'est génial, Delphi le fait tout seul, pourtant derrière il y a une multitude d'opération), et donc qu'il n'y a pas de propriété Text dans une string, ... reprend donc les bases de la programmation Delphi, après on ira plus loin ...

[Pov type]

oui effectivement j'ai viré entre temps le .text pour qu'à la place lorsque le clique sur le bouton une fenêtre s'ouvre avec de marqué dedans:

"sauvegarde: impossible d'effectuer cette opération sur un ensemble de données fermées."

[hors sujet]Sinon désolé, ça fait un peu plus d'une semaine que je programme sur Delphi, j'aurais peut être du poster ça dans la partie débutant enfin bref de toute façon, je lis quand même l'aide, et oui j'ai vu la documentation sur le finddata (ce qui m'a permis de corriger le warning), après, je ne peux pas forcément tout débloquer d'un seul coup. [/hors sujet]

[Pov type]

Mais bon, je sais que le soucis est au niveau de l'affectation de la variable donnees.

[ShaiLeTroll]

Une semaine, débutant effectivement, j'étais loin de faire du XML !
A mes débuts, j'ai du commencé par le ReadLn pour lire un fichier de carte sésam vitale (un pauvre fichier récupére en ligne de commande), cela a été très formateur pour les boucles While et For, j'avais déjà des notions de programmation en Ti80 et HP48, donc certains concepts était déjà entré dans ma tête ... j'ai du faire mon premier FindFirst au bout de 3 mois de stage ...

Je comprends mieux ton désarroi, ... laisse tomber Delphi, pose tous tes problèmes sur papier, oui, oui, fait des schémas, isole les fonctionnalités (on ne mélange pas l'affichage genre Caption, et la lecture de fichier, en fait pour ça l'aide de Delphi est un peu dégueux car il mélange tout et ne donne pas les conseils pour faire des fonctions, d'ailleurs, c'est le mot, apprend à faire de petite fonction, qui ont un thème précis, et un seul thème, ...)

Donc, soit tu reprends certaines bases, faut commencer par là, moi, j'ai fait les exemples du bouquin de Delphi 4, je les ai suivi un par un, ensuite, mon tuteur (j'ai eu de chance d'en avoir un), ... commence par un truc plus simple

Maintenant, as tu réussi à utiliser la fonction GetListFile ? Ensuite, explique avec des phrases courtes ce que tu dois faire, ... je vais essayer de te guider si j'en ai le temps ...

[Pov type]

Oui c'était ce que j'avais fait au début, j'avais testé plein de fonctions simples (cf post dans la partie débutant) après pour la fonction que tu m'avais passé, ça ne marchait pas correctement du coup j'ai préféré utiliser celle que j'ai montré qui apparemment fait un peu la même chose.

[Pov type]

Bon en fait c'était tout bête, comme le message d'erreur me l'indiquait, l'ensemble était fermé.

J'ai donc rajouté un sauvegarde.open avant le findfirst et là ça m'enregistre dans la base de donné.

le problème maintenant, c'est que ça m'enregistre :"Info.FindData.cFileName"
et non le nom du fichier comme je cherche à le faire.

J'en déduis que la variable données est mal affectée.

[ShaiLeTroll]

Encore une fois tu mélanges plusieurs choses à la fois, par une fonction qui remplit une TStrings avec la liste des fichiers, puis une autre fonction qui prendra cette liste et l'écrira en base de données, ... et te limitant à des actions bien précises à chaque fois, tu arriveras plus vite à tout but que de vouloir tout faire en même temps, ...

[ShaiLeTroll]

... après pour la fonction que tu m'avais passé, ça ne marchiait pas correctement ...

Ah bon, pas correctement, chez moi, elle donne tous les fichiers présents dans un dossier, il manque juste l'option pour filter sur les extensions

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
30
31
32
33
34
procedure TfImportKc.Button1Click(Sender: TObject);
begin
  GetListFile('C:\', ListBox1.Items, '*.xml');
end;
 
function GetListFile(const Directory: string; ResultList: TStrings; const Mask: string = '*'): Boolean;
var
  sr: TSearchRec;
  Path: string;
begin
  Result := False;
  if DirectoryExists(Directory) then
  begin
    ResultList.BeginUpdate();
    try
      ResultList.Clear();
 
      Path := IncludeTrailingPathDelimiter(Directory);
      if SysUtils.FindFirst(Path + Mask, faAnyFile and not faDirectory, sr) = 0 then
      begin
        try
          repeat
            ResultList.Add(sr.Name);
          until SysUtils.FindNext(sr) <> 0;
        finally
          SysUtils.FindClose(sr);
        end;
      end;
   finally
      ResultList.EndUpdate();
      Result := ResultList.Count > 0;
   end;
  end;
end;

[Pov type]

à mon avis je n'ai pas du tout comprendre dans le code du coup j'ai du faire quelques erreurs c'est pour ça que j'ai préféré prendre l'exemple que je comprenais le mieux.

bon en attendant, je continue à chercher la fonction qui peut me permettre l'enregistrement.