Jump to content

dia-do-acbr-online.png

Ganhe acesso a todas Palestras
Assinando o Suporte ACBr Comercial

Saiba Mais


dia-do-acbr-online.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png
  • Este tópico foi criado há 1948 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Recommended Posts

Olá, estou trabalhando em um projeto onde estou utilizando o componente ACBRsms.

O componente esta funcionando perfeitamente, porem, estou com um problema que ainda não consegui sanar.

Para realizar a conexão com o modem, utilizo um "Combobox" que é carregado com todas as portas COM que estão em uso na maquina, mas, possuo diversos dispositivos conectados nesta maquina, cheguei a ter em certo momento, 6 portas COM disponíveis para selecionar, mas não sabia qual delas era o bendito modem.

Estou a procura de uma maneira de poder listar os dispositivos conectados NOME.

Alguém teria uma ideia?

A maneira q utilizo para buscar as portas COM é:

 

procedure AcharPortasSeriais(const AStringList : TStrings);
var
  Registro: TRegistry;  //Para trabalhar com os Registros do windows.
  Lista: Tstrings;
  indice: Integer;      //Para incrementar.
begin
  AStringList.Clear;
  Registro := TRegistry.Create; //Cria e aloca espaço na memória para o objeto.
  try
    Registro.RootKey := HKEY_LOCAL_MACHINE;  //Define chave raiz.
    Registro.OpenKey('hardware\devicemap\serialcomm', False); //Abre a chave.
    Lista := TstringList.Create;
    try
      //Obtém uma string contendo todos os nomes de valores associados com a chave atual.
      Registro.GetValueNames(Lista);
      //Pega nos nomes das portas.
      for indice := 0 to Lista.Count - 1 do //Count é a quantidade de portas existentes.
        AStringList.Add(Registro.ReadString( Lista.Strings[indice] ));

    finally
      Lista.Free;
    end;
    Registro.CloseKey;
  finally
    Registro.Free;
  end;
end;

 

Link to post
Share on other sites
  • Fundadores

Observe que o ACBrDevice possui um método para trazer as portas seriais:

Ex:

ACBrECF1.Device.AcharPortasSeriais( cbxPorta.Items )

A unica maneira de saber se ele é ou não um modem... é tentando a comunicação, e vendo se há resposta... mas isso pode causar uma demora na sua aplicação...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link to post
Share on other sites
  • Este tópico foi criado há 1948 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...