Ciao a tutti,
premesso che non ho mai creato una libreria in vita mia, vorrei crearne
una per la connessione a una porta seriale ma avrei qualche
difficoltà.
Questo è il codice che ho iniziato a scrivere:
uses
SysUtils {: CoClass},
Classes {: CoClass},
ShareMem {: CoClass};
type
TApdComPort = Class
{$R *.res}
var
ApdComPort1: TApdComPort;
begin
ApdComPort1 := TApdComPort.Create();
ApdComPort1.Baud := 9600;
ApdComPort1.InitPort;
if ApdComPort1.Open then
begin
ApdComPort1.PutString('#01A1#05');
end;
end.
Mi da diversi errori:
Undeclared identifier: 'Baud'
Undeclared identifier: InitPort'
Undeclared identifier: PutString'
Undeclared identifier: 'Open'
Come posso sistemare la cosa?
Grazie