ActiveDelphi

[Renaldo72]

Olá pessoal, estou precisando muito da ajuda de voces. Estou tentando enviar a chave de cadastro, o codigo do cliente e a data do cadastro pelo webservice e sempre me vem a resposta que a data está com formato invalido, já tentei várias opções que achei na internet mas não adianta. Segue abaixo a função do botão:

procedure TForm1.BtnINClick(Sender: TObject);
var Resutado : WideString;
Tempo : TXSDateTime;
daterec : string;
begin
ShortDateFormat := 'yyyy-mm-dd';
ShortTimeFormat := 'hh:mm:ss';
Tempo := TXSDateTime.Create;
// DateTimeToXSDateTime('yyyy-MM-dd' + 'T' + 'HH:mm:ss.SSS');
// Tempo := DateTimeToXSDateTime(StrToDateTimeDef(FormatDateTime('yyyy''-''mm''-''dd''T''hh'':''nn'':''ss', Now),0));
// Tempo := DateTimeToXSDateTime(DataCheckin.Date + HoraCheckin.Time);
// Tempo := StrToDateTimeDef(FormatDateTime('yyyy-MM-dd"T"HH:mm:ss',Now),0);
Tempo := DateTimeToXSDateTime(Date + Time);
// Application.MessageBox(Pchar(DateTimeToStr(Tempo.AsDateTime)),'');
Resutado := (HTTPRIO1 as FnrhWs).fnrhCheckin(Edtchave.Text,Edtcodigo.Text,Tempo);
ShowMessage(Resutado);
end;

Me ajudem a resolver esse problema! Desde já agradeço a atenção dispensada.

Renaldo[/b]

[cyberdisk]

nesse link tem a solução

http://www.progtown.com/topic107825-txsdatetime-tdatetime.html

abraço
_________________
O conhecimento abre muitas portas

[Renaldo72]

Dessa forma parou de dar o erro de data invalida mas agora dar o erro é no executável.

procedure TForm1.BtnINClick(Sender: TObject);
var Resutado : WideString;
Tempo : TXSDateTime;
begin
ShortTimeFormat := 'hh:mm:ss';
Tempo := TXSDateTime.Create;
// eu usei dessa forma pois não conseguir converter de outra maneira
Tempo := TXSDateTime(FormatDateTime('YYYY-MM-DD-T',now));
Application.MessageBox(Pchar(FormatDateTime('YYYY-MM-DD-T',now)),'Teste');
No application.messagebox mostra certo a data e a hora
Resutado := (HTTPRIO1 as FnrhWs).fnrhCheckin(Edtchave.Text,Edtcodigo.Text,Tempo);
ShowMessage(Resutado);
end;

O erro no executavel é esse "Access viotation at address 00403720" o que pode ser? Por favor me ajudem.

Cyberdisk eu já tinha visto isso ai mas não dar certo sempre dar data com formato invalido. Mas obrigado pela ajuda

No aguardo

Renaldo

[Renaldo72]

Preciso da ajuda de vcs que são expert em delphi.