Jacek Laskowski

I passed what the function expected: PyUnicode_FromString:function (s:PAnsiChar):PPyObject; cdecl; Anyway, unfortunately the module has no documentation, so I also rely on examples from this forum, SO and demos in my experiments. I didn't know that there is a second analogous function with an almost identical name. @pyscripter Thx I am slowly learning, admittedly, the additional difficulty is the lack of knowledge of Python, but AI helps with this.

If the data variable contains any character outside the Latin alphabet, such as a Polish diacritical chars, the function returns nil data: AnsiString = 'ąęść'; pObj := fPyEngine.PyUnicode_FromString(PAnsiChar(data)); <-- return nil fPyModule.SetVar('data', pObj); <-- then this raises an exception How to properly pass diacritical chars in a string? ps. the function has Unicode in its name, which means it should probably allow arbitrary characters

@pyscripter And if I just want to pass a string to a Python script is this way: var pObj: PPyObject; data: string; [...] data := 'some long string'; pObj := fPyEngine.PyUnicode_FromString(PAnsiChar(data)); fPyModule.SetVar('data', pObj); ...sufficient and correct?

@pyscripter Thanks, it works. Still a question about that module name. Should I change the module name in the TPythonDelphiVar and TPythonModule components? That is, should it be like this: PyModule.Engine := PyEngine; PyModule.ModuleName := 'my_name'; <-- here [..] VarWidth := TPythonDelphiVar.Create(nil); VarWidth.Engine := PyEngine; VarWidth.Module := 'my_name'; <-- here [...] Or only in variable objects?

Probably my English is too poor, that's why you misunderstood me. Again from start. In the beginning I had a self-contained script, without external variables. I had a simple script to just run P4D, I'm using it for the first time and learning. In that simple script there were only python variables set up as you do in python: HEIGHT = 40 WIDTH = 60 And then, once everything started working, I decided to learn how to pass variables from Delphi. Then I removed the setting of these two variables from the beginning of the script and added to the delphi code the use of TPythonDelphiVar with these two variables. Well, this is where the problems started, because I didn't know that after this change I had to add .Value to these variables. At the same time, it turned out that I also need to add a line of code with: PyEngine.PyRun_SimpleString(‘import builtins; __builtins__ = builtins’); Because without this line I got errors: Traceback (most recent call last): File "__main__", line 1, in <module> ImportError: __import__ not found The above error comes from a script that starts with a line: import math When I use another script, such as: result = sum(i * i for i in range(1, 11)) print("Suma kwadratów od 1 do 10 to:", result) I get a different error: Traceback (most recent call last): File "__main__", line 1, in <module> NameError: name 'sum' is not defined In both cases, the very first word of the script is problematic. When I add a delphi line code with "builtins" it all works. What is the problem?

Thanks! This was the cause of the problem. By the way, I have a question. This script in Python is quite a bit bigger, here I have given a minimal causing the error, the script uses WIDTH and HEIGHT variables. Before I passed these variables from Delphi they were defined at the beginning of the script by a simple assignment: HEIGHT = 40 WIDTH = 60 However, when I added these two variables (TPythonDelphiVar) from the Delphi side, and the module (TPythonModule) object it stopped working many keywords including “import” and only adding a line in the Delphi code: PyEngine.PyRun_SimpleString(‘import builtins; __builtins__ = builtins’); ...resulted in correct working. What is the result of this? Why is it that without variable and module objects, the contents of “builtins” are automatically available, but disappear after adding them?

No, then I get an error on assignment line: VarWidth.Value := PyWidth; <-- here I get an error VarWidth.Initialize; Error message: ThreadId=4800 ProcessId=38 ThreadName="" ExceptionMessage="No variable was created" ExceptionName="Exception" ExceptionDisplayName="Exception" ExceptionAddress=751DC5AF FileName=<not available> LineNumber=<not available> ExceptionObject=033BE960 Classes=[Exception,TObject] Error is raised here: procedure TPythonDelphiVar.SetValue( const val : Variant ); begin if Assigned( FVarObject ) then with TPyVar(PythonToDelphi(FVarObject)) do SetValueFromVariant(val) else raise Exception.Create(SVarNotCreated); <-- here end; --- edit When I change the python script to: print(HEIGHT, WIDTH) then all run ok, and in the log I get: <PythonDelphiVar: 40> <PythonDelphiVar: 60>

My code in Delphi: procedure TForm1.btnRunClick(Sender: TObject); var PyEngine: TPythonEngine; PyHeight: Integer; PyIO: TPythonGUIInputOutput; PyModule: TPythonModule; PyWidth: Integer; VarHeight: TPythonDelphiVar; VarWidth: TPythonDelphiVar; begin PyWidth := 80; PyHeight := 40; PyEngine := TPythonEngine.Create(nil); PyModule := TPythonModule.Create(nil); PyIO := TPythonGUIInputOutput.Create(nil); try PyIO.Output := mmoLog; PyEngine.IO := PyIO; PyEngine.DllName := 'python38.dll'; PyEngine.DllPath := ExtractFilePath(Application.ExeName) + 'python\'; PyEngine.UseLastKnownVersion := False; PyEngine.AutoLoad := False; PyEngine.AutoUnload := False; PyModule.Engine := PyEngine; PyModule.ModuleName := '__main__'; try PyEngine.LoadDll; except on E: Exception do begin ShowMessage('Error at load Python: ' + E.Message); Exit; end; end; PyModule.Initialize; PyEngine.PyRun_SimpleString('import builtins; __builtins__ = builtins'); VarWidth := TPythonDelphiVar.Create(nil); VarWidth.Engine := PyEngine; VarWidth.Module := '__main__'; VarWidth.VarName := 'WIDTH'; VarWidth.Initialize; VarWidth.Value := PyWidth; VarHeight := TPythonDelphiVar.Create(nil); VarHeight.Engine := PyEngine; VarHeight.Module := '__main__'; VarHeight.VarName := 'HEIGHT'; VarHeight.Initialize; VarHeight.Value := PyHeight; PyEngine.ExecStrings(mmoSource.Lines, '__main__'); finally VarWidth.Free; VarHeight.Free; PyIO.Free; PyModule.Free; PyEngine.Free; end; end; And python script: canvas = [[' ' for _ in range(WIDTH)] for _ in range(HEIGHT)] After run this I get an error: Traceback (most recent call last): File "__main__", line 1, in <module> TypeError: 'PythonDelphiVar' object cannot be interpreted as an integer I want to pass two variables WIDTH and HEIGHT to the script. What am I doing incorrectly?

Renaming private (existed in implementation section) procedure/function parameters does not propagate to the procedure body. Please try edit this function and change InString to something other. function StrToIdBytes(const InString: string): TIdBytes; var ch: Char; i: Integer; begin SetLength(Result, Length(InString)); i := 0; for ch in InString do begin Result[i] := Ord(ch); inc(i); end; end;

Process Monitor with filter: result is not SUCCESS 15:14:02,9686712 MMX_SDV.exe 7608 CreateFile C:\Windows\Prefetch\MMX_SDV.EXE-C22AB698.pf NAME NOT FOUND Desired Access: Generic Read, Disposition: Open, Options: Synchronous IO Non-Alert, Attributes: n/a, ShareMode: None, AllocationSize: n/a 15:14:02,9692724 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\System32\wow64.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9696735 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\System32\wow64win.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9701432 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\System32\wow64cpu.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9705388 MMX_SDV.exe 7608 CreateFile C:\Windows\System32\wow64log.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9727291 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\winspool.drv NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9730834 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\winspool.drv FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9747241 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\sechost.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9769192 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.exe.Local NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9772908 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\winsxs\x86_microsoft.windows.common-controls_6595b64144ccf1df_6.0.7601.18837_none_41e855142bd5705d\comctl32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9781272 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\version.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9784119 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\version.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9793129 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\netapi32.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9799320 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\netapi32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9804474 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\netutils.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9811045 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\netutils.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9815691 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\srvcli.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9820002 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\srvcli.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9824942 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\wkscli.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9828137 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\wkscli.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9833001 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\SHFolder.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9836609 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\shfolder.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9843890 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\apphelp.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9849440 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\AppPatch\sysmain.sdb FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9872487 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\imm32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9881468 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\imm32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9886826 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\imm32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9911259 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\WindowsShell.Manifest FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:02,9937350 MMX_SDV.exe 7608 QueryDirectory C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.pl-PL NO SUCH FILE Filter: MMX_SDV.pl-PL 15:14:02,9939015 MMX_SDV.exe 7608 QueryDirectory C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.pl NO SUCH FILE Filter: MMX_SDV.pl 15:14:02,9940577 MMX_SDV.exe 7608 QueryDirectory C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.en-US NO SUCH FILE Filter: MMX_SDV.en-US 15:14:02,9941802 MMX_SDV.exe 7608 QueryDirectory C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.en NO SUCH FILE Filter: MMX_SDV.en 15:14:02,9943194 MMX_SDV.exe 7608 QueryDirectory C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.PLK NO SUCH FILE Filter: MMX_SDV.PLK 15:14:02,9944376 MMX_SDV.exe 7608 QueryDirectory C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.PL NO SUCH FILE Filter: MMX_SDV.PL 15:14:02,9970411 MMX_SDV.exe 7608 CreateFile C:\Windows\SysWOW64\rpcss.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9971933 MMX_SDV.exe 7608 CreateFile C:\Windows\SysWOW64\rpcss.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9986440 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\wtsapi32.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:02,9997924 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\wtsapi32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0003313 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\WINSTA.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:03,0008270 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\winsta.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0043491 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\uxtheme.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:03,0050350 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\uxtheme.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0062632 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\pl-PL\user32.dll.mui FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0073723 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\Globalization\Sorting\SortDefault.nls FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0141024 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\Registration\R00000000007e.clb FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0148925 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\WindowsCodecs.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0387725 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.exe.Local NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:03,0390254 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\winsxs\x86_microsoft.windows.c..-controls.resources_6595b64144ccf1df_6.0.7600.16385_pl-pl_57651e9fc65047a4\comctl32.dll.mui FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0424186 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\Fonts\StaticCache.dat FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0655592 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\ole32.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:03,0839244 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\MMX_SDV.exe.Local NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:40,1728374 MMX_SDV.exe 7608 CreateFile C:\Users\Jacek\AppData\Local\Programs\Raabe Software\MMX\15\imageres.dll NAME NOT FOUND Desired Access: Read Attributes, Disposition: Open, Options: Open Reparse Point, Attributes: n/a, ShareMode: Read, Write, Delete, AllocationSize: n/a 15:14:40,1733848 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\imageres.dll FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection: 15:14:40,1736702 MMX_SDV.exe 7608 CreateFile C:\Windows\SysWOW64\pl-PL\imageres.dll.mui NAME NOT FOUND Desired Access: Generic Read, Disposition: Open, Options: , Attributes: n/a, ShareMode: Read, Delete, AllocationSize: n/a 15:14:40,1737425 MMX_SDV.exe 7608 CreateFile C:\Windows\System32\pl-PL\imageres.dll.mui NAME NOT FOUND Desired Access: Generic Read, Disposition: Open, Options: , Attributes: n/a, ShareMode: Read, Delete, AllocationSize: n/a 15:14:40,1738264 MMX_SDV.exe 7608 CreateFile C:\Windows\SysWOW64\pl\imageres.dll.mui NAME NOT FOUND Desired Access: Generic Read, Disposition: Open, Options: , Attributes: n/a, ShareMode: Read, Delete, AllocationSize: n/a 15:14:40,1738828 MMX_SDV.exe 7608 CreateFile C:\Windows\System32\pl\imageres.dll.mui NAME NOT FOUND Desired Access: Generic Read, Disposition: Open, Options: , Attributes: n/a, ShareMode: Read, Delete, AllocationSize: n/a 15:14:40,1739956 MMX_SDV.exe 7608 CreateFileMapping C:\Windows\SysWOW64\en-US\imageres.dll.mui FILE LOCKED WITH ONLY READERS SyncType: SyncTypeCreateSection, PageProtection:

I get error after open Viewer and trying close it by X button. And now only killing the process can close Viewer app. Delphi 10.3 and Windows 7.

Does a files search from within the IDE (shift+ctrl+F), with Regular Expression enabled, support multi-line searches? I tried for an hour and did not get anything. For example, I would like to find all public var sections located between interface and implementation in units. Can the IDE do this?

I'm working on Ryzen 5900X, the computer after switching from i7 3770 got such wings that I close the windows to keep it from flying away 😉 I work in a virtual machines (vmware), currently I have 2 machines open. The system on the host is Ubuntu, which has very low requirements and low overhead. The ram usage (including the two virtuals) is currently at 10 GB (and I have Firefox open with many tabs, Slack, Telegram and many background services). I strongly recommend AMD

Is it possible to automatically convert the entire Firebird database from win-1250 to UTF-8 encoding? Are there any tools for this purpose? Or using backup/restore?

Yes, you're right... it's about the padding. I didn't specify it explicitly and the default was used, hence there is a difference in the two libraries. Thanks!