Discussion :

[Rayek]

Voila en gros ce que je cherche à faire ^^

1- Des données arrivent sur mon IdHttpServeur
2- Je les ajoutes dans une liste de données à traiter

Pendant ce temps

1- Récupération de la première données de la liste
2- Traitement des données de la liste
3- Suppression des données de la liste
4- retour en 1

Les données arrivent en méthode post et seront mises dans un record puis ajouter à une liste.
J'ai pensé utiliser une TObjectList mais ne l'ayant jamais utilisée, je me demande si c'est bien la bonne solution.

En fait j'aurais besoin d'une pile de stockage qui empile un record et qui permet de dépiler par le bas.
Est ce que le TObjectList conviendrait il à cette solution ? (même avec un record)

[Cl@udius]

Est ce que le TObjectList conviendrait il à cette solution ?

Salut MalataRayek

Je n'ai pas eu encore l'occasion de les utiliser mais, je pense que TObjectQueue (FIFO) et/ou TObjectStack (LIFO) sont destinés à ton besoin.

@+ Claudius

[qi130]

Waskol a développé 1 truc sympa pour gérer ce type de problématique...

Un p'tit coup de recherche, et hop !

[Rayek]

Merci Cl@uCl@u

Mais le problème c'est que ca m'oblige a transformer mon Record en TObject, car je n'ai pas vraiment besoin d'utiliser un Object.

Je pourrais passer par un Array, mais ca m'obligerait à faire toutes les fonctions de manipulation de mes enregistrements.
Et je voudrais éviter de passer par une base de données pour le stockage temporaire car je n'en vois pas l'utilité pour un petit sytème comme ça.

En fait j'aimerai bien un solution du type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Type TMonRecord = record
 Blabla : String;
 UnEntier : Integer;
end;
 
MyList : TxxxxList;
MonEnr : TMonRecord
begin
  Recupdonnees(MonEnr);
  Mylist := TxxxList.Create;
  try
    MyList.Add(MonEnr);
    Traitement(MonEnr);
    MyList.Delete(0);
  finally
    MyList.free;
  end;
end;

[edit Réponse Qi130] Waskol au pied [/edit]

[DragonHeart]

Salut,

fait un petit tour Ici

c'est la page dont te parler qi130

toute en bas tu as un ptit soft Créateur de list je pense que ca t'aidera :

[qi130]

Salut,

fait un petit tour Ici

c'est la page dont te parler qi130

toute en bas tu as un ptit soft Créateur de list je pense que ca t'aidera :

Ouep, c'est "genealogie.zip", également accessible par ici http://www.developpez.net/forums/sho...d.php?t=137534 (avec la génèse )

[Rayek]

C'est bon, c'est bon , merci merci merci

J'ai récupéré le programme de Waskol, nikel , exactement ce que je cherchais ^^

[Cl@udius]

Très pratique cet outil de Waskol.

Et un TRecordList, un !

@+ Claudius

[Rayek]

Je viens de tester le système de Waskol et j'ai une violation d'accès mais je ne vois aps d'où peut venir le problème.

Voici mon Type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
type TDataRecord = record
  TypeClient        : Integer;
  IdClient          : String;
  Etat              : String;
  Client : record
    NomClient       ,
    Adresse1        ,
    Adresse2        ,
    CodePostal      ,
    Ville           ,
    Pays            ,
    Email           ,
    Tel             ,
    Port            ,
    Fax             : String;
  end;
end;

L'unité du "TrecordList"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
 
unit uRecordList;
 
interface
 
uses uTypes,Classes,SysUtils;
 
Type
  PTMaStructure = ^TDataRecord;
 
  TMaStructureList = class(TObject)
  private
    FList:TList;
    function GetItem(Index: Integer): TDataRecord;
    procedure SetItem(Index: Integer; const Value: TDataRecord);
    function GetCount: Integer;
    procedure SetCount(const Value: Integer);
  protected
  public
    constructor Create;
    destructor Destroy; override;
    function Add(Item:TDataRecord): Integer;
    procedure Delete(Index: Integer);
    procedure Insert(Index: Integer; Item: TDataRecord);
    procedure Move(CurIndex, NewIndex: Integer);
    procedure Exchange(Index1, Index2: Integer);
    procedure Clear;
    function IndexOf(const Value: TDataRecord): Integer;
    property Items[Index:Integer]:TDataRecord read GetItem write SetItem;default;
    property Count: Integer read GetCount write SetCount;
  end;
 
implementation
 
{ TMaStructureList }
 
function TMaStructureList.Add(Item:TDataRecord): Integer;
var
  p:PTMaStructure;
begin
  GetMem(p,SizeOf(Item));
  p^ := Item;
  result := FList.Add(p);
end;
 
procedure TMaStructureList.Clear;
var
  i:integer;
begin
  for i := 0 to FList.Count-1 do FreeMem(FList[i]);
  FList.Clear;
end;
 
constructor TMaStructureList.Create;
begin
  FList := TList.Create;
end;
 
procedure TMaStructureList.Delete(Index: Integer);
begin
  FreeMem(FList[Index]);
  FList.Delete(Index);
end;
 
destructor TMaStructureList.Destroy;
begin
  Clear;
  FList.Free;
  inherited;
end;
 
procedure TMaStructureList.Exchange(Index1, Index2: Integer);
begin
  FList.Exchange(Index1, Index2);
end;
 
function TMaStructureList.GetCount: Integer;
begin
  result := FList.Count;
end;
 
function TMaStructureList.GetItem(Index: Integer): TDataRecord;
begin
  result := PTMaStructure(FList[Index])^;
end;
 
function TMaStructureList.IndexOf(const Value: TDataRecord): Integer;
var i: Integer;
    found:Boolean;
    AnItem:TDataRecord;
begin
  Result := -1;
  found:=False;
  i:=0;
  while ((i<FList.Count) and (not found)) do
  begin
    AnItem:=GetItem(i);
    found:=CompareMem(@Value,@AnItem,SizeOf(TDataRecord));
    if not found then Inc(i);
  end;
  if found then Result:=i;
end;
 
procedure TMaStructureList.Insert(Index: Integer; Item: TDataRecord);
var
  p: PTMaStructure;
begin
  GetMem(p, SizeOf(Item));
  p^ := Item;
  FList.Insert(Index, p);
end;
 
procedure TMaStructureList.Move(CurIndex, NewIndex: Integer);
begin
  FList.Move(CurIndex, NewIndex);
end;
 
procedure TMaStructureList.SetCount(const Value: Integer);
var
  i, ListCount: Integer;
  p: PTMaStructure;
begin
  if FList.Count = Value then
    Exit
  else
  if Value < FList.Count then
  begin
    ListCount := FList.Count;
    for i := ListCount downto Value+1 do
    begin
      FList.Delete(i);
    end;
  end else
  if FList.Count < Value then
  begin
    for i := FList.Count+1 to Value do
    begin
      GetMem(p, SizeOf(TDataRecord));
      FillChar(p^, SizeOf(TDataRecord), 0);
      FList.Add(p);
    end;
  end;
end;
 
procedure TMaStructureList.SetItem(Index: Integer; const Value: TDataRecord);
begin
  PTMaStructure(FList[Index])^ := value;
end;
 
end.

J'ai bien pensé à créer ma liste en début de programme (Dans le OnCreate).

La violation se fait lors du P^:= Item dans la fonction Add.

Si quelqu'un voit le pourquoi du comment, les pointeurs ne sont pas mon plat favori

[DragonHeart]

J'ai déja eu ce soucis mais je me rappelle plus exactement comment je l'ai corrigé il faudrait que je recherche ...
je vais jeter un coup d'oeil rapide

[DragonHeart]

En recherchant rapidement
Essaie de remplacer la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
p^ := Item;

Par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
p := @Item;

En espérant que ca marche ca devrait normalement

[Rayek]

Ca passe correctement mais mes données sont vides et j'ai un autre bug plus loin.

[DragonHeart]

Oui j'ai tester aussi de mon coté et l'erreur survient maintenant dans la fonction Item... du moins pour ma part et la j'avoue je séche aussi !
A voir ce system a un peu de mal avec les Record ...
car ca passe bien avec tous autres type de donnée "classique" ...

[Rayek]

Bon, je pense que je vais devoir passer avec un TobjectList avec un objet du genre :

Code Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
type TMonObjet = Class(TObject)
  private
    FDataRecord : TDataRecord;
  public
    property DataRecord : TDataRecord Read FDataRecord Write FDataRecord;
end;

[sjrd]

Il faut juste typer tes pointeurs en PDataRecord et utiliser New/Dispose au lieu GetMem/FreeMem. Tu dois faire ça car il y des string dans ton record.

[Rayek]

Il faut juste typer tes pointeurs en PDataRecord et utiliser New/Dispose au lieu GetMem/FreeMem. Tu dois faire ça car il y des string dans ton record.

Merci, ca fonctionne