Traduction d'un code Delphi en Lazarus

Version imprimable

26/03/2017, 11h34
ApproxDev

Traduction d'un code Delphi en Lazarus
Bonjour,

Indy 10.6 : TThread.Synchronize de l'unité IdSync.pas.
Comment peut-on traduire ce bout de code Delphi en Lazarus ?
Code:

1 2 3 4 5 TThread.Synchronize(nil, Procedure begin LoadPictureFromMemoryStream(imDst.Picture, ms); end);
Merci. Cordialement. AD
26/03/2017, 12h15
ApproxDev

...Pour l'instant, la seule option que j'entrevois est de dériver la procedure DoSynchronize; de TidSync... à moins que je passe à côté de quelque chose. Mais le synchronize en lazarus n'utilise que les procédures statiques.

...Cela semble être une approche fonctionnelle :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses
  ..., IdSync  in 'C:\lazarus32\components\Indy10_5410\Lib\Core\IdSync.pas';
 
type
  TcIdSync = class(TIdSync)
  protected
    procedure DoSynchronize; override;
  public
    SourceStream:  TMemoryStream;
    Picture:       TPicture;
    procedure LoadPictureFromStream(Picture: TPicture; SourceStream: TMemoryStream);
  end;
procedure TcIDSync.DoSynchronize;
begin
   LoadPictureFromStream(Picture, SourceStream);   
end;
 
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  ms:   TMemoryStream;
  sync: TcIdSync;
begin
  ms := TMemoryStream.Create;
  try
    AContext.Connection.IOHandler.LargeStream := true;
    AContext.Connection.IOHandler.ReadStream(ms);
    {α Remplacement de l'appel de la procedure statique  }
    sync := TcIdSync.Create;
    try
      sync.SourceStream := ms;
      sync.Picture      := Dest.Picture;
      sync.Synchronize;
    finally
      sync.Free;
    end;
    {ω Remplacement de l'appel de la procedure statique  }
  finally
    ms.Free;
  end;
end;

Je suis évidemment preneur d'une autre solution. Cordialement. AD

Salut
As tu essayé depasser une fonction en paramètre comme ceci ?
Code:

1 2 3 4 5 6 7 procedure DoMySync(myvar:byte); begin .... end; TThread.Synchronize(nil,@DoMySync(MyNewVarInit));

26/03/2017, 18h16
ApproxDev
Citation:
Envoyé par BeanzMaster

Salut
As tu essayé depasser une fonction en paramètre comme ceci ?

Code:

1 2 3 4 5 6 7 procedure DoMySync(myvar:byte); begin .... end; TThread.Synchronize(nil,@DoMySync(MyNewVarInit));
Bonjour BeanzMaster,

Non cela fonctionne pas. Ce code fonctionnerait en Lazarus:
Code:

1 2 3 4 5 6 procedure DoMySync(); begin .... end; TThread.Synchronize(nil,@DoMySync);
Citation:

// RLebeau 6/7/2016: there are race conditions if multiple threads call
// TThread.Synchronize() on the same TThread object at the same time
// (such as this unit's GNotifyThread object)...
{$IFDEF HAS_STATIC_TThread_Synchronize}
// Fortunately, the static versions of TThread.Synchronize() can skip the
// race conditions when the AThread parameter is nil, so we are safe here...
TThread.Synchronize(nil, SyncProc);
{$ELSE}
// However, in Delphi 7 and later, the static versions of TThread.Synchronize()
// call the non-static versions when AThread is not nil, and the non-static
// versions are not even close to being thread-safe (see QualityPortal #RSP-15139).
// They share a private FSynchronize variable that is not protected from
// concurrent access.

Extrait des commentaires de IdSync.pas (10.6)

En Lazarus cela ne fonctionne pas sans le nil (ou autre) sinon

Citation:

unit1.pas(82,43) Error: Wrong number of parameters specified for call to "Synchronize"

Cordialement. AD.

Salut

Dans Classesh.inc on peux trouver : class procedure Synchronize(AThread: TThread; AMethod: TThreadMethod);

A tester

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
type
  TcIdSync = class(TIdSync)
  protected
    procedure DoSynchronize; override;
  public
    SourceStream:  TMemoryStream;
    Picture:       TPicture;
    procedure LoadPictureFromStream(Picture: TPicture; SourceStream: TMemoryStream);
  end;
 
procedure TcIDSync.DoSynchronize;
begin
   LoadPictureFromStream(Picture, SourceStream);   
end;
 
procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);
var
  ms:   TMemoryStream;
  sync: TcIdSync;
begin
  ms := TMemoryStream.Create;
  try
    AContext.Connection.IOHandler.LargeStream := true;
    AContext.Connection.IOHandler.ReadStream(ms);
    {α Remplacement de l'appel de la procedure statique  }
    sync := TcIdSync.Create;
    try
      sync.SourceStream := ms;
      sync.Picture      := Dest.Picture;
      Synchronize(Sync,@DoSynchronize); // ---> soit comme ca
    finally
      sync.Free;
    end;
    {ω Remplacement de l'appel de la procedure statique  }
  finally
    ms.Free;
  end;
end;

Soit si la class(TIdSync) est de type TThread

Code:

1
2
3
4
5
6
7
8
9
type
  TcIdSync = class(TIdSync)
  protected
     FMonImage : TMonImage;
.......
procedure TcIDSync.DoSynchronize;
begin
   Synchronize(@FMonImage.LoadPictureFromStream(Picture, SourceStream));   
end;