Google translation of the mail: Sorry to disturb you first because it's in Italian, second, because' like me you've had the problem to translate the procedure setdatetime Lazarus on Delphi, I have seen the answers that you gave but then I lost, how do I convert a TDateTime in a ptimeval for fpsettimeofday function (tp: ptimeval; TZP: ptimezone): CInt; you how you resolved? Thanks Brunello
2009/6/6 Brunello Candelaresi <[email protected]>: > grazie mille per la tempestivita' e la disponibilita' ora provo subito, ciao > Brunello > > ________________________________ > Da: Lazarus <[email protected]> > A: [email protected] > Inviato: Sabato 6 giugno 2009, 9:58:10 > Oggetto: New Personal Message: Re: Problema con setdatetime > > You have just been sent a personal message by mrdebug on Lazarus. > > IMPORTANT: Remember, this is just a notification. Please do not reply to > this email. > > The message they sent you was: > > Quote from: brunello on June 05, 2009, 11:19:55 pm > > scusa la sfacciataggine ma ti disturbo primo perche' sei italiano, secondo > perche' come me hai avuto il problema di traslare la procedura setdatetime > di Delphi su Lazarus, ho visto le risposte che ti hanno dato ma a quel punto > mi sono perso, come faccio a convertire un TDateTime in un ptimeval per la > function fpsettimeofday( tp: ptimeval; tzp: ptimezone):cint; > tu come hai risolto? Grazie Brunello > > > > > Prova questo: > Code: > > > {$ifdef linux} > TSTOra: TSystemTime; > TVOra: TimeVal; > TZZona: TimeZone; > TDTDataOra: TDateTime; > {$else} > mDay: Word; > {$endif} > > {$ifdef linux} > try > TDTDataOra:= EncodeDateTime(anno, mese, giorno, ore, minuti, > secondi, millisecondi); > if fpGetTimeOfDay(@TVOra, @TZZona)= 0 then begin > TDTDataOra:= IncMinute(TDTDataOra, TZZona.tz_minuteswest); > DateTimeToSystemTime(TDTDataOra, TSTOra); > TVOra.tv_sec:= DateTimeToUnix(TDTDataOra); > TVOra.tv_usec:= TSTOra.MilliSecond; > if fpSetTimeOfDay(@TVOra, @TZZona)= 0 then begin > AggiungiAttributo(XmlDocOut, nodoPrimoLivelloDomOut, > 'Esito', 'Ok'); > end else begin > AggiungiAttributo(XmlDocOut, nodoPrimoLivelloDomOut, > 'Esito', 'Error'); > end; > end else begin > AggiungiAttributo(XmlDocOut, nodoPrimoLivelloDomOut, > 'Esito', 'Error'); > end; > Except on e: Exception do begin > AggiungiAttributo(XmlDocOut, nodoPrimoLivelloDomOut, > 'Esito', 'Error'); > MainForm.Log('TTCPHttpThrd.ProcessHttpRequest() '+ > e.Message); > end; > end; > {$endif} > {$ifdef win32} > try > mDay:= 0; > SetDate(anno, mese, giorno); > SetTime(ore, minuti, secondi, Word(millisecondi div 10)); > GetDate(anno, mese, giorno, mDay); > GetTime(ore, minuti, secondi, millisecondi); > MainForm.Log('TTCPHttpThrd.ProcessHttpRequest() DataOra: '+ > FillStringLeft(IntToStr(giorno), '0', 2)+ '/'+ > FillStringLeft(IntToStr(mese), '0', 2)+ '/'+ > FillStringLeft(IntToStr(anno), '0', 2)+ '/'+ > FillStringLeft(IntToStr(ore), '0', 2)+ ':'+ > FillStringLeft(IntToStr(minuti), '0', 2)+ ':'+ > FillStringLeft(IntToStr(secondi), '0', 2)+ ':'+ > FillStringLeft(IntToStr(millisecondi* 10), '0', 3)); > AggiungiAttributo(XmlDocOut, nodoPrimoLivelloDomOut, > 'Esito', 'Ok'); > MainForm.Log('TTCPHttpThrd.ProcessHttpRequest() DataOra: '+ > DateTimeToStr(Now)); > Except on e: Exception do begin > AggiungiAttributo(XmlDocOut, nodoPrimoLivelloDomOut, > 'Esito', 'Error'); > MainForm.Log('TTCPHttpThrd.ProcessHttpRequest() '+ > e.Message); > end; > end; > {$endif} > > Reply to this Personal Message here: > http://www.lazarus.freepascal.org/index.php?action=pm;sa=send;f=inbox;pmsg=992;quote;u=13505 > -- Felipe Monteiro de Carvalho -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
