eivindbakkestuen

On 12/9/2024 at 9:55 PM, Robert Gilland said:

And then GetDeviceCaps worked

Probably the printer was offline or unreachable before; and then it was reachable.

This happens every day here when trying to print from many, even well known applications; they take forever to time out if the default printer wasn't turned on.

You could try using a worker thread for printing, then your application doesn't freeze and you have some control over what happens

It is a documentation omission, the help on the link states

"You can only rely on the final value of a for loop control variable if the loop is left with a goto or exit statement. "

In https://docwiki.embarcadero.com/RADStudio/Athens/en/Declarations_and_Statements_(Delphi)#For_Statements it says

"After the for statement terminates (provided this was not forced by a Break or an Exit procedure), the value of counter is undefined. "

The value should be defined, as the loop here exits with a Break,

Use a separate "master" thread to call WaitForAll.

Are you already using TThread.Synchronize for the memo updates?

On 10/12/2024 at 3:57 AM, tobenschain said:

Over time can memory become corrupt?

If your application has bugs, sure...

1 hour ago, Zakaria said:

how add property tagString to all delphi Compememet

What problem are you trying to solve?

Using the WrapDelphi and associated classes,

I have probably missed it, but I couldn't see an equivalent to the CreateComponent() method to create non-TComponent descendant classes, eg TStringList etc which I needed for things in the .PY script below. Is there an existing way of creating such classes on the fly in the .PY script?

  ...

  db = CreateComponent("TnxDatabase", None)

  sl = TStringList (?)

  db.GetTableList(sl)

  print(*sl)

  ...

I added the following method and registered it, and now I can do sl = CreateClass("TStringList", None) and it works. If there's no such built in method, feel free to assimilate this method into the WrapDelphi unit. 🙂

function TPyDelphiWrapper.CreateClass(pself, args: PPyObject): PPyObject;
//  Exposed function at the Module level
//  CreateClass(ClassName, Owner)
var
  KlassName : PAnsiChar;
  _obj : PPyObject;
  Klass : TClass;
  _comp : TObject;
  TheClass : TObject;
  Ownership : TObjectOwnership;
begin
  Result := nil;
  CheckEngine;
  with Engine do begin
    if PyArg_ParseTuple( args, 'sO:CreateDelphiClass', @KlassName, @_obj ) <> 0 then begin
      try
        Klass := GetClass(string(KlassName));
      except
        Klass := nil;
      end;
      if (Klass = nil) or not Klass.InheritsFrom(TObject) then begin
        PyErr_SetString(PyExc_TypeError^, PAnsiChar(EncodeString(
          Format(rs_ErrInvalidArgs, ['CreateClass', rs_InvalidClass]))));
        Exit;
      end;

      TheClass := TClass(Klass).Create;
      Ownership := soOwned;
      Result := Self.Wrap(TheClass, Ownership);
    end else
      PyErr_SetString(PyExc_TypeError^, PAnsiChar(EncodeString(
        Format(rs_ErrInvalidArgs, ['CreateClass', '']))));
  end;
end;

Thanks a million! With the latest version, I no longer see the memory leak.

I'm using the WrapDelphi unit in a project, so that the TPyDelphiWrapper.CreateComponent function can be available from a Python script.

Now, a clever user has come up with a "smart" way of finding available classes; namely, iterate over every possible string of characters and feed the strings into CreateComponent() in the Python script, and catch exceptions raised when the classname doesn't exist.

Yes, due to the exponential nature of the search as the strings get longer, its not really a good way of finding long classnames. However, the problem I'm being presented with is that memory runs out long before time does.

I have narrowed the problem down to the following (commented out by me for test) PyErr_SetObject call in TPyDelphiWrapper.CreateComponent().

      if (Klass = nil) or not Klass.InheritsFrom(TComponent) then begin
//        PyErr_SetObject(PyExc_TypeError^, PyUnicodeFromString(
//          Format(rs_ErrInvalidArgs,
//          ['CreateComponent', rs_InvalidClass])));
        Exit;
      end;

The inner function in the Python script is the following. My question is, is there something different that needs to be called from the Python script, in order to release memory used by the exception?

    def typename(k, prefix="T", ab=alphabet):
        try:
            w = prefix + int2word(k, ab=ab)
            t = CreateComponent(w, None)
            out = ["T" + type(t).__name__]
            t.Free()
            del t
        except:
            out = []
        return out

Having just installed Delphi 12.2, I'm seeing something I've not seen before. I have the grep results panel docked on the right with the project manager etc; somehow it is now displaying content matching the form designer, or the source editor, switching with each F12 press.

Anyone else seen anything like this? I'm not sure exactly what I did to trigger it, and it didn't happen again after restarting the IDE.

On 9/2/2024 at 4:20 AM, alogrep said:

OnPostError

Notice the "Post" part? I'm guessing the error doesn't occur in .Post, but in .Edit.

Ok, thanks!

I'm playing around with Demo31, its very neat that we can do things like this in the .py script:

mytestform = CreateComponent("TForm", None)
mytestform.Caption = 'Hello Delphi-PRAXIS'
mytestform.Height = 1000
mytestform.ShowModal()

However, it would be even cooler if it was possible to use the Pascal style of creation:

mytestform = TForm.Create()

Unfortunately, playing around with the DelphilWrapper classes hasn't lead to anything working; I've tried things like these

  PyDelphiWrapper.RegisterDelphiWrapper(TPyClassWrapper<TForm>).Initialize;

  ...or... 

  PyDelphiWrapper.WrapClass(TForm);

Is there any way of registering Delphi classes, such that the someclass.Create() syntax would work in a .py script?

On 8/10/2024 at 12:14 AM, Rod Stewart said:

Delphi XE 10.

There is no such version...

On 7/24/2024 at 6:17 PM, gwideman said:

To replace RAD Studio Athens with a better edition or an update of RAD Studio Athens, you must remove RAD Studio Athens from your system and install your upgraded edition or update of RAD Studio Athens."

This is actually wrong or at least misleading; you should *not* uninstall manually before installing an update to a major version! Instead, you should let the new installer do the uninstall of the old version (it does this as part of the install), and don't change the default "not" setting in the dialog that asks you if you wish to remove registry settings.

Looks VCL themes related. What Delphi version? Reproducible in a simple test app?

6 hours ago, Attila Kovacs said:

Dark mode is much worse for the eyes

There is no one size fits all answer; for some people light mode is best, for some, dark.

6 hours ago, Achim Kalwa said:

Stay tuned

With bated breath... 😄

Use C# to create an intermediate DLL that loads the existing DLL, and exports the methods you need on the Delphi side, using types and calling conventions compatible with Delphi.

https://forums.adug.org.au/t/adug-2024-symposium/60264

Hi, just a heads up... the Open File dialog no longer saves any size or position info, it always pops up too small in this release.

Kudos on the just released update for Delphi 12, much appreciated!

I have seen a previous reply from the dev that support for dark themes are not going to be done. Their choice of course, I understand.

Regardless, I'm throwing my vote in for a change eventually. 😄

Imagine that you're running Delphi in Dark mode... on a really good size monitor... (55" in this case)

It looks pretty good, except for the GExpert Grep results, which in contrast to the rest of the IDE, now tries to fry my retinas. LOL

Anyway... Seriously, if there's any way a volunteer could help with this... I'd put my hand up.

On 1/12/2024 at 4:36 AM, Brian Evans said:

NexusDB (at least older versions) came with conversion utilities

It still does, they even get maintained as required. 😄

www.nexusdb.com for more info, there's a peer to peer telegram channel as well, join in 🙂

On 10/1/2022 at 8:38 PM, dummzeuch said:

A How should the code formatter handle the following code:

Throw an error because the line starts with a comment.

Is there a Quality Central link we can use for voting?

happy friday! 🥳
50% off discount on NexusDB and on Nexus QA suite: coupon BLACKFRIDAY

https://www.nexusdb.com/support/index.php?q=pricing

Compiling for 64 bit works, I presume?