Port com

Question

Bonjour dans le cadre du dev d'une petite appli pour piloter un module
de commande de relais, je doit envoyer des informations sur le port
s&#233;rie.



les donn&#233;es du constructeur me signale qu'il faut utiliser le
param&#233;trage suivant pour la transmission 2400 bauds, 1 bit de stop, pas
de parit&#233;, 8 bits de donn&#233;es, il ne donne pas d'autres information.



J'utilise donc le composant Comport pour ce faire, hors y a surement un probleme car la transmission ne s'effectue pas ...



g un pti prog de test en VB qui fonctionne nickel mais quand je teste
sous delphi y a meme pas la Led du module quis'allume lors d'une
transmission quand bien meme la trame n'est pas la bonne .



si quelqu'un a une id&#233;e....

d'avance merci.

Temple0fb00m

moldov · Answer

Salut, voila un bout de code qui fonctionne quand j'envoie des donn&#233;es a une imprimante par le port com.



  ComPortSerie.Port := 'COM1';

  ComPortSerie.BaudRate := StrToBaudRate('9600');

  ComPortSerie.DataBits := StrToDataBits('8');

  ComPortSerie.StopBits := StrToStopBits('1');

  ComPortSerie.Parity.Bits := StrToParity('None'));

  ComPortSerie.FlowControl.FlowControl := StrToFlowControl('Software'));

  ComPortSerie.Open;

  ComPortSerie.Connected := true;

  ComPortSerie.WriteStr('Tes donn&#233;es');

  ComPortSerie.Close;



Voila

Bonne Prog

templeofboom · Answer

j'ai quasiment le meme code mais il ne se passe rien au niveau de la
r&#233;ception: une led doit s'allumer lors de l'envoi de n'importe quelle
donn&#233;e et la rien du tout snif...

ca m'emb&#234;te un peu et je ne comprend pas pourquoi ca ne fonctionne pas : je m'arrache les cheveux...

merci quand meme. 

Temple0fb00m

jlen100 · Answer

salut,

si le constructeur donne un taux de transmission de  2400bauds

il faut ecrire:

   ComPortSerie.BaudRate := StrToBaudRate('2400'); au lieu de :

   ComPortSerie.BaudRate := StrToBaudRate('9600');

mais tu peux aussi configurer ton port en doublecliquant sur le
composant et en affectant directement les bons parametres: pas une
ligne de code &#224; &#233;crire !!

verifie aussi que ta COM se fait bien sur le port COM1

templeofboom · Answer

merci mais g d&#233;ja fait tout ca g un probleme ca veut pas dire que je suis completement a la rammasse en prog' merci quand mm...


Temple0fb00m

cs_Kenavo · Answer

Salut,



Pas de transmission ! Si tu es sur le bon com, je parierai sur les controles de flux ! 



Je mettrais Comport.FlowControl.FlowControl &#224; fcNone;



Ken@vo

<hr size="2" width="100%">Code, Code, Codec !

[%3C/body ]

templeofboom · Answer

j'ai test&#233; et tjs pas de signal...



le composant comm du prog de test en VB,  indique ces valeurs:



DTREnable =vrai

InBufferCount =0

InBuffersize = 1024

Inputmode =  CommInputModeText

NullDiscard =faux

OutBuffersize =4096

RTSEnable =vrai

Setting ='2400,n,8,1'

 
mais je ne vois pas vraiment &#224; quoi cela correspond  par rapport au composant Comport.

ni en terme de communication ce que veux dire ceci.
Temple0fb00m

fredylapoc47 · Answer

implementation


{$R *.DFM}
// inport externe in rscom.dll  
function OPENCOM(OpenString:PChar):Integer; stdcall; external 'RSCOM.DLL';
procedure CLOSECOM(); stdcall; external 'RSCOM.DLL';
procedure DELAY(DelayTime: Real); stdcall; external 'RSCOM.DLL';
procedure TXD(d:WORD); stdcall; external 'RSCOM.DLL';
....
procedure flashTXD; 
begin
  TXD(1);                    // out pin 3   DB9
  DELAY(1000);
  TXD(0);                    // reset pin 3
  DELAY(1000);
end;              important  RSCOMM.DLL   voir               http://www.delphipage.net/ 

FredyLaPoc47               http://www.delphipage.net/

Port com

7 réponses

Votre réponse

Discussions similaires