</code>
//UnitTEST_USB

unit UnitTEST_USB;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  UnitPortSerieXP, StdCtrls;

type
  TForm1 = class(TForm)

  end;

var
  Form1: TForm1;
  Data:array[1..8] of Boolean;
  numcom:integer;
  i:integer;
  Ordre_Data:array[1..8] of Byte;

  implementation

{$R *.DFM}

// SELECTION DU PORT COM ET OUVERTURE ==========================================

begin
 numCom:=3;
 if not(InitCom(numCom,9600,NOPARITY,ONESTOPBIT)) then
  ShowMessage( 'Impossible d''ouvrir COM'+inttostr(numCom) );

// CHANGEMENT D'ETAT D'UNE SORTIE ==============================================

i:=7;
Data[i]:=true;

// PROCEDURE D'ENVOI DES DONNEES AU MONTAGE ====================================
 // Ordre dans lequel les données doivent être envoyées-------------------------
 Ordre_Data[1]:=1;
 Ordre_Data[2]:=2;
 Ordre_Data[3]:=3;
 Ordre_Data[4]:=4;
 Ordre_Data[5]:=8;
 Ordre_Data[6]:=7;
 Ordre_Data[7]:=6;
 Ordre_Data[8]:=5;

 // Envoi des données via le port série-----------------------------------------
 DTRon; //STROBE=0
 for i:=8 downto 1 do
 begin
  TXDon; //CLK=0
  if Data[ Ordre_Data[i] ] then RTSoff else RTSon; //DATA
  TXDoff; //CLK=1
 end;
 DTRoff; //STROBE=0
end.

//#########################FIN####################################

UnitPortSerieXP

{*******************************************************************************
  Fonctions et procédure permettant de piloter les lignes du port série du PC
 comme des lignes d'Entrées / Sorties
*******************************************************************************}

unit UnitPortSerieXP;

interface

uses
  Windows,Messages,SysUtils,Classes;

Function InitCom(Com:Integer;Vitesse:LongInt;Parite:Byte;stopsBits:Byte):Boolean;
Procedure CloseCom;
Function TXDon:Boolean;
Function TXDoff:Boolean;
Function DTRon:Boolean;
Function DTRoff:Boolean;
Function RTSon:Boolean;
Function RTSoff:Boolean;
Function CTS:boolean;
Function DCD:boolean;
Function DSR:boolean;
Function RI:boolean;
Function Lecture:Byte;

implementation

var dcbCom:TDCB;
    hPort:LongInt;

//==========================================================================================
//Initialisation du port COM
FunctionInitCom(Com:Integer;Vitesse:LongInt;Parite:Byte;stopsBits:Byte):Boolean;
begin
 hPort:=CreateFile(PChar('COM'+IntToStr(Com)),
        GENERIC_READ or GENERIC_WRITE,0,nil,OPEN_EXISTING,
        FILE_ATTRIBUTE_NORMAL,LongInt(0));
 if (hPort=LongInt(INVALID_HANDLE_VALUE)) then
     result:=false
 else
 begin
  if GetCommState(hPort,dcbCom) then
  begin
   dcbCom.Baudrate:=Vitesse;
   dcbCom.ByteSize:=8;
   dcbCom.Parity:=Byte(Parite);
   dcbCom.Flags:=0;
   SetCommState(hPort,dcbCom);
   result:=true;
  end
  else
   result:=false;
 end;
end;

//==========================================================================================
//Fermeture du port COM
Procedure CloseCom;
begin
 try
  CloseHandle(hPort);
 finally;
 end;
end;

//==========================================================================================
//TXD ON
Function TXDon:Boolean;
begin
 result:=EscapeCommFunction(hPort,SETBREAK);
end;

//==========================================================================================
//TXD OFF
Function TXDoff:Boolean;
begin
 result:=EscapeCommFunction(hPort,CLRBREAK);
end;

//==========================================================================================
//DTR ON
Function DTRon:Boolean;
begin
 result:=EscapeCommFunction(hPort,SETDTR);
end;

//==========================================================================================
//DTR OFF
Function DTRoff:Boolean;
begin
 result:=EscapeCommFunction(hPort,CLRDTR);
end;

//==========================================================================================
//RTS ON
Function RTSon:Boolean;
begin
 result:=EscapeCommFunction(hPort,SETRTS);
end;

//==========================================================================================
//RTS OFF
Function RTSoff:Boolean;
begin
 result:=EscapeCommFunction(hPort,CLRRTS);
end;

//==========================================================================================
//LECTURE CTS
Function CTS:Boolean;
var state:Cardinal;
begin
 if GetCommModemStatus(hPort,State) then
 begin
  if (state and MS_CTS_ON)<>0 then result:=true else result:=false;
 end
 else
  result:=false;
end;

//==========================================================================================
//LECTURE DSR
Function DSR:Boolean;
var state:Cardinal;
begin
 if GetCommModemStatus(hPort,State) then
 begin
  if (state and MS_DSR_ON)<>0 then result:=true else result:=false;
 end
 else
  result:=false;
end;

//==========================================================================================
//LECTURE DCD
Function DCD:Boolean;
var state:Cardinal;
begin
 if GetCommModemStatus(hPort,State) then
 begin
  if (state and MS_RLSD_ON)<>0 then result:=true else result:=false;
 end
 else
  result:=false;
end;

//==========================================================================================
//LECTURE RI
Function RI:Boolean;
var state:Cardinal;
begin
 if GetCommModemStatus(hPort,State) then
 begin
  if (state and MS_RING_ON)<>0 then result:=true else result:=false;
 end
 else
  result:=false;
end;

//==========================================================================================
//LECTURE DES 4 ENTREES, RETOURNE UN MOT CODE SUR 4 BITS
Function Lecture:Byte;
var DATA:Byte;begin
 DATA:=0;
 if CTS then DATA:=DATA AND 1;{LSB}
 if DSR then DATA:=DATA AND 2;
 if RI  then DATA:=DATA AND 4;
 if DCD then DATA:=DATA AND 8;{MSB}
 result:=DATA;
end;

end.

###############################FIN####################################
<code type="delphi">

Le message qui suit est une réponse automatique activée par un modérateur.
Les réponses automatiques permettent d'éviter aux modérateurs d'avoir à répéter de nombreuses fois la même chose, et donc de leur faire gagner beaucoup de temps.
Nous sommes néanmoins ouverts et si vous avez une question ou une remarque, n'hésitez pas à contacter le modérateur en question par MP.

int main(int argc, char *argv[])
{
    long choixOperation;

    printf("Choisissez l'operation a effectuer");
    /* etc. */
}