|
hola amigos me parece muy interesante este tema, solo tengo una pregunta: puedo adaptar el código a cbuilder5?
el problema es que tengo desarrollado un punto de venta(para abarroteras) con builder5 y mysql y le quiero agregar la facultad de que una pesa digital le envié los datos a un edit de mi formulario de ventas.
puedo convertir este código a builder5?
uses
SysUtils,
windows;
var Puerto,n:integer;
Num:byte;
Cad:string;
Mode:DCB;
begin
Puerto:=FileOpen('COM1',fmOpenRead);//Abre el puerto
Mode.BaudRate := 1200;
Mode.ByteSize := 8;
Mode.Parity := NOPARITY;
Mode.StopBits := ONESTOPBIT;
SetCommState(Puerto, Mode); //Ajusta los parámetros
// Los datos se repiten y terminan con #13(CR)
repeat
repeat until FileRead(Puerto,Num,1)=1;
until Num=13; // Final de cadena anterior
Cad:='';
for n := 1 to 8 do begin
repeat until FileRead(Puerto,Num,1)=1;//lee un byte
Cad:=Cad+chr(Num);
end;
write(Cad);//Muestra la lectura
Sleep(1000); // Espera para poder ver el resultado
end.
porfa ayuda!!!!!!
|