Code: Alles auswählen
from thonny import launch
launch()Code: Alles auswählen
from thonny import launch
launch()Wenn ich es richtig verstanden habe, geht es dir ja darum, in einem Freepascal Programm, das Python als Erweiterungs/Skriptsprache verwendet, einen komfortablen Editor dafür bereitzustellen. Da PyScripter ja bereits eine in Object Pascal geschriebene Python-IDE und zudem OpenSource ist: Kannst du die benötigten Funktionalitäten nicht daraus übernehmen und so nativ in dein Programm integrieren (wenn die Lizenz das gestattet)?
??? Vielleicht "meine eigene Scripte mit PyScripter ausführen und debuggen."?maurog hat geschrieben: ↑Sonntag 26. März 2023, 15:49 PyScripter ist auch eine Python-IDE (in Delphi also Object Pascal geschrieben).
Aus PyScripter, kann ich problemlos thonny starten und meine eigene Scripte mit thonny ausführen und debuggen.
Weil ich mit Python keine erfahrung habe, werde ich mir eine einfachere Lösung überlegen.
Code: Alles auswählen
//PythonModule.OnInitialization:
procedure TdmPython.pmCADSys4Initialization(Sender: TObject);
begin
with Sender as TPythonModule do
begin
AddDelphiMethod('CAD_AddLine', CAD_AddLine, 'CAD_AddLine');
end;
end;
Code: Alles auswählen
function TdmPython.CAD_AddLine(pself, args : PPyObject ): PPyObject; cdecl;
var x0, y0, x1, y1: TRealType; colori: integer; layer: integer; TmpLine2D: TLine2D;
begin
if PythonEngine1.PyArg_ParseTuple( args, 'ffffii:AddLine', @x0, @y0, @x1, @y1, @colori, @layer) <> 0 then
begin
TmpLine2D := TLine2D.Create(10, Point2D(x0, y0), Point2D(x1, y1));
TmpLine2D.PenColor := colori;
TmpLine2D.Layer := layer;
fCADCmp2D.AddObject(TmpLine2D.ID, TmpLine2D);
end;
Result := PythonEngine1.ReturnNone;
end;
Code: Alles auswählen
// 'CADSys4' ist PythonModule1.ModuleName.
procedure TdmPython.IdTCPServer1Execute(AContext: TIdContext);
var cmd: String;
begin
try
cmd := AContext.Connection.IOHandler.ReadLn;
cmd := 'CADSys4.' + cmd;
PythonEngine1.ExecString(UTF8Encode(cmd));
finally
//AContext.Connection.Disconnect;
end;
end;
Code: Alles auswählen
library CADSys4AppIntrf;
{$mode delphi}{$H+}
uses
Classes, SysUtils, Interfaces, Dialogs,
IdTCPClient, indylaz;
type
TrealType = single;
var IdTCPClient1: TIdTCPClient;
procedure CAD_AddLine(x0, y0, x1, y1: single; colori: integer; layer: integer); stdcall;
var cmd: string;
begin
cmd := 'CAD_AddLine('
+ FloatToStr(x0) + ', '
+ FloatToStr(y0) + ', '
+ FloatToStr(x1) + ', '
+ FloatToStr(y1) + ', '
+ IntToStr(colori) + ', '
+ IntToStr(layer) +
')';
IdTCPClient1.IOHandler.WriteLn(cmd);
end;
exports
CAD_AddLine;
initialization
DefaultFormatSettings.DecimalSeparator := '.';
try
IdTCPClient1 := TIdTCPClient.Create(nil);
IdTCPClient1.Host := '127.0.0.1';
IdTCPClient1.Port := 40000;
IdTCPClient1.Connect;
except
raise Exception.Create('can not connect to server!');
end;
finalization
IdTCPClient1.Disconnect;
IdTCPClient1.Free;
end.
Code: Alles auswählen
#Dieser Teil, kann man in einer Python-Datei schreiben und importieren.
#######################################################################
a = os.environ['path']
a = os.getcwd() + ";" + a
os.environ['path'] = a
intrf = ct.windll.CADSys4AppIntrf
CAD_AddLine = intrf.CAD_AddLine
CAD_AddLine.restype = ct.c_int
CAD_AddLine.argtypes = [ct.c_float, ct.c_float, ct.c_float, ct.c_float, ct.c_int, ct.c_int]
############################################################################################
for i in range(0, 1800):
x = i/100;
y = math.sin(x);
CAD_AddLine(x, y, x+2, y+2, 100, 0)
Code: Alles auswählen
procedure TfrmMainLinux.acToolsPythonIDEExecute(Sender: TObject);
var AProcess: TProcess; pgm: string;
begin
try
AProcess := TProcess.Create(self);
{$IFDEF windows}
pgm := applicationh.GetAppPath + 'libs\Python311-amd64\Scripts\thonny.exe';
AProcess.Executable:= pgm;
{$ENDIF}
AProcess.Execute;
finally
AProcess.Free;
end;
end;
ich weiss, in dem Fall, macht es keinen Sinn).