Jump to content

Virgo

Members
  • Content Count

    40
  • Joined

  • Last visited

Community Reputation

4 Neutral

Technical Information

  • Delphi-Version
    Delphi 2 - 7
  1. Virgo

    SQL with Sum & Case

    Also, I hope you do not have NULL values in DEBIT and CREDIT fields at CUSTMOVEMENTS table.
  2. Virgo

    SQL with Sum & Case

    Try: SELECT X.*, Case When CAST(X.BALANCE AS NUMERIC(15, 2) > 0 then 'Debit' else 'Credit' as STATE FROM ( SELECT C.CUSTNO, C.CUSTNAME, SUM (CM.DEBIT-CM.CREDIT)BALANCE FROM CUSTMOVEMENTS CM /* it is a View */ LEFT JOIN CUSTOMER C ON CM.CUSTNO=C.CUSTNO WHERE CM.TDATE <= '03/30/2021' GROUP BY C.CUSTNO, C.CUSTNAME HAVING SUM (CM.DEBIT-CM.CREDIT) <> 0 ) X
  3. Virgo

    MAP2PDB - Profiling with VTune

    Warning: [ 41] Failed to resolve symbol to module: [0005:00000008] SysInit.TlsLast But otherwise ok. But Delphi 5 is weird and probably hopeless... Start Length Name Class 0001:00000000 00002B14H .text CODE 0002:00000000 000000BCH .data DATA 0002:000000BC 000004D1H .bss BSS
  4. Virgo

    MAP2PDB - Profiling with VTune

    Now, that I'm checking: is 0 length .xdata ovelapping .tls? Start Length Name Class 0001:00401000 00003B90H .text CODE 0002:00405000 00000100H .itext ICODE 0003:00406000 000007BCH .data DATA 0004:00407000 00002B74H .bss BSS 0005:00000000 00000008H .tls TLS 000A:00000000 00000000H .xdata PDATA Detailed map of segments 0001:00000000 000036F4 C=CODE S=.text G=(none) M=System ACBP=A9 0001:000036F4 00000110 C=CODE S=.text G=(none) M=SysInit ACBP=A9 0001:00003804 0000038C C=CODE S=.text G=(none) M=test ACBP=A9 0002:00000000 000000AC C=ICODE S=.itext G=(none) M=System ACBP=A9 0002:000000AC 00000054 C=ICODE S=.itext G=(none) M=test ACBP=A9 0003:00000000 00000794 C=DATA S=.data G=DGROUP M=System ACBP=A9 0003:00000794 00000024 C=DATA S=.data G=DGROUP M=SysInit ACBP=A9 0004:00000000 00002B68 C=BSS S=.bss G=DGROUP M=System ACBP=A9 0004:00002B68 0000000C C=BSS S=.bss G=DGROUP M=SysInit ACBP=A9 0005:00000000 00000008 C=TLS S=.tls G=(none) M=System ACBP=A9
  5. Virgo

    MAP2PDB - Profiling with VTune

    Is map file format different in older delphi versions? With Delphi 5 and Delphi XP map files it always fails with "Overlapping segments".
  6. Virgo

    Something is Killing my application

    If application needs to be run at computer startup and even when user is not logged in, then I would suggest creating Windows service.
  7. Virgo

    Something is Killing my application

    The reason I asked about how the program is started, that when it is started with Task Scheduler (sometimes programs use Task Scheduler to start program at user login) then there is check mark at trigger properties "Stop task if it runs longer than:" which defaults to 3 days. Maybe it is accidentally checked (it is not checked by default).
  8. Virgo

    Something is Killing my application

    How is the program started originally?
  9. Virgo

    Update hidden file

    Right. And fpc allows in objfpc mode multiple constructors without overload, which explains why TFileStream in fpc has two constructors (2 parameters and 3 parameters), but does not allow creating TFileStream with THandleStream constructor.
  10. Virgo

    Update hidden file

    So it appears, that calling TFileStream.Create with handle parameter works because, TFIleStream has constructors with overload; That is something, that I newer knew. Works in all Delphi ja FPC versions. Just in FPC TFileStream constructors are not with overload;
  11. Virgo

    Update hidden file

    Strange. Passing handle to TFIleStream.Create does not work in Delphi 5, but works in Delphi XE. It also does not compile in FPC 3.2.0. And I do not understand, why it compiles with Delphi XE. After all, TComponent.Create; does not compile....
  12. If UseLastKnownVersion is True, then try installing also libpython3.X-dev package. Or set UseLastKnownVersion to false and assign DllPath and DllName
  13. libvlc_media_tracks_release( LTracksPtr, LCount ); should be correct In get function tracks is var parameter. Which is pointer. So that LTracksPtr itself is required parameter for release. You can also always add types Plibvlc_media_track_t = ^libvlc_media_track_t; PPlibvlc_media_track_t = ^Plibvlc_media_track_t; and then functions would be function libvlc_media_tracks_get(p_md : libvlc_media_t_ptr; var tracks : PPlibvlc_media_track_t ) : LongWord; cdecl; procedure libvlc_media_tracks_release(tracks : PPlibvlc_media_track_t ; i_count : LongWord ); cdecl;
  14. Virgo

    Macro substitution in Locate

    What is the actual question? That is what locate function does. You pass fieldname and search value at runtime and it searches.
  15. Virgo

    Delph ERP Help

    Bpl is basically just dll file with different extension (Borland Pascal Library). You cannot edit those in notepad. If SQL is in resources, then you might be able to change that resource with resource editor (if bpl is not digitally signed). But then your query will only ever return first 100 records.
×