matrix1233

Hi, Am trying to execute a simple application (Demo1) with Python4Delphi on MacOs Catalina so i tried two Method: Method 1: - Compiling Demo1 on Windows to - Target OS : Darwin - Target CPU i86_64 => Demo1 app is generated correctly and when i move it to Mac and i execute it i have a Error ( Error: could not map symbol "Py_DebugFlag" ) Method 2: - Installing Lazarus on MacOs with Python4Delphi and executing the Demo1 (of corse i added the correct path to the lib ) : => Demo1 when start it generate the same Error (See the screenshot below) How can i correct this ? Thanks

Hi, I installed the last version of python on my Mac With python 3.9.i have the same error => I installed a second time python4lazarus to test with python3.9 and it's work ==> Now i added another test : 1 - Installed Python4lazarus (with working demo1) 2 - using Demo1 with library of lazarus and changing the file PythonEngine.pas (lazarus) with the PythonEngine.pas (python4Delphi) and i have the same error ( Error: could not map symbol "Py_DebugFlag" ) so the problem is on this file . At this time i do not have access to access to Delphi for MacOS. i will test when i will have access as soon possible.

The strange think is if i install python4lazarus( https://github.com/Alexey-T/Python-for-Lazarus/) it's work. i will install now python3.9 and i will test

Hi if i comment from Import('Py_DebugFlag') to Import('Py_IgnoreEnvironmentFlag') i have : and if you means that i have to comment from Import('Py_DebugFlag') to Import('PyGILState_Release') i have this error :

Now i have Error on Py_VerboseFlag (please see the screenshot below)

Yes it's the latest version installed on Lazarus Windows and Lazarus MacOs (just for info When i change the target (to compile on windows) of lazarus installed on Windows it's work )

Hi, Am using Lazarus(FPC) and am trying to execute the Demo29 (work perfectly on delphi). the problem when i open Image and i Execute (Use Device Context Unchecked) the program go to the end and Image1.Picture.Graphic.LoadFromStream(_stream); raise an exception Wrong Image Format if (Image1.Picture.Graphic = nil) or Image1.Picture.Graphic.Empty then raise Exception.Create('You must first select an image'); PythonEngine1.ExecStrings(Memo1.Lines); _im := MainModule.ProcessImage(ImageToPyBytes(Image1.Picture.Graphic)); if not chkUseDC.Checked then begin // We have to call PyString_AsStringAndSize because the image may contain zeros with GetPythonEngine do begin pargs := MakePyTuple([ExtractPythonObjectFrom(_im)]); try presult := PyEval_CallObjectWithKeywords( ExtractPythonObjectFrom(MainModule.ImageToBytes), pargs, nil); try if (P = nil) or (PyBytes_AsStringAndSize(presult, P, Len) < 0) then begin ShowMessage('This does not work and needs fixing'); Abort; end; finally Py_XDECREF(pResult); end; finally Py_DECREF(pargs); end; end; _stream := TMemoryStream.Create(); try _stream.Write(P^, Len); _stream.Position := 0; Image1.Picture.Graphic.LoadFromStream(_stream); finally _stream.Free; end; end else begin Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height); _dib := Import('PIL.ImageWin').Dib(_im); Image1.Picture.Bitmap.SetSize(Image1.Height, Image1.Width); _dib.expose(NativeInt(Image1.Picture.Bitmap.Canvas.Handle)); end; How can i correct that ? Thanks .

Hi, i stored MainModule.screenshot() to a variable _im like you asked and it doesn't work (See the first code below) but when i change the line where pResult are affected with presult := PyEval_CallObjectWithKeywords(ExtractPythonObjectFrom(MainModule.screenshot()), nil, nil), it work on lazarus . (See the second code below) . i think that ExtractPythonObjectFrom are only needed to do the job and adding PyEval_CallObjectWithKeywords is not needed in this case but lazarus have some bugs .. we can perhaps correct this ? var _im : Variant; _dib : Variant; i:integer; pargs: PPyObject; pResult :PPyObject; P : PAnsiChar; _stream:TmemoryStream; Len : NativeInt; SPython:TstringList; begin SPython:=TstringList.Create; SPython.Add('from io import BytesIO'); SPython.Add('from PIL import ImageGrab'); SPython.Add('def screenshot():'); SPython.Add(' im = ImageGrab.grab()'); SPython.Add(' stream = BytesIO()'); SPython.Add(' im.save(stream, "BMP")'); SPython.Add(' return stream.getvalue()'); SPython.Add('screenshot()'); PythonEngine1.ExecStrings(SPython); _im:=MainModule.screenshot(); with GetPythonEngine do begin try pResult := ExtractPythonObjectFrom(_im); if (PyBytes_AsStringAndSize(pResult, P, Len) < 0) then begin ShowMessage('This does not work and needs fixing'); Abort; end; finally _stream := TMemoryStream.Create(); try _stream.Write(P^, Len); _stream.Position := 0; Memo2.Lines.add(_stream.Size.ToString); Image1.Picture.LoadFromStream(_stream); application.ProcessMessages; finally _stream.Free; end; end; end; var _im : Variant; _dib : Variant; i:integer; pargs: PPyObject; pResult :PPyObject; P : PAnsiChar; _stream:TmemoryStream; Len : NativeInt; SPython:TstringList; begin SPython:=TstringList.Create; SPython.Add('from io import BytesIO'); SPython.Add('from PIL import ImageGrab'); SPython.Add('def screenshot():'); SPython.Add(' im = ImageGrab.grab()'); SPython.Add(' stream = BytesIO()'); SPython.Add(' im.save(stream, "BMP")'); SPython.Add(' return stream.getvalue()'); SPython.Add('screenshot()'); PythonEngine1.ExecStrings(SPython); with GetPythonEngine do begin try presult := PyEval_CallObjectWithKeywords(ExtractPythonObjectFrom(MainModule.screenshot()), nil, nil); if (PyBytes_AsStringAndSize(pResult, P, Len) < 0) then begin ShowMessage('This does not work and needs fixing'); Abort; end; finally _stream := TMemoryStream.Create(); try _stream.Write(P^, Len); _stream.Position := 0; Memo2.Lines.add(_stream.Size.ToString); Image1.Picture.LoadFromStream(_stream); application.ProcessMessages; finally _stream.Free; end; end; end;

yes i see! .. between Delphi and Lazarus the result of execution are different for example this code below With Delphi work perfectly and with lazarus it doesn't work and it say that ( 'This does not work and needs fixing' ) generated by the test on PyBytes_AsStringAndSize. Any idea for this example why it's different ? var _im : Variant; _dib : Variant; i:integer; pargs: PPyObject; pResult :PPyObject; P : PAnsiChar; _stream:TmemoryStream; Len : NativeInt; SPython:TstringList; begin SPython:=TstringList.Create; SPython.Add('from io import BytesIO'); SPython.Add('from PIL import ImageGrab'); SPython.Add('def screenshot():'); SPython.Add(' im = ImageGrab.grab()'); SPython.Add(' stream = BytesIO()'); SPython.Add(' im.save(stream, "BMP")'); SPython.Add(' return stream.getvalue()'); SPython.Add('screenshot()'); PythonEngine1.ExecStrings(SPython); with GetPythonEngine do begin try pResult := ExtractPythonObjectFrom(MainModule.screenshot()); if (PyBytes_AsStringAndSize(pResult, P, Len) < 0) then begin ShowMessage('This does not work and needs fixing'); Abort; end; finally _stream := TMemoryStream.Create(); try _stream.Write(P^, Len); _stream.Position := 0; Memo2.Lines.add(_stream.Size.ToString); Image1.Picture.LoadFromStream(_stream); application.ProcessMessages; finally _stream.Free; end; end; end;

Thanks, it's work!

any solution ?

the problem is not P, i think that is just MainModule.ImageToBytes like i explained above .. any idea ?

i think that the problem is on MainModule.ImageToBytes because on Delphi when i try to display it to a memo (Memo3.Lines.Add(MainModule.ImageToBytes); ) i have <function ImageToBytes at 0x00000000068DDCA0> but when i try the same code on Lazarus i have nothing . any idea how can i resolve on lazarus ?

if p := nil then i have the msg 'This does not work and needs fixing' if (Image1.Picture.Graphic = nil) or Image1.Picture.Graphic.Empty then raise Exception.Create('You must first select an image'); PythonEngine1.ExecStrings(Memo1.Lines); _im := MainModule.ProcessImage(ImageToPyBytes(Image1.Picture.Graphic)); if not chkUseDC.Checked then begin P := nil; // We have to call PyString_AsStringAndSize because the image may contain zeros with GetPythonEngine do begin pargs := MakePyTuple([ExtractPythonObjectFrom(_im)]); try presult := PyEval_CallObjectWithKeywords( ExtractPythonObjectFrom(MainModule.ImageToBytes), pargs, nil); try if (P = nil) or (PyBytes_AsStringAndSize(presult, P, Len) < 0) then begin ShowMessage('This does not work and needs fixing'); Abort; end; finally Py_XDECREF(pResult); end; finally Py_DECREF(pargs); end; end; _stream := TMemoryStream.Create(); try _stream.Write(P^, Len); _stream.Position := 0; _stream.SaveToFile('test.jpeg'); // Image1.Picture.Graphic.LoadFromStream(_stream); finally _stream.Free; end; end else begin Image1.Picture.Bitmap.SetSize(Image1.Width, Image1.Height); _dib := Import('PIL.ImageWin').Dib(_im); Image1.Picture.Bitmap.SetSize(Image1.Height, Image1.Width); _dib.expose(NativeInt(Image1.Picture.Bitmap.Canvas.Handle)); end;

Hi the file is saved and his size is 197k and the content is "þîþîþîþîþî.." (from the begin to end)