ActiveDelphi

[mossane]

Olá pessoal...
Para os entendidos, preciso que meu sistema busque a data na internet, pois, preciso da data correta pra não haver lançamentos com datas diferentes da do dia, e também pra bloqueio do sistema por data...
Uso Dephi 7

Abraços
Mossane

[mossane]

Olá pessoal
Consegui resolver o problema, depois de muitas pesquisas, ai está a solução

use o componente da palheta Indy
"IdDayTime"
coloque:
host = time.nist.gov
readTimeout=1000

var i:integer;
testo,data:string;
begin
data:=IdDayTime1.DayTimeStr;
for i:=0 to length(data) do begin
If data[i] = ' ' then begin
testo:=copy(data,i+1,8);
Break;
end;
end;
DateEdit1.Text:=copy(testo,7,2)+'/'+copy(testo,4,2)+'/20'+copy(testo,1,2);
end;

Abraços a tds
Mossane

[adriano_servitec]

[imex]

Não sei dizer mas você pode experimentar a rotina deste tópico:

http://www.activedelphi.com.br/forum/viewtopic.php?t=64879&highlight=

Espero que seja útil.

[rvercesi]

O Tempo Universal Coordenado (em inglês: Coordinated Universal Time), ou UTC (acrónimo de Universal Time Coordinated), também conhecido como tempo civil, é o fuso horário de referência a partir do qual se calculam todas as outras zonas horárias do mundo.

É o sucessor do Tempo Médio de Greenwich (Greenwich Mean Time), cuja sigla é GMT. A nova denominação foi cunhada para eliminar a inclusão de uma localização específica num padrão internacional, assim como para basear a medida do tempo nos padrões atômicos, mais do que nos celestes.

Ou seja, no Brasil (horário padrão de Brasília) estamos a -3 horas de UTC.

[adriano_servitec]