Data Do Servidor

[gleiston]

Estou desenvolvendo um programa de folha de ponto, onde o funionário irá registrar o seu ponto em um micro da rede e gostaria de saber se tem como pegar a data e hora do servidor da rede no momento do registro do ponto.

Grato, por possíveis ajudas.

[s3c]

Tem sim; é a api NetRemoteTOD e ela se encontra na NetApi.dll

[gleiston]

tem como me explicar como utilizar? estou iniciando na área.

[s3c]

Defina o seguinte:

type
  PTime_Of_Day_Info = ^TTime_Of_Day_Info;
  TTime_Of_Day_Info = record
    tod_elapsedt  :Integer;
    tod_msecs     :Integer;
    tod_hours     :Integer;
    tod_mins      :Integer;
    tod_secs      :Integer;
    tod_hunds     :Integer;
    tod_timezone  :LongInt;
    tod_tinterval :Integer;
    tod_day       :Integer;
    tod_month     :Integer;
    tod_year      :Integer;
    tod_weekday   :Integer;
  end;
  function NetRemoteTOD(ServerName :PChar;
                        var buffer :Pointer) :Integer; stdcall; external 'netapi32.dll';
  function NetApiBufferFree(buffer :Pointer) :Integer; stdcall; external 'netapi32.dll';

Para chamar:

var Time_Of_Day_Info:PTime_Of_Day_Info; Buffer:Pointer;
begin
  ServerName := '\\M4';
  if NetRemoteTOD(PChar(ServerName), Buffer) = 0 then
  begin
    Time_Of_Day_Info := Buffer;
    // Utilize
    Time_Of_Day_Info^.tod_elapsedt;
    Time_Of_Day_Info^.tod_msecs;
    Time_Of_Day_Info^.tod_hours;
    Time_Of_Day_Info^.tod_mins;
    Time_Of_Day_Info^.tod_secs;
    Time_Of_Day_Info^.tod_hunds;
    Time_Of_Day_Info^.tod_timezone;
    Time_Of_Day_Info^.tod_tinterval;
    Time_Of_Day_Info^.tod_day;
    Time_Of_Day_Info^.tod_month;
    Time_Of_Day_Info^.tod_year;
    Time_Of_Day_Info^.tod_weekday;
    // Essa função não libera o Buffer, para liberá-lo:
    NetApiBufferFree(Buffer);
  end;
end;

Obs: ServerName tem que ser uma WideString

[gleiston]

ainda não conheço isso: WideString

[s3c]

Uma WideString é uma String de WideChars, ou seja, ela mantem caracteres de 16 bits.

var ServerName:WideString;

[gleiston]

não consegui usar o código, poderia me explicar melhor.

[s3c]

Aonde está dando erro e qual o erro?

[gleiston]

em que componente devo colocar os códigos?

[s3c]

Bom, a primeira parte do código, coloque-a na interface.

A segunda parte é a chamada e você pode colocá-la quando o funcionário fizer o registro do ponto.