Bits
09/02/2006
0
procedure TForm1.MostraPorta;
var
Registro : TRegistry;
Lista : TStrings;
indice : Integer;
begin
Registro := TRegistry.Create;
Try
Registro.RootKey := HKEY_LOCAL_MACHINE;
Registro.OpenKey(´hardware\devicemap\serialcomm´, false);
Lista := tStringList.Create;
Try
Registro.GetValueNames(lista);
For indice := 0 to lista.Count - 1 do
label3.Caption := (Registro.ReadString(Lista.Strings[indice]));
// if CbPorta.Items.Count > 0 Then
// CbPorta.ItemIndex := 0;
finally
Lista.Free;
end;
Registro.CloseKey;
finally
Registro.Free;
end;
end;
Marcal
Posts
09/02/2006
Massuda
09/02/2006
Marcal
09/02/2006
Marcal
Mais Mussuda qual os componentes q usarei para ler os dados
ComPort1 => Conecta a Porta Serial definada, velocidade etc.
ComDataPacket1 => ???
ComLed1 => seria pra fazer a Visualização de Conctado ou não.
ComTerminal2 => ????
Eu so preciso q capture os dados (bits) e converte para normal para eu armazenar em banco de dados blz?
10/02/2006
Massuda
Clique aqui para fazer login e interagir na Comunidade :)