altp
19-08-2005, 12:03:52
Hola amigos del Foro.
Tengo un problema y no soy capaz de resolverlo, a ver si me pueden echar una manita.
Estoy intentando leer desde una balanza electrónica (es de la marca DIBAL, SERIE F, está configurada de TIPO 0 y PROTOCOLO 4), pues eso que por más información que leo, por más cosas que pruebo, (componentes de las APRO, TCOMPORT, etc) no soy capaz de leer la información.
Aquí les pongo el código que estoy utilizando :
const
NombrePuerto = 'COM3';
var
HandlePuerto : THandle; // Manejador para el puerto
Cadena : String; // Para leer del puerto
dwValor : DWORD; // Tamaño de la lectura
Sta : COMSTAT; // Estado o tamaño del buffer de lectura
bResult : Boolean; // Parámetro de resultado
BDatos : DCB;
TMS : TCOMMTIMEOUTS;
begin
HandlePuerto := Windows.CreateFile(PChar(NombrePuerto), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
// Comprobar que la apertura ha sido correcta
If (INVALID_HANDLE_VALUE <> HandlePuerto) then begin
Windows.GetCommState(Handle, BDatos);
BDatos.BaudRate := cbr_9600; // 9200 Baud
BDatos.ByteSize := 8; // 8 Bytes
BDatos.Parity := 0; // Paridad N
BDatos.Stopbits := 1; // Bit de Parada (1)
Windows.SetCommState(Handle, BDatos);
With TMS do begin
ReadIntervalTimeout := 0;
ReadTotalTimeoutMultiplier := 2;
ReadTotalTimeoutConstant := 1;
WriteTotalTimeoutMultiplier := 0;
WriteTotalTimeoutConstant := 0;
end;
// Vamos a ver si hay algo que leer...
If (Windows.ClearCommError(HandlePuerto, dwValor, @Sta)) then begin
If (0 < Sta.cbInQue) then begin
// Redimensionar la cadena de lectura
SetLength(Cadena, (Sta.cbInQue + 1));
bResult := Windows.ReadFile(HandlePuerto, PChar(Cadena)^, Sta.cbInQue, dwValor, nil);
if (bResult) then begin
// Dimensionar la cadena al número de bytes leídos
SetLength(Cadena, dwValor);
Edit1.Text := Cadena;
end;
end;
end;
end;
Windows.CloseHandle(HandlePuerto);
Gracias por su ayuda
Tengo un problema y no soy capaz de resolverlo, a ver si me pueden echar una manita.
Estoy intentando leer desde una balanza electrónica (es de la marca DIBAL, SERIE F, está configurada de TIPO 0 y PROTOCOLO 4), pues eso que por más información que leo, por más cosas que pruebo, (componentes de las APRO, TCOMPORT, etc) no soy capaz de leer la información.
Aquí les pongo el código que estoy utilizando :
const
NombrePuerto = 'COM3';
var
HandlePuerto : THandle; // Manejador para el puerto
Cadena : String; // Para leer del puerto
dwValor : DWORD; // Tamaño de la lectura
Sta : COMSTAT; // Estado o tamaño del buffer de lectura
bResult : Boolean; // Parámetro de resultado
BDatos : DCB;
TMS : TCOMMTIMEOUTS;
begin
HandlePuerto := Windows.CreateFile(PChar(NombrePuerto), GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
// Comprobar que la apertura ha sido correcta
If (INVALID_HANDLE_VALUE <> HandlePuerto) then begin
Windows.GetCommState(Handle, BDatos);
BDatos.BaudRate := cbr_9600; // 9200 Baud
BDatos.ByteSize := 8; // 8 Bytes
BDatos.Parity := 0; // Paridad N
BDatos.Stopbits := 1; // Bit de Parada (1)
Windows.SetCommState(Handle, BDatos);
With TMS do begin
ReadIntervalTimeout := 0;
ReadTotalTimeoutMultiplier := 2;
ReadTotalTimeoutConstant := 1;
WriteTotalTimeoutMultiplier := 0;
WriteTotalTimeoutConstant := 0;
end;
// Vamos a ver si hay algo que leer...
If (Windows.ClearCommError(HandlePuerto, dwValor, @Sta)) then begin
If (0 < Sta.cbInQue) then begin
// Redimensionar la cadena de lectura
SetLength(Cadena, (Sta.cbInQue + 1));
bResult := Windows.ReadFile(HandlePuerto, PChar(Cadena)^, Sta.cbInQue, dwValor, nil);
if (bResult) then begin
// Dimensionar la cadena al número de bytes leídos
SetLength(Cadena, dwValor);
Edit1.Text := Cadena;
end;
end;
end;
end;
Windows.CloseHandle(HandlePuerto);
Gracias por su ayuda