Jump to content

FredS

Members
 View Profile  See their activity

  • Content Count

    430

  • Joined

  • Last visited

  • Days Won

    4

Posts posted by FredS

  5. Posted

    12 hours ago, pcplayer99 said:

    it can not access  private field in original clas

     

    I have this test setup to let me know if this is ever changed in a new version of Delphi.

    Should be simple enough to replace TCustomTextFile with whatnot and run the test which I just ran in 10.4.1 and it passed:

      

    //MMWIN:CLASSCOPY
unit _MM_Copy_Buffer_;

interface


implementation

type
  TTestAccessToPrivateFieldHelper = class helper for TCustomTextFile
    function SetPrivateOwnsStream(AValue: boolean): boolean;
end;


{ TTestAccessToPrivateFieldHelper }

function TTestAccessToPrivateFieldHelper.SetPrivateOwnsStream(AValue: boolean): boolean;
begin
  with Self do begin
    FOwnsStream := AValue;
    Result := FOwnsStream;
  end;
end;

end.
    //MMWIN:MEMBERSCOPY
unit _MM_Copy_Buffer_;

interface

type
  THelperTests = class(TObject)
  public
    [Test(True)]
    procedure TestAccessToPrivateField;
  end;


implementation

procedure THelperTests.TestAccessToPrivateField;
var F : TTextFile;
begin
  F := TTextFile.Create('testing.txt', TEncoding.UTF8);
  try
    Assert.IsFalse(F.SetPrivateOwnsStream(False));
    Assert.IsTrue(F.SetPrivateOwnsStream(True));
  finally
    F.Free;
  end;
end;


end.

     

    • Like 1

  9. Posted

    Anyone able to switch 'Configuration' and have that update in the 'Project Manager' , without using the 'Config Manager'?

    My 10.4.1 is still Sandboxed on Win7..

     

    Also 'Build Groups' are using the wrong config, strangely changing that (Options) doesn't update the 'Project Manager' display but Barbie band-aids that issue..

     

  10. Posted · Edited by FredS

    1 hour ago, Angus Robertson said:

    Quick Create don't support any other means of access

    - Quick installed Ubuntu 20.04

    - ran: `sudo apt-get install openssh-server`

    - connected via WSL from Host: 

    fred@PUTER:~$ sudo ssh fred@172.17.134.53
fred@172.17.134.53's password:
Welcome to Ubuntu 20.04 LTS (GNU/Linux 5.4.0-26-generic x86_64)

     

  12. Posted

    7 hours ago, Angus Robertson said:

    Windows 10 Hyper-V virtual Ethernet adapter

    If your Host machine has a single NIC then you may need to get the IP from the Hyper-V virtual Ethernet adapter to reach your machine.

    If that is the case the bottom panel has three tabs, the networking tab will have the VMs IP after it has been started.

  14. Posted

    1 hour ago, Anders Melander said:

    Document Insight can use external XML files. Very useful when you don't want to make the source unreadable with XML DOC comments.

     

    Think I tried that before and moving existing documentation failed. Just tried again and same..

    It does appear to work when I add new documentation, however there are these caveats:

    Quote

    Warning: Although separated XML documentation will make source code clean, the price is that neither built-in Help Insight nor Code Insight support this documentation style. In addition, you have to manually modify corresponding documentation file carefully when you changed a signature of an API.

     

  21. Posted

    54 minutes ago, aehimself said:

    Application.ProcessMessages call in a loop

     

    Start with this, I pulled that out of more complex code but haven't tested it: 

    //MMWIN:MEMBERSCOPY
unit _MM_Copy_Buffer_;

interface

type
  TThreadHelper = class helper for TThread
  public
    /// <summary>
    ///   Will handle all Wait Key, Mouse and Message Inputs, also calls Synchronize as needed.
    /// </summary>
    function StartAsync: TWaitResult;
  end;


implementation

function TThreadHelper.StartAsync: TWaitResult;
var
  LHandles: TArray<THandle>;
  Rsl : Cardinal;
const cObjects = 2;
begin
  Assert(TThread.CurrentThread.ThreadID = MainThreadID, 'Must be called from Main Thread');
  Self.FreeOnTerminate := False;
  SetLength(LHandles, cObjects);
  LHandles[0] := Self.Handle;
  LHandles[1] := SyncEvent;
  self.Start();
  try
    repeat
      Rsl := MsgWaitForMultipleObjects(cObjects, LHandles[0], False, INFINITE, QS_ALLINPUT);
      case Rsl of
        WAIT_FAILED: Exit(TWaitResult.wrError);
        WAIT_TIMEOUT: Exit(TWaitResult.wrTimeOut);
        WAIT_ABANDONED_0 .. WAIT_ABANDONED_0 + cObjects: Exit(TWaitResult.wrAbandoned);
        WAIT_OBJECT_0 : Result := TWaitResult.wrSignaled;
        WAIT_OBJECT_0 + 1: CheckSynchronize(0);
        WAIT_OBJECT_0 + cObjects:  Application.ProcessMessages;
      end;
    until (Rsl = 0);
  finally
    self.Free;
  end;
end;


end.

     

×