Resources em DLLs

Delphi

09/06/2006

Srs

Tenho o seguinte problema:

Preciso armazenar dezenas de arquivos XML em uma DLL criada somente para esse fim. Para isso adicionei cada arquivo como um Resource do projeto. Até aí, tudo bem.

Agora preciso carregar esses arquivos XML imbutidos como recursos da DLL.

Até agora tudo que consegui foi:

var FindHandle, ResHandle, LibHandle: THandle;
ResPtr: Pointer;
begin
  LibHandle := Loadlibrary (´C:\Repositorio\Templates.dll´);
  try
  if LibHandle <> 0 then begin
  FindHandle := FindResource(LibHandle, ´CONSULTACLIENTE´, ´RT_RCDATA´);
  if FindHandle <> 0 then begin
  ResHandle := LoadResource(LibHandle, FindHandle);
  if ResHandle <> 0 then begin
  ResPtr := LockResource(ResHandle);
  if ResPtr <> nil then
                                       ???????? -> O que faço aqui??
  UnlockResource (ResHandle);
  FreeResource (FindHandle);
  end;
  end;
     end;
  finally
  Beep;
  end;


Quero saber como trazer esse recursos como um texto.


Adsilver

Adsilver

Curtidas 0

Respostas

Adsilver

Adsilver

09/06/2006

sobe


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

09/06/2006

experimente fazer um typecast pra PChar só pra ver o que acontece, tipo...

if ResPtr <> nil then 
  ShowMessage(PChar(ResPtr));



GOSTEI 0
Martins

Martins

09/06/2006

[quote:99fd198978=´Marcelo Saviski´]experimente fazer um typecast pra PChar só pra ver o que acontece, tipo...

if ResPtr <> nil then 
  ShowMessage(PChar(ResPtr));
[/quote:99fd198978]

Uma boa idéia Marcelo Saviski, e como sempre é uma honra contar com sua participação aqui no fórum.


GOSTEI 0
Marcelo Saviski

Marcelo Saviski

09/06/2006

(...) e como sempre é uma honra contar com sua participação aqui no fórum.

obrigado, já faz um tempo que estou ´ausente´, é bom saber que ainda lembram de mim :D


GOSTEI 0
POSTAR