Discussion :

[paradise]

Bonjour,

Je me demande bien pourquoi ce code fonctionne à merveille :

Code :

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

1
2
3
4
5
6
7
8
9
var
  resStream: TResourceStream;
begin
  resStream := TResourceStream.Create(HInstance, 'XML_SETTINGS', RT_RCDATA);
  try    
    memo1.Lines.LoadFromStream(resStream);      
  finally
    resStream.Free;
  end;

..mais pas celui-ci ?

Code :

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

1
2
3
4
5
6
var
  HResInfo: HRSRC;
begin
  HResInfo := FindResource(HInstance, PChar('XML_SETTINGS'), PChar('RT_RCDATA'));
  if HResInfo = 0 then 
    Exit;

Car évidemment HResInfo est toujours à 0.
Des idées svp ?

[paradise]

Autant pour moi, il fallait mettre directement RT_RCDATA et non PChar('RT_RCDATA')
Fatigue fatigue....

[supersnail]

Bonjour,

Peut-être ceci? :

Code :

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

1
2
3
4
5
6
7
 
var
  HResInfo: HRSRC;
begin
  HResInfo := FindResource(HInstance, PChar('XML_SETTINGS'),RT_RCDATA);
  if HResInfo = 0 then 
    Exit;

Edit: j'arrive trop tard