BESOIN AIDE SUR LES THREAD

Commentaire de barbichette le 09/06/2012 20:29:03

déjà essayé...
C'est la même chose, d'ailleurs, lock/unlock fait simplement intervenir un section critique.

Non, il me semble que le problème vient plutôt de la gestion des canvas, handle, HDC et autres.

Merci

Commentaire de cirec le 10/06/2012 00:42:58 administrateur CS

Salut,

Jean_Jean et Caribensila ont raison à eux deux.

en effet, il faut utiliser un BMP intermédiaire (tampon) et utiliser Lock/UnLock ... avec cette méthode on peut se passer de faire appel à Synchronize.
j'ai pas regardé le code (j'ai pas accès à Delphi en ce moment).

Commentaire de IA93 le 14/06/2012 16:36:44

Je suggère les modifications minimales suivantes:
-Ajouter un destructor au ThReadRun
-Supprimer toutes les instructions de synchronisation/section critiques car il n'y a qu'un seul thread.
-Lancer le thread par Execute, puis le détruire pour terminer

A chaque clic du Bouton1, le thread et l'interpréteur sont créés, puis détruits à la fin de l'appel. Donc l'exécution du mémo est dynamique...(on peut modifier le mémo!)

Voici la liste des modifications proposées:

unit UMain;

// Liste des modif à effectuer sur UMain.pas //

{---------------------------------------}
TThreadRun=class(tthread)
   private
//    FLock: TCriticalSection;
   protected
    constructor Create;
    destructor Destroy;
    procedure Execute; override;
  end;

{---------------------------------------}
var // Global
//  FSection: TRTLCriticalSection;

{---------------------------------------}
destructor TThreadRun.Destroy;
begin
  inherited Destroy;
end;

{---------------------------------------}
procedure TThreadRun.Execute;
begin
try
  t.Run(-1);
except
  on E: Exception do FMain.ErreurInterpret;
end;
FMain.FinishInterpret;
end;

{---------------------------------------}
procedure TFMain.FunctionCall(...);

// EnterCriticalSection(FSection);

// LeaveCriticalSection(FSection);

{---------------------------------------}
procedure TFMain.FormCreate(Sender: TObject);

//InitializeCriticalSection(FSection);

{---------------------------------------}
procedure TFMain.Button1Click(Sender: TObject)

// th.Resume;
th.Execute;
th.Terminate;
th.destroy;

{---------------------------------------}

Commentaire de IA93 le 14/06/2012 23:28:17

Bonsoir,
Lorsque j'ai voulu compiler le source tel qu'il est à l'origine, j'ai eu une suite d'erreurs car je n'ai que Delphi6-Pro.
Le problème venait des appels à TFormatSettings. j'ai donc cherché à recréer un équivalant à partir d'une documentation.
Et j'ai trouvé entre autre la page suivante:
  http://docwiki.embarcadero.com/Libraries/en/System.SysUtils.TFormatSettings

Il y est dit que le contexte n'est peut-être pas toujours SAFE-THREAD !

( C'est peut-être une explication car avec les modifications proposées, mon programme fonctionne sans problème...)

Voici donc ma version D6 de UValues.pas, avec ses suppressions, ou la réécriture de GetNumberValue.

unit UValues;

{-----------------------------}
type
TValue=class
//FFormatSettings:TFormatSettings;

{-----------------------------}
constructor TValue.create;
begin
//GetLocaleFormatSettings(0,FFormatSettings);
//FFormatSettings.DecimalSeparator:='.';

{-----------------------------}
function TValue.GetNumberValue:extended;
var
i, p :integer;
LString : string;
begin
LString:=FString;
result:=-1;
for p:=1 to length(LString) do
   if LString[p]='.' then LString[p]:=',';
case FTypevalue of
  TypeNone:result:=0;
  TypeNumber:result:=FNumber;
  TypeString:
     begin
      try
        result:=strtoint(LString);
      except
        try
          result:=strtofloat(LString);
        except
          SendExcep(format('impossible de convertir "%s" en nombre', [FString]));
        end;
      end;
     end;
  TypeBoolean:if FBoolean then result:=1 else result:=0;
  TypeArray:result:=Fcount;
end;
end;

{-----------------------------}
procedure TValue.SetNumberValue(v:extended);

//TypeNumber:result:=floattostr(FNumber,FFormatSettings);
  TypeNumber:result:=floattostr(FNumber);

{-----------------------------}

( J'ai envoyé une autre version modifiée dans un mail à BarbichetteWorld...)

IA93.

Commentaire de barbichette le 15/06/2012 18:06:19

@Manchester : oui, mon canvas existe. j'ai essayé de dessiner directement dans le canvas de l'écran avec getdc(0) et bitblt, idem.

@IA93 : la modif ne marche pas chez moi...
Par contre, avec un sleep(10) au début de ma fonction de dessin, le tracé est long mais ça marche mieux...
Le tracé ne s'effectue pas dans le bitmap de image1, mais il apparait au moins à l'écran...

Je continue de chercher une explication...