Cristian Peța

I have almost the same configuration and bellow settings for display but I don't see any issues with scrolling. In VM is Windows 1903, on host 2004.

I don't do any adjustments to the IDE after instalation.

I will try to install Windows 2004 also in one VM and see.

Update: I can install now Windows 2004 only on older VM's, on newer VM's with D10.3.3 and 10.4 I have this message "The Windows 10 May 2020 Update is on its way. Once it’s ready for your device, you’ll see the update available on this page."

THTTPClient  doesn't work on Windows 7 and XP with SSL.

On XP the message is "Server Certificate Invalid or not present"

I don't find the message from Windows 7 but here is something about:

https://stackoverflow.com/questions/50765476/delphi-tnethttprequest-tnethttpclient-works-on-win-10-but-not-win-7

Then it looks like it's deallocated at close. Maybe if you can debug and look in task manager. Put a break point in System._Halt0 and maybe you will see where is deallocated.

Maybe deallocation is in finalization sections or some dll's.

Maybe this MemoryUsed function can be called from watch list and compared with Task manager.

1 hour ago, Lars Fosdal said:

neither FastMM nor EurekaLog reports what is leaking

But reports something or doesn't report anything?

44 minutes ago, Stefan Glienke said:

Also shouldn't FastReports have fixed that code some while ago given they support 10.2 and higher?

From what I see it's fixed like this:

    var
      p : PWord;

5 hours ago, kzaveri19 said:

When the error is caught, cursor stays in the same cell, but wrong value displayed across all records

 

I can't reproduce this issue (the wrong value to be displayed across all records). What Delphi version do you use?

Try to do a minimal example to reproduce this and post here.

5 hours ago, kzaveri19 said:

I modified your code slightly

But why ?!? Your code is more convoluted and I don't see any benefit. Only trouble.

This procedure takes 76% of time in my case
2694    procedure TfrxPDFExport.ExportViaVector(const Memo: TfrxCustomMemoView);

and was called because GapY was -1

  if (Memo.ReducedAngle <> 0) or (Min(Memo.GapX, Memo.GapY) < 0) then
    ExportViaVector(Memo)

With Gap=0 for some of memo components ExportViaVector() takes 44% of time and the report looks the same but the PDF is generated in 6 seconds vs. 13 seconds

Edit: Better take a profiler and don't lose the time guessing.

Just tried 200 pages of something like this. 13 seconds.

The best would be to profile frxExportPDF unit

Only for testing. Why not? It's not Windows 10?

Have you tried with Microsoft driver?
 

frxReport9.PrintOptions.PrnOutFileName := 'name.pdf';
frxReport9.PrintOptions.Copies := 1;
frxReport9.PrintOptions.ShowDialog := False;
frxReport9.PrintOptions.Printer := 'Microsoft Print to PDF';
frxReport9.SelectPrinter;
frxReport9.Print;

At Export() that 5000 records doesn't count because the report is prepared.

How many pages are? How many items per page? There are also vector images like charts or EMF, WMF?

I tested for example 40 pages (200 records with one image and 30 text items per record) with booth FR Export and printing to "Microsoft print to PDF". The speed is about 3 seconds for both on a i7-8700K CPU. This is only Export because I do this at preview where the report is already prepared.

P.S. You are too scarce with details and want a suggestion.....

3 hours ago, dkprojektai said:

low speed for building PDF

Building PDF is PrepareReport() or Export() ?

From the call stack it looks like Validate is called a little to late to modify the value. Documentation says also "To reject the current value of the field from the OnValidate event handler, raise an exception."

I would use Abort like this:

procedure TfrmClose.tbCloseAmtValidate(Sender: TField);
begin
  if Sender = nil then
    exit
  if (Sender.DataSet.FieldByName('Long Short').AsString = 'Long') then
  begin
    if (Sender.AsFloat < 0) then
    begin
      ShowMessage('Close value should be positive or zero');
      Abort;
    end;
  end
  else if (Sender.DataSet.FieldByName('Long Short').AsString = 'Short') then
  begin
    if (Sender.AsFloat > 0) then
    begin
      ShowMessage('Close value should be negative or zero');
      Abort;
    end;
  end;
end;

Take a profiler and save you time guessing what is slow.

I use Nexus Quality Suite and I like it but there are also some free alternatives. Actually first time I used it I found the bottleneck with the trial version of NQS. I like very much line profiler. If you try it for these 4 lines it is very probably the first line and not the last that is the bottleneck. Then you goo deeper.

P.S. If the time is big enough you can see also in debugging if the first or last line is slower. If the last line is slow then not the dataset is bottleneck but maybe some very big picture.

6 hours ago, PeterPanettone said:

However, your employer has to pay for the time you need to write overloaded code. (Though I assume you're a fast writer). 

Depends. I added only 15K LOC last year to my project. A lot of time I spend thinking how to add features asked by customers to actual app logic. This doesn't have to do with old code but to old app logic and not to break old behavior. An to leave space for feature improvements because this is a 20 years old project.

For this case will work with Variant.

procedure DoSomething(const AParam: Variant);
begin
  ShowMessage(AParam);
end;

If you are using TMetaFile in your report you can try to set AllowVectorExport to False for that component (in report editor). This way PDF export will work like version 5 generation an image.

Probably some test escaped in the wild...

On 6/6/2020 at 12:00 AM, Cristian Peța said:

Not usable for me yet. 

[TClientDataSet] Exception when a ftWideMemo is set to an empty string with LogChanges=True

https://quality.embarcadero.com/browse/RSP-29431

Fixed (see report).

Not usable for me yet.

[TClientDataSet] Exception when a ftWideMemo is set to an empty string with LogChanges=True

https://quality.embarcadero.com/browse/RSP-29431

P.S. Just updated the report with an other issue very probable related.

Here is @David Heffernan's response:

https://stackoverflow.com/questions/25536216/delphi-prevent-application-shutdown

22 minutes ago, Ian Branch said:

My issue/point is that I am NOT getting the message.

I must repeat: this is documented and is working "as designed"

If you want an other behavior and don't want to do what documentation says the you need to find an other OS.

Documentation says: "If your application must block or postpone system shutdown, use the ShutdownBlockReasonCreate function."

Then when you are finished use ShutdownBlockReasonDestroy.

4 hours ago, Ian Branch said:

if MessageDlg('Windows is shutting down! First save data changes?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin

This is not just a message. You are waiting for the user to press You or No. And in this time you are not returning to the OS. Then the OS will simply kill you app.

4 hours ago, Ian Branch said:

I never see the MessageDlg prompt.

This is documented here (read Remarks): https://docs.microsoft.com/en-us/windows/win32/shutdown/wm-queryendsession

If you really need to stop the shutdown: "Each application should return TRUE or FALSE immediately upon receiving this message"

So you must return immediately, not showing a message and wait...

But... "Applications should respect the user's intentions and return TRUE"

If possible it's better to save data in other place and next time you app is running again ask the user if he want to keep this data. Or even better, if you can, restore the app state exactly how it was at shutdown and you don't need to ask anything. The user will see your app exactly how it was at shutdown. That's how mobile app are supposed to work but it's nice also for desktop.