[Lazarus] DateTimeToStr gives an invalid format string error when closing an rdp session

[Luca Olivetti]

El 24/01/17 a les 19:05, Mattias Gaertner via Lazarus ha escrit:
> On Tue, 24 Jan 2017 18:59:28 +0100
> Luca Olivetti via Lazarus <lazarus at lists.lazarus-ide.org> wrote:
>
>> El 24/01/17 a les 17:50, Luca Olivetti via Lazarus ha escrit:
>>> Hello,
>>>
>>> I'm trying to debug a strange thing I saw in production (the main
>>> symptom, but not the only one, is a TSynEdit in a tab in a TPageControl
>>> that goes completely blank, no text, no scrollbars, no nothing, I
>>> suspect I'm clobbering some memory but I'm not sure).
>>> So I setup a windows 7 virtual machine in a server to leave my program
>>> running under the debugger until it "breaks".
>
> Please provide a stacktrace.


I didn't manage to provoke (yet) the symptoms as above, but this is the 
call stack when I connect (or disconnect) via rdp


#0 fpc_raiseexception at :0
#1 
SYSUTILS_DATETIMETOSTRING$crc782201FE_STOREFORMAT$ANSISTRING$LONGINT$BOOLEAN 
at :0
#2 
SYSUTILS_DATETIMETOSTRING$crc782201FE_STOREFORMAT$ANSISTRING$LONGINT$BOOLEAN 
at :0
#3 
SYSUTILS_DATETIMETOSTRING$ANSISTRING$ANSISTRING$TDATETIME$TFORMATSETTINGS 
at :0
#4 SYSUTILS_DATETIMETOSTRING$ANSISTRING$ANSISTRING$TDATETIME at :0
#5 SYSUTILS_DATETIMETOSTR$TDATETIME$$ANSISTRING at :0
#6 TLOGGER__INTERNALLOG(0x1eab2390 '127.0.0.1:57233 Nueva 
conexi'#195#179'n desde 127.0.0.1:57233', <error reading variable>) at 
D:\boda_t10_l1_pc\comun\utils.pas:149
#7 TLOGGER__LOG(0x1eab2390 '127.0.0.1:57233 Nueva conexi'#195#179'n 
desde 127.0.0.1:57233', <error reading variable>) at 
D:\boda_t10_l1_pc\comun\utils.pas:190
#8 TMAINFRM__FTPLOG(0x1eab2390 '127.0.0.1:57233 Nueva conexi'#195#179'n 
desde 127.0.0.1:57233', <error reading variable>) at main.pas:352
#9 TFTPKESERVER__SYNCLOG(<error reading variable>) at 
D:\boda_t10_l1_pc\comun\ftpkeserver.pas:458
#10 CLASSES_CHECKSYNCHRONIZE$LONGINT$$BOOLEAN at :0
#11 TWINDOWPROCHELPER__DOWINDOWPROC(<error reading variable>) at 
.\win32\win32callback.inc:1960
#12 WINDOWPROC(787992, 0, 0, 0) at .\win32\win32callback.inc:2601
#13 USER32!IsWindowVisible at :0
#14 ?? at :0
#15 USER32!IsWindowVisible at :0
#16 TWINDOWPROCHELPER__DOWINDOWPROC(<error reading variable>) at 
.\win32\win32callback.inc:2571
#17 USER32!IsWindowVisible at :0
#18 ?? at :0

Line 1960 of win32callback.inc is the CheckSynchronize in

   case Msg of
     WM_NULL:
       if (Window = Win32WidgetSet.AppHandle) then
       begin
         CheckSynchronize;
         TWin32Widgetset(Widgetset).CheckPipeEvents;
       end;

(of TWindowProcHelper.DoWindowProc)


>
>> [...]
>> Forgot to say, lazarus 1.6.2, fpc 2.6.4, win32
>
> Good to know.
>
> Mattias
>


-- 
Luca Olivetti
Wetron Automation Technology http://www.wetron.es/
Tel. +34 93 5883004 (Ext.3010)  Fax +34 93 5883007