Pasar de QBASIC A DELPHI

[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

[zugazua2001]

el unico problema es que en algunos momentos me lo deja de capturar.
Vuelvo a correr el hiperterminal y me lo vuelve a capturar.

Muchisimas gracias, por haberme dedicado tanto tiempo. Estoy muy agradecido.