gleiston Postado Junho 4, 2004 Denunciar Share Postado Junho 4, 2004 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Junho 4, 2004 Denunciar Share Postado Junho 4, 2004 Tem sim; é a api NetRemoteTOD e ela se encontra na NetApi.dll Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 gleiston Postado Junho 4, 2004 Autor Denunciar Share Postado Junho 4, 2004 tem como me explicar como utilizar? estou iniciando na área. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Junho 4, 2004 Denunciar Share Postado Junho 4, 2004 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 Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 gleiston Postado Junho 4, 2004 Autor Denunciar Share Postado Junho 4, 2004 ainda não conheço isso: WideString Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Junho 4, 2004 Denunciar Share Postado Junho 4, 2004 Uma WideString é uma String de WideChars, ou seja, ela mantem caracteres de 16 bits. var ServerName:WideString; Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 gleiston Postado Junho 11, 2004 Autor Denunciar Share Postado Junho 11, 2004 não consegui usar o código, poderia me explicar melhor. Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Junho 14, 2004 Denunciar Share Postado Junho 14, 2004 Aonde está dando erro e qual o erro? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 gleiston Postado Junho 14, 2004 Autor Denunciar Share Postado Junho 14, 2004 em que componente devo colocar os códigos? Citar Link para o comentário Compartilhar em outros sites More sharing options...
0 s3c Postado Junho 14, 2004 Denunciar Share Postado Junho 14, 2004 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. Citar Link para o comentário Compartilhar em outros sites More sharing options...
Pergunta
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.
Link para o comentário
Compartilhar em outros sites
9 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.