Ostatnio dzięki poradnikom dotyczącym programowania w Delphi postanowiłem powrócić do tematu (wcześniej używałem Visual Studio C#). Ponieważ również zaczynam "raczkować" z mikrokontrolerami AVR postanowiłem na początek zająć się obsługą serial portu. Aby poznać zasady programowania własnych komponentów w Delphi postanowiłem (w oparciu o poradniki video) na początek w ramach ćwiczeń stworzyć komponent wykrywający porty COM w PC. Owszem wiem, że w sklepie ATNEL dostępny jest rozbudowany komponent wyczerpujący w pełni temat, jednak postanowiłem stworzyć bardzo lekki komponent oparty na TComboBox. Ma on na celu po prostu podanie w rozwijalnym menu listę aktualnie dostępnych portów COM. Wersja, której kod podaję poniżej jest bardzo "lekka" i podaje tylko numery czynnych portów (bez ich opisów). Myślę że na podstawie tego kodu każdy będzie mógł sobie rozbudować listę portów o dalsze informacje (port virtualny itp).
Wystarczy taki komponent umieścić na formularzu by w prosty sposób wybrać numer portu COM do dalszych działań. Może komuś to się przyda.
[syntax=pascal]unit SerialCombo;
interface
uses
System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls,
Winapi.Windows, System.Win.Registry;
type
TComboBoxSerial = class(TComboBox)
private
var
Rejestr: TRegistry;
procedure getNamesCommPorts;
{ Private declarations }
protected
{ Protected declarations }
public
var
SerialCommPortList: TStringList;
Constructor Create(AOwner : TComponent); Override;
Destructor Destroy; Override;
procedure DropDown; override;
{ Public declarations }
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('ATKomponent', [TComboBoxSerial]);
end;
procedure TComboBoxSerial.getNamesCommPorts;
var
i: Integer;
begin
Rejestr.OpenKeyReadOnly('\HARDWARE\DEVICEMAP\SERIALCOMM\');
SerialCommPortList.Clear;
Rejestr.GetValueNames(SerialCommPortList);
Self.Clear;
for i:=0 to SerialCommPortList.Count - 1 do
begin
Self.Items.Add(Rejestr.ReadString(SerialCommPortList[i]));
end;
end;
Constructor TComboBoxSerial.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
Rejestr:= TRegistry.Create;
Rejestr.RootKey:= HKEY_LOCAL_MACHINE;
SerialCommPortList:= TStringList.Create;
Parent:= TWinControl(AOwner);
self.getNamesCommPorts;
end;
Destructor TComboBoxSerial.Destroy;
begin
Rejestr.Free;
inherited;
end;
procedure TComboBoxSerial.DropDown;
begin
inherited;
self.getNamesCommPorts;
end;
end.[/syntax]Statystyki: Napisane przez altym12119 — 19 paź 2017, o 22:10
]]>