Fórum Resources em DLLs #323160
09/06/2006
0
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
Curtir tópico
+ 0Posts
12/06/2006
Adsilver
Gostei + 0
12/06/2006
Marcelo Saviski
if ResPtr <> nil then ShowMessage(PChar(ResPtr));
Gostei + 0
13/06/2006
Martins
if ResPtr <> nil then ShowMessage(PChar(ResPtr));
Uma boa idéia Marcelo Saviski, e como sempre é uma honra contar com sua participação aqui no fórum.
Gostei + 0
26/06/2006
Marcelo Saviski
obrigado, já faz um tempo que estou ´ausente´, é bom saber que ainda lembram de mim :D
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)