Pasar de QBASIC A DELPHI

[zugazua2001]

Muchas gracias amigo hoy voy a probarlo.

Empezado por seoane

Fijándome mejor en los parámetros que utiliza el código de ejemplo, puede que la configuración del puerto que estamos buscando sea la siguiente:


Código Delphi [-]
with DCB do
begin
BaudRate := CBR_9600;
ByteSize := 7;
Parity := ODDPARITY;
StopBits := TWOSTOPBITS;
Flags := $03;
end;

[zugazua2001]

Hola amigos del foro, he pasado el codigo este ultimo a mi aplicacion.
Probe con el hiperterminal y me va tirando los pesos perfecto, cuando ejecuto mi aplicacion se queda en la sentencia siguiente, en el ReadFile(hport,....), es mas no intenta seguir leyendo mas caracteres.

repeat
ReadFile(hPort,C,1,Leidos,nil);
until C = #02;

por favor si me pueden ayudar se los agradeceria, la configuracion que anda perfecta en el hiperterminal es:

velocidad:9600
bits: 7
paridad: impar
bits de parada: 2


Gracias por todo nuevamente. Otra cosa yo utilizo el windows XP puede ser por eso que no me funciona?

[[seoane]]

Vamos por partes. El programa se queda parado en la instrucción ReadFile, o te refieres a que no sale del bucle. Si se queda parado en el ReadFile es que no le esta llegando nada, y si no sale del bucle es que no le manda le carácter #02 como se indicaba en la instrucciones, prueba eliminando ese bucle haber que pasa.

Si por el contrario se queda parado en el ReadFile es que no esta llegando la información al puerto serie, puede ser debido a muchas cosas, pero algo de lo que pone las instrucciones

NOTA: La instrucción OPEN "COM..., provoca que la línea RTS cambie de nivel lógico. Esto actúa como pedido de transmisión al cabezal, que enviará la información antes detallada.

me hace pensar que hay que jugar con el valor de RTS para que todo funcione. Así que activemos la linea RTS y veamos que pasa:

Código Delphi [-]
...

     if SetCommState(hPort, DCB) then
      begin
        PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or
          PURGE_RXCLEAR);
        // Aqui esta la rutina para leer
        C:= #0;
        // Activamos la linea RTS
        EscapeCommFunction(hPort,SETRTS);
        // Esperamos el caracter de inicio
        repeat
          ReadFile(hPort,C,1,Leidos,nil);
        until C = #02;
        // Leemos el peso
        repeat
          ReadFile(hPort,C,1,Leidos,nil);
          if C <> #13 then
            Result:= Result + C;
        until C = #13;
        // aqui termina
      end;

...

Tambien seria interesante, ya que dices que con el hyperterminal va bien, que tipo de control de flujo estas usando. Es el unico parametro que me falta por saber.

[zugazua2001]

En efecto se queda colgada en la sentencia ReadFile(...)

Muchisimas gracias por molestarte nuevamente y mañana voy hasta la balanza y lo pruebo.

[zugazua2001]

Te paso la configuracion del hiperterminal que me funciona bien:

configuracion del puerto:

bits x seg: 9600
Bits de datos: 7
Paridad: impar
Bits de parada: 2
Control de flujo: hardware

Gracias nuevamente.

[zugazua2001]

Hola amigo estoy muy complicado, se queda igualmente en el readfile().

No se que cambiar. Gracias nuevamente.

[[seoane]]

Lo único que se me ocurre es que también tenga que estar activada la linea DTR además de RTS. Vamos a cambiar los Flags de tal modo que estas se activen al abrir el puerto y permanezcan activas. Echo este cambio no abría ninguna diferencia entre lo que estamos haciendo nosotros y lo que hace el hyperterminal.

Código Delphi [-]
function Peso(Puerto: String): String;
var
  hPort: THandle;
  DCB: TDCB;
  Leidos: Cardinal;
  C: char;
begin
  Result:= '';
  Puerto:= Uppercase(Puerto);
  // Cambiar esto si es necesario un puerto diferente
  if (Puerto<>'COM1') and (Puerto<>'COM2') then
    exit;
  hPort:= CreateFile(PChar('\\.\'+Puerto), GENERIC_READ or GENERIC_WRITE,0, nil,
    OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0);
  if hPort<>INVALID_HANDLE_VALUE then
  begin
    DCB.DCBlength:= sizeof(DCB);
    if GetCommState(hPort,DCB) then
    begin
      // Cambiar esto para una configuracion del puerto diferente
      with DCB do
      begin
        BaudRate := CBR_9600;
        ByteSize := 7;
        Parity   := ODDPARITY;
        StopBits := TWOSTOPBITS;
        // Aqui es donde indicamos que active RTS y DTR
        Flags    := $1013;
        // Si no funciona prueba tambien con este otro valor
        // Flags := $1011;
      end;
      if SetCommState(hPort, DCB) then
      begin
        PurgeComm(hPort, PURGE_TXABORT or PURGE_RXABORT or PURGE_TXCLEAR or
          PURGE_RXCLEAR);
        // Aqui esta la rutina para leer
        C:= #0;
        // Esperamos el caracter de inicio
        repeat
          ReadFile(hPort,C,1,Leidos,nil);
        until C = #02;
        // Leemos el peso
        repeat
          ReadFile(hPort,C,1,Leidos,nil);
          if C <> #13 then
            Result:= Result + C;
        until C = #13;
        // aqui termina
      end;
    end;
    CloseHandle(hPort);
  end;
end;

Esperemos que haya suerte de esta vez, ya me quede sin ideas