rs232 delphi sauvegarde

Question

please,please c urgent
slt ts le monde je veut savoir comment configure (programmer) en delphi afin de recuperer des donner(valeur) par le  rs232 et les sauvegarder dans un fichier .txt dans le c:\
je veut les procedure et les fonction qui me permet de faire cette tache 
si quelqu'un a une idée n'hesiter pas c urgent

Oniria · Answer

Bonjour,

D'abord, apprend à chercher car sur le site, il y a ce que tu cherches. Cherche et tu trouveras ... très vite, je t'assure.

Oniria

cs_youss31 · Answer

slt ts le monde j'ai écrie un programme qui permet de lire les donner via rs232 et les sauvegarde dans un fichier .text  mais j'ai un problem c'est que lorsque je connecte ma carte avec le pc  le fichier se realise mais il est vide (ne contient pas mais valeur prquoi 
voici le programme:
   unit communication;


interface


uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OoMisc, AdPort, StdCtrls, CPort;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    ComPort1: TComPort;
    procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);
    procedure Button1Click(Sender: TObject);
    procedure Memo1Change(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;


var
  Form1: TForm1;
     acquire,i,iccv:integer;
    c:Char;
  S:String;
implementation


{$R *.dfm}


procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
begin
 S:='';
        c:=' ';
   for i:=1 To Count do
        begin
        c:=ApdComPort1.GetChar;
        S:=S+c;
        end;


            acquire:=StrToint(S);


 




                 iccv:= acquire;




 memo1.Lines.Add(intToStr(iccv)+',');
  
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
 memo1.lines.SaveToFile( 'c:\data data.txt') ;
end;


 


end.

ou est le problem ?????????????????????

Oniria · Answer

Bonjour,

Tu ne semble pas faire appel au comport ComPort1: TComPort;

Pour ce genre d'exercice, j'utilise l'événement onRxChar, c'est plus simple

Oniria

cs_youss31 · Answer

j'ai ecrie un programme en c qui envoyer une valeur numerique 5  d'un pic 16f877 vers pc via rs232 est ce que ca me suffira et merci 
suivant tes conseille j'ai trouver cette example est ce que il est suffisant pour lire du port serie .

procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer);
 
Var
Chaine:String;
 
begin
setlength(chaine,count);
Comport1.ReadStr(Chaine,Count);
Memo1.Lines.Text :=Memo1.Lines.Text+Chaine;
 
end;
 
end.

Oniria · Answer

Bonjour,

oui, ca suffit mais ca ne sert à rien le setlength(chaine,count) car un string peut contenir 255 caractères. As-tu regardé le code source de l'analyseur RS232 que j'ai fait ? Il fait tous ca lui aussi.

Oniria

Rs232 delphi sauvegarde

5 réponses

Votre réponse