Einzelnen Beitrag anzeigen

mmw

Registriert seit: 10. Sep 2019
Ort: OWL
322 Beiträge
 
Delphi 11 Alexandria
 
#11

AW: Python im Delphi ausführen (geht nicht)

  Alt 22. Jan 2021, 21:29
hallo,

das wäre auch möglich (als Beispiel, DB Modul ist nicht unbedingt die beste Lösung)

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);

var cl:TEngineClient;

begin
datamodule3.PythonEngine1.AddClient(cl);
cl.engine.
cl.engine.
cl.usw
end;
Delphi-Quellcode:
procedure TDataModule3.DataModuleDestroy(Sender: TObject);

var cl:TEngineClient;
     i:Integer;

begin
 for i:=PythonEngine1.ClientCount-1 downto 0 do
  begin
   cl:=PythonEngine1.Clients[i];
   PythonEngine1.RemoveClient(cl);
 end;

end;
  Mit Zitat antworten Zitat