#ifdef

5 hours ago, Brandon Staggs said:

After CrowdStrike bricked thousands of PCs across the globe I don't know why anyone would be willing to trust it

🔥

My problem is exclusively and only in CrowdStrike (not in clients, and certainly not in Delphi), but in the absence of ways to influence CrowdStrike, I am now trying to remove the line using Delphi, that's all.

It looks like I'm confusing cause and effect, I know, but I can't fight them alone 🙂

Thank you!

I wasn't worried either. Until my application was rejected, citing the report of this service 😞

In fact, the problem is idiotic, and it should not exist at all: CrowdStrike cannot even prove their false accusations (I asked what kind of danger this "wine_get_version" string carries and how exactly my application exploits it, but they, of course, ignored all my questions), but customers do not need any evidence from me — software from other providers successfully passes all checks, and my software is considered dangerous, and this is enough for any bureaucratic machine.

I would never trust a heuristic that considers a file version to be an IPv4 address, and moreover — considers "0.0.0.0" to be a valid IPv4 address:

But "the customer is always right" 🥲

Clients have a system for selecting the software they use: according to the rules and regulations, at the selection stage they are forced to give priority to software that is impeccable in terms of security. When selecting, they do not figure out whether the software is actually dangerous or not, the verdict of competent and proven online services is enough for them. If the online services unanimously recognize the file as safe, the software goes to the next stage, and so on. It's like a face control 🙂

These are their rules, I cannot change them. All that is required of me is simply to comply with them and provide code that 100% passes any security checks.

As is:

Should be:

Of course, my code is signed:

And it has always been signed:

And yes, I contacted CrowdStrike.

Everything is useless, that's why I'm here.

For the guys at CrowdStrike it doesn't matter how exactly the "wine_get_version" string is used — they hate the very fact of its presence, so by default they consider any executable file containing it to be "malicious". This is the root of the problem, but they don't see any problem with this approach and therefore have no intention of fixing it, they're completely fine with it 😑

Ok, thank you.

And how can I permanently remove the "wine_get_version" string from my EXE? Because with this string CrowdStrike considers my EXE "malicious":

... but without this string (when I remove it in a HEX editor) it's just "suspicious"

I suspect that CrowdStrike has been reading others' blogs and set up a simple trigger for this string, thus shifting this burden from their head to mine, because Delphi adds this string to all EXEs by default 😞

Right now, I'm patching each file, but what if I want to both get rid of the string and don't want to patch the file each time?

Do you remember that show last summer? 😶

Well. These same guys recently launched their own "VirusTotal" analog and, obviously, their new service is very stupid and dangerous too:

But I suppose it's gaining popularity and/or is being actively promoted, because recently some clients (suffering from a special form of paranoia) started complaining: "VirusTotal" and "Hybrid Analysis" have started marking my signed (say "Hi" to CrowdStrike!) app as malicious:

As you can see, the problem is specifically with the "wine_get_version" string, which Delphi for some reason includes even in a completely empty EXE (to verify, you can create a new empty "VCL, 32-bit, Release" project without a single line of code):

Of course I reported this to CrowdStrike, but these guys definitely know how to make a problem out of nothing:

So... Any ideas why Delphi does this, and how to avoid it? I don't need the "IsWine" check from SysInit.pas, but I can't figure out how to disable it:

Yes, I know this string can be fixed in HEX, but I need a more reliable solution, I don't want to patch each of my files every release 🥲

Is there any way/API to get a clipboard history (Win + V)?

On 12/12/2023 at 2:09 PM, #ifdef said:

Why and who needs an outdated CE?

I can't believe they did it 🥲

2 hours ago, Die Holländer said:

Yes, but its only resizing/displaying a small part of the text height, while the HTML is showing the entire text..

I wonder what your user case is. Who is going to read that much text at once when you can't use pagination, etc..

 

That's why I chose the TControlList — it allows to instantly move to any place, all that remains is to fix the fixed row height 🙂

THtmlViewer: https://i.ibb.co.com/XXX8pt9/image.gif

TControlList: https://i.ibb.co.com/84bg3g1/1.gif

Yes, I'm sure 

THtmlViewer + 10000 (start is ~5 seconds, resize is slow):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.Math,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, HTMLUn2, HtmlView;

type
  TForm1 = class(TForm)
    HtmlViewer1: THtmlViewer;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function setCaption: string;
var
  Lt: string;
  Li, Ll: integer;
begin
  Ll := RandomRange(10, 1000);

  Lt := '';

  for Li := 1 to Ll do
    begin
      if (Random(10) = 0) and (Li < Ll) then
        begin
          Lt := Lt + ' ';
        end
      else
        begin
          if Random(2) = 0 then Lt := Lt + Chr(RandomRange(65, 90)) else Lt := Lt + Chr(RandomRange(97, 122));
        end;
    end;

  Result := Lt;
end;

procedure TForm1.FormCreate(Sender: TObject);
var
  Li: integer;
  Ls: string;
begin
  for Li := 1 to 10000 do Ls := Ls + '<div>' + Li.ToString + ': ' + setCaption + '</div><br>';

  HtmlViewer1.Text := Ls;
end;

end.

TControlList + 10000 (start is ~1 second, resize is ok):

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, System.Math,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ControlList;

type
  TForm1 = class(TForm)
    ControlList1: TControlList;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure ControlList1BeforeDrawItem(AIndex: Integer; ACanvas: TCanvas; ARect: TRect; AState: TOwnerDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  FList: TStringList;

implementation

{$R *.dfm}

function setCaption: string;
var
  Lt: string;
  Li, Ll: integer;
begin
  Ll := RandomRange(10, 1000);

  Lt := '';

  for Li := 1 to Ll do
    begin
      if (Random(10) = 0) and (Li < Ll) then
        begin
          Lt := Lt + ' ';
        end
      else
        begin
          if Random(2) = 0 then Lt := Lt + Chr(RandomRange(65, 90)) else Lt := Lt + Chr(RandomRange(97, 122));
        end;
    end;

  Result := Lt;
end;

procedure TForm1.ControlList1BeforeDrawItem(AIndex: Integer; ACanvas: TCanvas; ARect: TRect; AState: TOwnerDrawState);
begin
  Label1.Caption := FList[AIndex];
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FList := TStringList.Create;

  ControlList1.ItemCount := 10000;

  for var Li := 0 to ControlList1.ItemCount - 1 do FList.Add(Li.ToString + ': ' + setCaption);
end;

end.

23 hours ago, Die Holländer said:

I started to display your test just in a THTML viewer.

Nice, because you can continue to format the text with whatever you want (colors, fonts, etc)

The wordwrap is very fast. Maybe you can even add an onClick in code to capture a click on one of the <div>

 

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  idx: Integer;
begin
  for idx := 1 to 10 do
  Begin
    HtmlViewer1.Text:=HtmlViewer1.Text+'<div>'+IntToStr(idx)+': '+setCaption+'</div><br>';
  End;
end;

 

 

 

HtmlViewer 10.2 is still available at: http://code.google.com/p/thtmlviewer/
HtmlViewer 11.x is available at: https://sourceforge.net/projects/htmlviewer/
HtmlViewer development is hosted at: https://github.com/BerndGabriel/HtmlViewer

It looks really good, but on older computers 1000+ lines are too slow to render when resizing the canvas — and I can’t use pagination because the entire list must be available. But thanks anyway!

On 7/5/2024 at 11:01 AM, A.M. Hoornweg said:

Just out of interest, what tool do you use to create GIF's like this?

https://github.com/NickeManarin/ScreenToGif/

3 hours ago, Die Holländer said:

Do you need to be able to edit/use the textblocks or is it just for display?

No, I don't (anyway, TControlList is for TGraphicControl only).

3 hours ago, Die Holländer said:

word splitting = word wrap?

Yes.

Sorry, I don't need a text editor, I just need to somehow speed up the rendering of text with word splitting and that's it 

1 minute ago, Kas Ob. said:

So these are TMemo(s) in the list ! not even simple and plain text lines in a list box.

 

Anyway, same recommendation as for single Memo or ListBox, switch to owner drawing, then limit what you are using/rendering/showing to the visible ones, while simulate/emulate a scroll bar on the side, or it might support its own scrollbar, who knows.

Nope. TControlList if for TGraphicControl only:

11 minutes ago, Kas Ob. said:

Se, same behavior is visible with Windows Notepad, you can try it, open a big text file something around few MBs and make sure that Word Wrap is enabled, and see for your self, same behavior, disabling the Word Wrap will make it fast like it was few lines.

I know but... in Notepad++ everything is ok 🥲

🥲

You can try changing "100" to "1000" and change the size of the form after compilation

1 hour ago, Serge_G said:

So, I have a look and test with 11.3 and 12.1 (entreprise) and no slow comportment found. So, for me, you got it.🙌

You said you use which version, community ok but last one (which is now a 11.2 or 11.3 version don't remember exactly ) ?

As I see in your code, the key is the  TControlList.FHeights I never found (for my discharge, I just deep dive in this component at the first occurrence and never run back in it)

Thank you for your kind words, but no, I don’t think I succeeded, that's why I decided to contact you personally 😞

I have 11.3 CE (28.0.48361.3236), you are right, but it probably should look and work the same on 12.1: the problem occurs when the form changes size.

What about the "FHeights" - it's just a temporary storage of row sizes (like a cache or something).

It's impossible to speed things up? 😞

I added dynamic (variable) row heights to TControlList and it works:

But when resizing the form, the TControlList is terribly slow.

@Serge_G I know you are a guru in this list. Please tell me how this can be fixed?

Project1.zip

22 hours ago, sh17 said:

I set up the project again and incorporated all pull requests.

 

landrix/Delphi-Firemonkey-Container (github.com)

The big problem with all these "containers" is that they don't work with the Tab button :(

On 8/9/2023 at 12:24 PM, Fr0sT.Brutal said:

Hi!

Do you mean postal addresses? If so, there's separate HUGE area that requires huge database. I'm not aware if OSM provides such API but they have the database and are able to search for an address.

If there's a 3rd party service that converts an address to coords via REST or something, this is doable.

Sorry, can't find your main topic here, so here is another GUI control pack for Delphi/Lazarus: https://github.com/Alexey-T/ATFlatControls