Skip to content

partial support for TMemoryStream and TFileStream #359

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Closed
mrcsms wants to merge 1 commit into from
Closed

partial support for TMemoryStream and TFileStream #359

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
146 changes: 146 additions & 0 deletions Source/WrapDelphiClasses.pas
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -237,6 +237,43 @@ TPyDelphiBasicAction = class (TPyDelphiComponent)
property DelphiObject: TBasicAction read GetDelphiObject write SetDelphiObject;
end;

TPyDelphiStream = class(TPyDelphiObject)
private
function GetDelphiObject: TStream;
procedure SetDelphiObject(Value: TStream);
public
class function DelphiObjectClass : TClass; override;
class procedure RegisterMethods( PythonType : TPythonType ); override;

property DelphiObject: TStream read GetDelphiObject write SetDelphiObject;
end;

TPyDelphiMemoryStream = class(TPyDelphiStream)
private
function GetDelphiObject: TMemoryStream;
procedure SetDelphiObject(Value: TMemoryStream);
public
constructor CreateWith(APythonType: TPythonType; args: PPyObject); override;

class function DelphiObjectClass : TClass; override;
class procedure SetupType( PythonType : TPythonType ); override;

property DelphiObject: TMemoryStream read GetDelphiObject write SetDelphiObject;
end;

TPyDelphiFileStream = class(TPyDelphiStream)
private
function GetDelphiObject: TFileStream;
procedure SetDelphiObject(Value: TFileStream);
public
constructor CreateWith(APythonType: TPythonType; args: PPyObject); override;

class function DelphiObjectClass : TClass; override;
class procedure SetupType(PythonType : TPythonType); override;

property DelphiObject: TFileStream read GetDelphiObject write SetDelphiObject;
end;

{ Helper functions }

function ShiftToPython(AShift : TShiftState) : PPyObject;
Expand Down Expand Up @@ -280,6 +317,19 @@ procedure TClassesRegistration.DefineVars(APyDelphiWrapper: TPyDelphiWrapper);
APyDelphiWrapper.DefineVar('ssRight', 'ssRight');
APyDelphiWrapper.DefineVar('ssMiddle', 'ssMiddle');
APyDelphiWrapper.DefineVar('ssDouble', 'ssDouble');

APyDelphiWrapper.DefineVar('fmCreate', fmCreate);
APyDelphiWrapper.DefineVar('fmOpenRead', fmOpenRead);
APyDelphiWrapper.DefineVar('fmOpenWrite', fmOpenWrite);
APyDelphiWrapper.DefineVar('fmOpenReadWrite', fmOpenReadWrite);
APyDelphiWrapper.DefineVar('fmExclusive', fmExclusive);
// platform
// APyDelphiWrapper.DefineVar('fmShareCompat', fmShareCompat);
APyDelphiWrapper.DefineVar('fmShareExclusive', fmShareExclusive);
APyDelphiWrapper.DefineVar('fmShareDenyWrite', fmShareDenyWrite);
// platform
// APyDelphiWrapper.DefineVar('fmShareDenyRead', fmShareDenyRead);
APyDelphiWrapper.DefineVar('fmShareDenyNone', fmShareDenyNone);
end;

function TClassesRegistration.Name: string;
Expand All @@ -295,6 +345,8 @@ procedure TClassesRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrapp
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiComponent);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiStrings);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiBasicAction);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiMemoryStream);
APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiFileStream);
end;

{ Helper functions }
Expand Down Expand Up @@ -1745,6 +1797,100 @@ procedure TPyReader.SetName(Component: TComponent; var Name: string);
FInstance := Component;
end;


{ TPyDelphiStream }
class function TPyDelphiStream.DelphiObjectClass: TClass;
begin
Result := TStream;
end;

function TPyDelphiStream.GetDelphiObject: TStream;
begin
Result := TStream(inherited DelphiObject);
end;

class procedure TPyDelphiStream.RegisterMethods(PythonType: TPythonType);
begin
inherited;
{TODO Read, Write}
end;

procedure TPyDelphiStream.SetDelphiObject(Value: TStream);
begin
inherited DelphiObject := Value;
end;

{ TPyDelphiMemoryStream }

constructor TPyDelphiMemoryStream.CreateWith(APythonType: TPythonType; args: PPyObject);
begin
inherited;
if APythonType.Engine.PyArg_ParseTuple( args, ':Create' ) <> 0 then
begin
DelphiObject := TMemoryStream(DelphiObjectClass().NewInstance());
DelphiObject.Create();
Owned := True;
end;
end;

class function TPyDelphiMemoryStream.DelphiObjectClass: TClass;
begin
Result := TMemoryStream;
end;

function TPyDelphiMemoryStream.GetDelphiObject: TMemoryStream;
begin
Result := TMemoryStream(inherited GetDelphiObject());
end;

procedure TPyDelphiMemoryStream.SetDelphiObject(Value: TMemoryStream);
begin
inherited DelphiObject := Value;
end;

class procedure TPyDelphiMemoryStream.SetupType(PythonType: TPythonType);
begin
inherited;
PythonType.GenerateCreateFunction := True;
end;

{ TPyDelphiFileStream }

constructor TPyDelphiFileStream.CreateWith(APythonType: TPythonType; args: PPyObject);
var
PFileName: PAnsiChar;
Mode: Word;
begin
inherited;
if APythonType.Engine.PyArg_ParseTuple(args, 'sH:Create', @PFileName, @Mode) <> 0 then
begin
DelphiObject := TFileStream(DelphiObjectClass().NewInstance());
DelphiObject.Create(UTF8ToString(RawByteString(PFileName)), Mode);
Owned := True;
end;
end;

class function TPyDelphiFileStream.DelphiObjectClass: TClass;
begin
Result := TFileStream;
end;

function TPyDelphiFileStream.GetDelphiObject: TFileStream;
begin
Result := TFileStream(inherited GetDelphiObject());
end;

procedure TPyDelphiFileStream.SetDelphiObject(Value: TFileStream);
begin
inherited DelphiObject := Value;
end;

class procedure TPyDelphiFileStream.SetupType(PythonType: TPythonType);
begin
inherited;
PythonType.GenerateCreateFunction := True;
end;

initialization
RegisteredUnits.Add(TClassesRegistration.Create);
end.