Discussion :

[P.G]

Bonjour à tous,

J'essaye dans une petite appli d'écrire dans un fichier texte
apparemment cela à l'air simple :
1) assign
2) rewrite
3) écrire
4) close

L'unité principale TComPort1 appelle ces fonctions 1,2,3,4 dans une
autre unité OREGON. Le constat c'est que le fichier suivi.txt est créé
sur le disque mais qu'il reste désespérément vide ??

Je soumet ce problème à vos conseils avisés :

voilà le code TComPort1 :

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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit TComPort_1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, CPort, StdCtrls, CPortCtl, OREGON;
 
type
  TForm1 = class(TForm)
    ComPort1: TComPort;
    Panel1: TPanel;
    ComComboBox1: TComComboBox;
    ComComboBox2: TComComboBox;
    ComComboBox5: TComComboBox;
    ComLed1: TComLed;
    ComLed2: TComLed;
    ComLed3: TComLed;
    Connecter: TButton;
    Label1: TLabel;
    ComComboBox3: TComComboBox;
    Memo1: TMemo;
    procedure ConnecterClick(Sender: TObject);
    procedure Panel1Enter(Sender: TObject);
    procedure ComPort1RxChar(Sender: TObject; Count: Integer);
    procedure Panel1Exit(Sender: TObject);
  private
    { Déclarations privées }
    ChaineRecue   : String;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.ConnecterClick(Sender: TObject);
begin
        Comport1.Connected := Not Comport1.Connected;
end;
 
 
 
procedure TForm1.Panel1Enter(Sender: TObject);
begin
        Comport1.DataBits:=dbeight;
        Init_OREGON;
        //Comport1.ParityBits:=cpNone;
end;
 
procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
Var
  Chaine2 : String;
  i       : Integer;
begin
  // Evènement appelé a chaque réception de caractère(s)
 
  // Lecture des caractère reçus dans le composant TComPort
  ComPort1.ReadStr(ChaineRecue,Count);
  Analyse_Trame_OREGON(ChaineRecue);
  // Affichage des caractères reçus
  Chaine2:='';
  For i:=1 To Length(ChaineRecue) Do
  begin
 
        Chaine2:=Chaine2 + IntToHex(Byte(ChaineRecue[i]),2)+' ';
 
  end;
  Memo1.Lines.Text := Memo1.Lines.Text + Chaine2 + #13;
end;
 
procedure TForm1.Panel1Exit(Sender: TObject);
begin
        Fin_OREGON;
end;
 
end.
 
 
//     Chaine2:=Chaine2 + IntToHex(Byte(ChaineRecue[i]),2)+' ';

et le code de l'unité appelée OREGON dans l'état 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
unit OREGON;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
var
        FichTest:TextFile;
 
 
procedure Analyse_Trame_OREGON(var ChaineRecue:string);
 
procedure Fin_OREGON;
 
procedure Init_OREGON;
 
implementation
 
 
procedure Init_OREGON;
begin
        AssignFile(FichTest,'Suivi.txt');
        Rewrite(FichTest);
        writeln(FichTest,'1');
end;
 
 
procedure Fin_OREGON;
begin
        CloseFile(FichTest);
end;
 
procedure Analyse_Trame_OREGON(var ChaineRecue:string);
var
 DoubleDigit  : string[2];
 PremierDigit : char;
 SecondDigit  : char;
begin
 DoubleDigit  := IntToHex(Byte(ChaineRecue[5]),2);
 PremierDigit := DoubleDigit[1];
 SecondDigit  := DoubleDigit[2];
 writeln(FichTest,'1');
 writeln(FichTest,' '+DoubleDigit+ ' : ' +PremierDigit +   SecondDigit);
end;
 
end.

Merci de l'aide

[BuzzLeclaire]

Bonjour,

Change le chemin de ton fichier texte

Code :

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

AssignFile(FichTest,'Suivi.txt');

par un chemin soit réseau soit sur le disque, du genre

Code :

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

AssignFile(FichTest,'C:\oregon\Suivi.txt');

ps : evidement créé un répertoire oregon avant.

a+

[P.G]

Hello,

Merci de ta réponse rapide,

j'ai essayé un nom de fichier complet, le problème est toujours le même.

Le fichier est bien créé dans le répertoire visé mais il est vide.

Affaire à suivre donc.

A +

P.G

[ShaiLeTroll]

tiens tu as mis ParityBits en commentaire !
Dommage de poser une question Accès direct propriété de TcomPort et ne pas venir lire la réponse !

Même sans mettre le chemin au complet, si tu vois le fichier (probablement avec l'exe), cela doit fonctionner !
Tu dois au moins avoir '1' qui s'est écrit ?

C'est étrange ton utilisation de OnEnter et OnExit du TPanel, pourquoi ne pas plutôt utiliser deux Buttons, l'un "Ouvrir" et l'autre "Fermer" car à la vue du code, si tu bouge la souris, tu pourrais fermer le fichier avant même de passer par OnRxChar

Pense qu'un fichier texte ne s'écrit pas en temps réel mais utilise un buffer de 32Ko, utilise Flush pour forcer l'écriture, CloseFile normalement force l'écriture aussi !

[P.G]

Re Hello,

Il ne faut pas le prendre mal, en attendant la réponse de l'initialisation
en dur de TcomPort j'ai poursuivi par l'analyse de la trame reçu et donc
suis tombé sur les problèmes de lecture de fichier texte.
(Ai voulu faire une sorte de trace dans un fichier texte pour suivre et comprendre les choses). D'où les problèmes cités.

Je reviendrai après sur les essais Tcom..

Bon bonne nouvelle flush provoque bien l'écriture, sur le nom de fichier 'court'.

Je vais pouvoir poursuivre l'analyse de la suite du projet. Apparemment je fait plusieurs fois l'init du fichier, maintenant que j'arrive à lire le résultat du trace.
Probablement le TPanel, où peut-on mettre dans un projet Delphi tel que celui-là du code qui s'éxécute tout seul à l'ouverture du programme,
et à sa fermeture, indépendamment des fenêtres windows ?

Merci encore.

N.B Les questions des débutants sont toujours 'basiques' c'est pour cela qu'ils
sont encore débutants.

A +

P.G


Merci du coup de main

[ShaiLeTroll]

Tu as la section initialization et finalization d'une unité
Tu peux aussi créer un objet et l'instancier dans le DPR (voir Singleton)

[Rayek]

Probablement le TPanel, où peut-on mettre dans un projet Delphi tel que celui-là du code qui s'éxécute tout seul à l'ouverture du programme,
et à sa fermeture, indépendamment des fenêtres windows ?

Dans le OnCreate et onClose de ta fenêtre principale.

[P.G]

Hello,

Merci aux coups de main, cela commence à s'éclairer.

Le flush force l'écriture, le suivi de la trace des calculs

du programme se réalise correctement.

Je marque la question résolue.

Bon WE