Componente comunicação serial

Delphi

14/01/2005

Pessoal, estou procurando um componente de uma empresa responsável ou de um grupo de desenvolvimento que faça comunicação via porta serial e seja compatível com a maioria dos modens no mercado (para conexões X25). Este componente deverá ser sempre atualizado.
Se alguem puder me ajudar, ficarei grato...


Heavyromulo

Heavyromulo

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

14/01/2005

Colega,

Para comunicação serial, tenho utilizado o Async32 há alguns anos e tem me atendido, inclusive, já está atualizado para a versão 2005. Veja: http://www.tmssoftware.com/ta32.htm


GOSTEI 0
Dopi

Dopi

14/01/2005

Se vc precisa de uma solução Multiplataforma verifique a classe SynaSer

http://www.ararat.cz/synapse/

Veja tb a pagina do Cirilo Veloso (aqui do Forum) tem link para vários componentes para acesso a serial:
http://www.veloso.kit.net/rs232.html


GOSTEI 0
Heavyromulo

Heavyromulo

14/01/2005

pessoal, valeu pela ajuda, mas meu problema é eu vou poder discar um nº de telefone em vários modens do mercado. Esses componentes vão me ajudar?


GOSTEI 0
Dopi

Dopi

14/01/2005

Acho que nesse caso o problema não é a serial.... mas sim lidar com os diversos comandos AT dos modems... Os camandos básicos são padrões, como ATDT (discar tone), ATDP (discar pulse), ATH (hangup), etc... mas para configurar o modem, ligar/desligar compressão de dados, definir o protocolo, há muita variação nos comandos...

Veja esse exemplo que vem no Help da SynaSer
Serial port communication library
This unit contains a class that implements serial port communication for Windows or Linux. This class provides numerous methods with same name and functionality as methods of the Ararat Synapse TCP/IP library. The following is a small example how establish a connection by modem (in this case with my USB modem): 


  ser:=TBlockSerial.Create;
  try
    ser.Connect(´COM3´ );
    ser.config(460800,8,´N´ ,0,false,true);
    ser.ATCommand(´AT´ );
    if (ser.LastError <> 0) or (not ser.ATResult) then
      Exit;
    ser.ATConnect(´ATDT+420971200111´ );
    if (ser.LastError <> 0) or (not ser.ATResult) then
      Exit;
    // you are now connected to a modem at +420971200111 
    // you can transmit or receive data now 
  finally
    ser.free;
  end;


Observe que para discagem ele usou o comando ´ATDT´


GOSTEI 0
Dopi

Dopi

14/01/2005

Acho que nesse caso o problema não é a serial.... mas sim lidar com os diversos comandos AT dos modems... Os camandos básicos são padrões, como ATDT (discar tone), ATDP (discar pulse), ATH (hangup), etc... mas para configurar o modem, ligar/desligar compressão de dados, definir o protocolo, há muita variação nos comandos...

Veja esse exemplo que vem no Help da SynaSer
Serial port communication library
This unit contains a class that implements serial port communication for Windows or Linux. This class provides numerous methods with same name and functionality as methods of the Ararat Synapse TCP/IP library. The following is a small example how establish a connection by modem (in this case with my USB modem): 


  ser:=TBlockSerial.Create;
  try
    ser.Connect(´COM3´ );
    ser.config(460800,8,´N´ ,0,false,true);
    ser.ATCommand(´AT´ );
    if (ser.LastError <> 0) or (not ser.ATResult) then
      Exit;
    ser.ATConnect(´ATDT+420971200111´ );
    if (ser.LastError <> 0) or (not ser.ATResult) then
      Exit;
    // you are now connected to a modem at +420971200111 
    // you can transmit or receive data now 
  finally
    ser.free;
  end;


Observe que para discagem ele usou o comando ´ATDT´


GOSTEI 0
POSTAR