gorepj

Hi,

Has anyone got the Delphi  TEdgeBrowser ZoomFactor to work?

Setting Zoomfactor to 1.5 for instance has no effect.

Regards

Peter

OK Primoz,

thank you for confirming

regards

Hi,

How can I identify a task by its name in an IOmnithreadpool?

I just want to know if a Task is in the threadpool

regards

Agreed David.  I cannot get this to work using Console.  I do not get any values outputted at all.

program OTLInvoke;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, otltask, OtlTaskControl;

procedure TestTask(const Task: IOmniTask);
  function CaptureValue(Value: Integer): TOmniTaskInvokeFunction;
  begin
    Result := procedure begin Writeln(Value.ToString); end;
  end;

  var
  i: Integer;
  begin
    Writeln('Test Using Invoke');
    for I := 0 to 9 do
      begin
        Task.Invoke(CaptureValue(i));
      end;
    WriteLn('');

    WriteLn('Press any key');
  end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    createTask(TestTask).
    Run;
    Readln;

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

Oh, one last thing if I may Primoz, is this approach any better or worse than using Task.Comm.Send with a message handler in an onmithreadmonitor?

regards

Yes, that worked, thank you so much Primoz.

Case closed

Thank you for your answers again.  The scenario doesn't lend itself to a Consol app.  So here is a test case using a form with a button and a memo.

I tried also using the array of TMyProc and that also did not work.  I kept getting access violations.

My goal actually is to learn the best practice simple approach in updating the GUI from within a running IOmniTask thats all. Just like Synchronize from a TThread but the Omnithread way.

I thought it may be using invoke but maybe its perhaps using Comm.Send to an omnithreadMonitor.

unit OTLInvokeMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, OtlTask, OtlTaskControl, Vcl.StdCtrls;

type
  TMyForm = class(TForm)
    Memo: TMemo;
    Button: TButton;
    procedure ButtonClick(Sender: TObject);
  private
    { Private declarations }
  procedure TestTask(const Task: IOmniTask);
  public
    { Public declarations }
  end;

var
  MyForm: TMyForm;

implementation

{$R *.dfm}

procedure TMyForm.ButtonClick(Sender: TObject);
begin
  createTask(TestTask).
  Run;
end;

procedure TMyForm.TestTask(const Task: IOmniTask);
type
  TMyProc = reference to procedure;

function CaptureValue(Value: Integer): TMyProc;
  begin
    Result := procedure begin Memo.Lines.add(Value.ToString); end;
  end;

var
  i: Integer;
  Proc: TMyProc;
begin
  Task.Invoke(procedure begin Memo.Lines.Add('Test 1 - Using Invoke (Outputs same value each time)'); end );
  for I := 0 to 2 do
    Task.Invoke(procedure begin Memo.Lines.Add(i.tostring); end );

  Task.Invoke(procedure begin Memo.Lines.Add('Test 2 - Using Invoke  with TMyProc and CaptureValue (Outputs same value each time)'); end );
  for I := 0 to 2 do
    begin
      Proc := CaptureValue(i);
      Task.Invoke(procedure
      begin
        Proc();
      end
      );
    end;
end;

end.

OTLInvoke.dpr

OTLInvokeMain.dfm

OTLInvokeMain.pas

Thank you very much.  Your code indeed works but not in the context of an omnithread invoke

  for I := 0 to 9 do
    begin
      SetLength(Procs,Length(Procs)+1);
      Procs := CaptureValue(i);
      Procs();  //This line works
      Task.invoke(procedure begin Procs(); end ); //This line Access Violation
    end;

Thank you for the reply but unfortunately this does not work either

procedure TMyFormTestTask(const Task: IOmniTask);
type
  TMyProc = reference to procedure;

function CaptureValue(Value: Integer): TMyProc;
  begin
    Result := procedure begin mmoLogs.Lines.add(Value.ToString); end;
  end;

var
  i: Integer;
  Proc: TMyProc;

begin

  for I := 0 to 9 do
    begin
      Proc := CaptureValue(i);
      Task.Invoke(procedure
      begin
        Proc();
      end
    );

//

Gives a result of
10
10
10
10
10
10
10
10
10
10

How can I update the UI from a task using invoke.  In my example below the memo is updated but with the wrong values

procedure TMyForm.TestTask(const Task: IOmniTask);
var
  i: Integer;
begin
 for I := 0 to 4 do
   Task.Invoke(procedure
     begin
       mmoLogs.Lines.Add('['+i.ToString+']');
     end
   );

end;

result is 

[4]

[4]

[4]

[4]

[4]

I need it to be 

[0]

[1]

[2]

[3]

[4]

How can I achieve this?