5 respuestas en este tema

[seoane]

Aprovechando que algunos ya tenéis "algunos añitos"  necesito un consejo sobre msdos (el de verdad, no la consola de windows)

Quiero sincronizar la hora de una serie de equipos con msdos con la de un servidor. Los equipos pueden acceder a internet usando el programa curl, que maneja el protocolo http y ftp. Tengo una pagina web que devuelve la fecha y la hora, en texto plano y con el formato adecuado, asi que pense en descargar la hora a un archivo de texto y ejecutar algo como esto:

delphi

date < fecha.txt

Funciona bien, pero el problema es que si por cualquier motivo no se descargo bien el archivo fecha.txt el comando date entra en un bucle y no sale de ahi. Y ahi va mi primera pregunta ¿sabeis de algun comando o programa que permita cambiar la fecha, y que si la fecha no es correcta de error y termine, sin quedarse esperando?

Y si no conocéis ninguno programa que lo haga, ¿alguien sabe como cambiar la fecha y la hora en msdos desde un programa en turbopascal/freepascal?

Gracias

[escafandra]

desde el punto de vista de desde un programa en turbopascal/freepascal no te puedo responder, pero si puedo decirte que el estandar de C tiene la función settime que es portable en DOS, Win16 y OS/2. Utiliza una estructura del tipo time definida en dos.h:

cpp

struct time
{
    unsigned char   ti_min;     /* Minutes */
    unsigned char   ti_hour;    /* Hours */
    unsigned char   ti_hund;    /* Hundredths of seconds */
    unsigned char   ti_sec;     /* Seconds */
};

Las funciones de obtener la hora y asignarla son:

cpp

void gettime(struct time *timep);
void settime(struct time *timep);

Estas funciones utilizan la interrupción 21 del DOS:
Funciones:
2C: Get Time
2D: Set Time

Espero haberte puesto en la pista.

Saludos.

[escafandra]

Podríamos escribir algo como esto:

delphi

procedure SetTime(Hour, Min, Sec, hsec:BYTE);
asm
  mov CH, Hour
  mov CL, Min
  mov DH, Sec
  mov DL, hsec
  mov AH, 2Dh
  INT 21h
end;

Si bien así no lo podremos probar en WinXP.

Saludos.

[egostar]

En turbo pascal recuerdo que usaba esto:

delphi

    GetDate(y,m,d,dow);
    GetTime(h,min,seg,hund);
 
    SetDate(y,m,d);
    SetTime(h,min,seg);

Y si mal no recuerdo se usaba la unidad DOS.

Salud OS

[egostar]

Y bueno ya en esto, me encontré este código en mi archivo muerto

delphi

Const
  Meses : Array [1..12] Of String
            = ('Enero','Febrero','Marzo','Abril','Mayo','Junio',
               'Julio','Agosto','Septiembre','Octubre','Noviembre',
               'Diciembre');
  Dias  : Array [0..6] Of String
            = ('Domingo','Lunes','Martes','Miércoles',
               'Jueves','Viernes','Sábado');
 
 
  Procedure MuestraTiempo;
  var
    y,m, d,dow   : Word;
    h,min,s,hund : Word;
    LineaFecha   : String;
  Begin
    Window(1,1,80,25);
    TextColor(14);
    TextBackground(1);
    GetDate(y,m,d,dow);
    GetTime(h,min,s,hund);
    LineaFecha := Dias[dow]+', '+Form('@@',d)+' de '+
                  Meses[m]+' de '+Form('####',y);
    For I := Length(LineaFecha)+1 to 36 do
        Insert(' ',LineaFecha,I);
    GotoXY(3,2);
    Write(LineaFecha);
    GotoXY(65,2);
    Write(LeadingZero(h),':',LeadingZero(min),':',
          LeadingZero(s),'.',LeadingZero(hund));
  End;
 

Salud OS

[seoane]

Perdón por tardar en responder, pero estaba intentando otra solucion. Encontre un programa "ntime.exe" para msdos que puede sincronizar la hora con un servidor NTP. Funcionaba de maravilla, en una maquina virtual  ... cuando lo intente usar en una de las maquinas reales no habia forma de que se conectara al servidor.

Pero volviendo al hilo, como bien apuntasteis tanto escafandra como egostar existe la funcion Settime, al menos en freepascal, pero aun no pude probarlo porque no consigo encontrar la maquina virtual donde tengo instalado freepascal para DOS (soy un desastre  ). Pero en cuanto la encuentre y tenga un momento lo pruebo y os cuento los resultados.