Discussion :

[Bleys]

Bonjour � tous,


Je vais essayer d'expliquer le plus simplement :

Soient deux thread : thread1 et thread2.
Soit un record :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
monRecord = record
     heure: TDateTime;
     distance: integer;
     sauver: boolean;
   end;

Comment faire pour que thread1 g�n�re un monRecord avec des valeurs d�finies et qu'il l'envoie � thread2 ?

Je me suis �videmment pench� sur la m�thode PostThreadMessage mais j'ai du mal � comprendre :
Premier param�tre l'handle de thread2 => ok
Deuxi�me param�tre => un identifiant de mon message. Est-ce que comme �a c'est bon :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
const
WM_INFOTHREAD1 = WM_USER + 1;

?
Troisi�me et quatri�me param�tre ... Et voila .... je pense bien que c'est par l� que je dois mettre mon record .... mais comment ?




Ensuite,
c�t� thread2, je dois bien, dans ma boucle principale faire simplement appel � PeekMessage ?





Par avance, merci pour votre aide

[Bleys]

Je viens de trouver �a -> Sp�cial Delphi - Michel


Seulement i utilise SendMessage et par cons�quent son record existe toujours en m�moire, or moi je voudrais pouvoir utiliser PostMessage (ou PostThreadMessage) pour que thread1 n'attende pas que thread2 ait trait� le message (et d'ailleurs ... alors m�me que thread2 n'a pas trait� le message de thread1, je voudrais que thread1 soit capable d'en envoyer d'autres � thread2) ...

Je voudrais en simple, cr�er une file de message dont le message est un record ...




Merci � quiconque m'aidera

[ShaiLeTroll]

Tu peux aussi g�n�rer tes record (via pointeur), et les entreposer dans une TThreadList, consulter celle-ci dans le second thread, et lib�rer les items traiter ...

c'est nettement moins prise de t�te que les messages windows ... qui fonctionne comme ceci :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
type
  PBleysThreadRecord = ^TBleysThreadRecord;
  TBleysThreadRecord = record
     heure: TDateTime;
     distance: integer;
     sauver: boolean;
   end;

Listener

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
var
  Msg: TMsg;
begin
while not Terminated do
begin
  Sleep(5);
  if GetMessage(Msg, 0, WM_INFOTHREAD1, WM_INFOTHREAD1) then
  begin
    // Gère Msg
    S := FormatDateTime('HH:SS:NN', PBleysThreadRecord(Msg.wParam)^.Heure);
    Dispose(PBleysThreadRecord(Msg.wParam)); // Libération
  end;
end;

Sender

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
 
var
  monRecordPtr: PBleysThreadRecord;
begin
  New(monRecordPtr);
  monRecordPtr^.Heure := Now();
  ...
PostThreadMessage(HandleThread2, WM_INFOTHREAD1, Integer(monRecordPtr), 0); // Ne plus utilisé monRecordPtr, 
end;

Si tu loupes des messages, on ne sait jamais, je n'ai pas utilis� PostThreadMessage pour des m�canismes essentiels de mes applications, lui pr�f�rant la ThreadList, tu peux avoir des fuites m�moires, dans ce cas, stocker les Pointers, et leur affecter une date de p�remption pour les lib�rer ... mais gare au violation d'acc�s ...

[Bleys]

Tu es si bon ShaiLeTroll ...



J'avais pens� au TList modifi� pour les threads un peu comme le TThreadStringList,
Mais en y r�fl�chissant bien, �a doit bien exister quelque part tout fait d�j� cette unit� ...


Je vais me pencher l� dessus ... Ce qui �vitera de g�rer les messages windows, certainement plus lourd � g�rer (mais plus performant peut-�tre ?)



Encore merci � toi

[ShaiLeTroll]

la TThreadStringList, je ne l'a connaissais pas celle l� ? c'est depuis quel Delphi ? sinon la TThreadList (Classes.pas), existe depuis au moins Delphi 5 ...

C�t� performance, � mon avis, cela ne doit pas changer grand chose sur les machines que nous avons, tant que ta liste ne contient pas quelques milliers d'items ... mais autant le g�rer soit-m�me, autant ma�triser sa m�moire

en g�n�ral, je fixe une capacity � 1024 messages, puis lorsque cela approche de ce chiffre, je lance un Pack(), car je ne fais pas de delete sur la liste, mais j'affecte nil, ainsi cela reduit les mouvements en m�moire ...

[Bleys]

La TThreadStringList je l'ai trouv� sur internet en fait ... sur un tuto de d�veloppez d'ailleurs ...

Quand � TThreadList, malheureusement pour moi je suis sous Delphi 4 ... du coup je l'ai r�-impl�ment� ... ou tout du moins, ce qui m'int�ressait ....



Merci pour tout et je prends note pour ta remarque de fin

[Bleys]

Je devais vraiment �tre dans les vappes ce jour l� ... TThreadList existe bien sous Delphi 4 ... Pourquoi ne me l'avait-il pas trouv� avant ? Myst�re ...


Dommage ... je pr�f�rais la version que j'avais impl�ment� ... mais bon tant pis



Merci pour tout