Discussion :

[Dumont]

Ce que je sais faire : récupérer un dictionnaire stocké en RESSOURCE
à partir d'un fichier texte qui possède la forme suivante :

MOT Définition, RETOUR CHARIOT
MOT Définition, RETOUR CHARIOT

etc...
En utilisant les STREAMS :
cela donne la procédure suivante (qui est OK) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Procedure TForm1.Button1Click(Sender: TObject);
var res : TresourceStream;
 
begin
 
{ extrait direct de res dans memo1}
 
	Res:= TResourceStream.Create(0,'dicA_01',RT_RCDATA);
	Memo1.Lines.LoadFromStream(RES);
 
end;

Ce que je cherche :
Je voudrais travailler sur cette RES en mémoire et non
à partir d'un MEMO (ni d'un fichier TFileStream) pour pouvoir récupérer un MOT (et sa définition)

Je me perds complètement dans les TStringStream et les TStringlist qui devraient me permettre peut-être de me tirer d'affaire.
(Pas de tutorial précis trouvé.)

Je sais mettre le ressource en mémoire par:

Code :

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

1
2
3
4
5
6
7
8
	Var memoire : TmemoryStream;
	Begin
	memoire:=TMemoryStream.Create;
	memoire.position:=0;
	memoire.LoadFromStream(res);
 
	Memo2.Lines.LoadFromStream(memoire);
	End;

Mais ensuite je ne sais pas récupèrer mes chaines... car "memoire" est évidemment en un seul bloc !
Donc la question est : comment récupérer dans mon RES des chaines séparées
par un RC. (Pas forcément avec des Stream...)

Merci au dépanneurs...

[Dumont]

... Je vais me répondre à moi-même, faute de courrier ! et pourtant pas faute de visites !
Ai-je été clair dans ma question ?
Peut-être que non ! (auto-critique )
Le sujet est-il compliqué ? (allons, ici il y a des cracks - sans jeu de mot 8) - du développement)
Résumé de l'épisode précédent :
- j'ai un fichier texte (dictionnaire par ex) avec des RC
- je le place dans une RESSOURCE (RES)
- ensuite je ne sais pas exploiter cette RES pour faire des recherches (par exemple trouver un mot dedans avec StrPos par ex) et cela sans reconstituer le fichier dans un FILE mais travailler dessus en MEMOIRE pour une question de vitesse de traitement... you see ?

Allez, à votre bon coeur messieurs dames

[ptitbob]

Bonjour,

Sans avouer être un crack...
... On a toujours à apprendre...

La solution est relativement simple...

Au lieu d'utiliser un TMemoryStream, utilise un TRessourceStream et une TStringList:
Le fichier res contient un fichier texte en RCDATA

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
 
procedure TFrmShowRCData.InsertNewAirlineComment;
{$R Texte.res}
var
  ResStream: TResourceStream;
  _Lines: TStringList;
begin
  ResStream := TResourceStream.Create(HInstance,'Text',RT_RCDATA);
  try
    _Lines.LoadFromStream(ResStream);
    { Action sur la TStringList }
  finally
    ResStream.Free;
  end;
end;

Comme tu travaille avec une TStringList, de fait tu travaille en mémoire, si tu veux rechercher un mot, travaille sur CommaText...

Cordialement