comment sur un port série sosu delphi 8 .net?

Question

Bjr,
j ai des pb pr ecrire sur le port série ss delphi 8 .net?

j ai essayé d utiliser writeFile ReadFile, la sol de delphi 7 .. mais sans succès.. :(

si qlq un peut m 'aider...

merci d avance

cs_flo1984 · Answer

En utilisant l'API je comme ça :

procedure TForm1.XXX;
var
  nb : Cardinal ;
  timeout : Tcommtimeouts ;
  hcom: THandle ;
  pcom: PAnsiChar ;
  dcb : Tdcb  ;
  Hdl: THandle;

begin

  pcom  :=   'COM1' ;    
  dcb.BaudRate := CBR_9600 ;
  dcb.StopBits := ONESTOPBIT ;
  dcb.Parity   := NOPARITY ;
  dcb.ByteSize := 8 ;

  hcom := CreateFile(pcom, GENERIC_READ or GENERIC_WRITE, 0, NIL, OPEN_EXISTING, 0, 0);

 if (hcom = INVALID_HANDLE_VALUE)
    then  EdtEnvoi.Text := 'Erreur ouverture';

 if not SetCommState(hcom,dcb)
    then EdtEnvoi.Text := 'Erreur SetCommState';

 TimeOut.ReadIntervalTimeOut:=MAXDWORD;
 TimeOut.ReadTotalTimeOutMultiplier:=0;
 TimeOut.ReadTotalTimeOutConstant:=0;
 SetCommTimeOuts(hcom,timeout);

 CreateThread(nil,0,@attente,Label1,0,hdl);

  writefile(hcom,key,1,nb,nil);

end;

procedure attente(lbl : TLabel); stdcall;
var
  buffer: Char ;
  n : Cardinal;
  i : Byte ;
begin

  repeat

    buffer:=' ' ;
    ReadFile(hcom,buffer,1,n,nil);
    sleep(10);
    if buffer<>' '
      then lbl.Caption:=buffer;

  until (FALSE);

end;

     Mais le plus simple c'est encore d'utiliser le composant TComPort de Dejan Crnila que devrais trouver sans trop de difficulté.

Comment sur un port série sosu delphi 8 .net?

1 réponse

Votre réponse