Un timer pour gerer un enregistrementRésolu

Question

Salut &#224; tous,

Voila j'ai une Form avec 3 boutons et 2 Edit

*Bouton 1 : Parcourir
Edit 1 : Fichier choisis

En cliquant sur Parcourir je s&#233;lectionne ou cr&#233;er un fichier texte

*Bouton 2 :Enregistrer
Edit 2 : un &#233;dit ou j'&#233;cris ce que je veux
Bouton 3 : Arretter

Je cherche &#224; enregistrer le contenu de l'Edit2 toute les 10 secondes dans un fichier texte. Je suppose qu'il faut utiliser un timer mais je ne connais pas la proc&#233;dure.

Merci pour votre aide

vaughan · Accepted Answer

Il serait n&#233;cessaire de faire un Thread si ton traitement avait &#233;t&#233; plus long qu'une alimentation de zone.

Voici le code

unit Unit1;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;


type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { D&#233;clarations priv&#233;es }
  public
    { D&#233;clarations publiques }
  end;


var
  Form1: TForm1;


implementation


{$R *.dfm}


procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := Edit2.Text + Edit3.Text;
end;


procedure TForm1.Button2Click(Sender: TObject);
begin
  Timer1.Enabled := True;
end;


procedure TForm1.Button3Click(Sender: TObject);
begin
  Timer1.Enabled := False;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Le code de sauvegarde
end;


end.

vaughan

vaughan · Answer

Le timer est une solution ...

Dans les composants System s&#233;lectionner TIMER et le mettre sur ta fen&#234;tre :
Mettre 10000 dans la propri&#232;t&#233; INTERVAL (10000 msec = 10 sec)
Mettre dans la propri&#233;t&#233; Enable, true afin de rendre actif ton timer
Et mettre ton code d'insertion dans ton fichier texte dans l'&#233;v&#233;nement OnTimer

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // Code
end;

vaughan

Francky23012301 · Answer

Ok mais en fait je veux que l'enregistrement toutes les 10 secondes d&#233;bute quand j'appuye sur le bouton Enregistrer et qu'il s'arrette quand j'appuye sur le bouton Arretter

vaughan · Answer

Ok ... en gros tu lance un traitement dans un bouton et ton autre bouton sert &#224; lancer tout les dix secondes une sauvegarde.


La solution est donc de lancer ton traitement par un Thread avec la classe TThread et dans ton bouton Sauvegarde activer et d&#233;sactiver ton Timer pour sauvegarde.

vaughan

Francky23012301 · Answer

Tu as pas bien compris :

j'ai 3 edits : Edit 1 Edit 2 Edit 3
J'ai trop boutons : Bouton 1 bouton2  bouton 3
J'ai un timer

bouton 1 : si je clique dessus je fais 
Edit1.text : =Edit2.text+Edit3.text;

bouton 2 : j'enregistre le contenu de l'Edit1 toutes les 10 secondes

bouton3 : j'arrette "la boucle" d'enregistrement.

Je pense qu'il y a plus simple qu'un Thread.

Mon id&#233;es est : je met la proc&#233;dure d'enregistrement dans le timer avec enable=false comme le timer marche pas donc pas d'enregistrement.

Si je clique sur Bouton 2 j'appelle le timer en l'activant biensur (enable=true).

Si je clique sur Bouton 3 je d&#233;sactive le timer et j'arrette la proc&#233;dure du timer.

Ce sont les parties activation/desactivation du timer et appelle/liberation de la proc&#233;dure du timer qui me posent probleme

PS : enable est du type booleen.

Francky23012301 · Answer

Merci pour tout : j'avais essay&#233; avec 0 et 1 &#224; la place de false et true mais cela ne fonctionnait pas

Un timer pour gerer un enregistrement

6 réponses

Votre réponse

Discussions similaires