rs232 delphi sauvegarde

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

Salut
As tu lu http://www.delphifr.com/reglement.aspx ?
Je te rafraîchi la mémoire :
4. On demande une explication ou de l'aide sur un sujet précis, on ne l'exige pas !
N'oubliez pas que vous vous adressez à des membres bénévoles qui vont partager de leur temps et leurs connaissances afin de vous aider Vous vous devez de garder cet esprit communautaire en tête ;-)
Les "c urgent" sont encore plus inutiles et irritables.

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

  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 ?????????????????????

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

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.

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