Jump to content
Notícias do ACBr

click.png

click.png

click.png

click.png

click.png

click.png

logo_acbr_paygo.png

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


Saiba mais

beneficios.png

click.png

click.png

click.png

LucasABC

Membros
  • Posts

    2
  • Joined

  • Last visited

Profile Information

  • Sexo
    Masculino
  • Location
    Tupã

LucasABC's Achievements

Newbie

Newbie (1/14)

  • First Post
  • Week One Done
  • One Month Later
  • One Year In
  • Conversation Starter

Recent Badges

0

Reputation

  1. 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;
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.