Ver Mensaje Individual
  #4  
Antiguo 15-07-2008
santi33a santi33a is offline
Miembro
 
Registrado: jun 2005
Posts: 208
Reputación: 19
santi33a Va por buen camino
Aqui les digo la forma en que resolví, si existe una forma mas elegante, les agradeceria el comentario

Primero cree el fichero de recursos, en el archivo key.rc

Cita:
1 RCDATA a.txt
luego de compilarlo

Cita:
BRC32.EXE -r -v key.RC
puse en mi aplicación
Código Delphi [-]
{$R key.RES}

function Convierte : string;
type
 zz  = array [1..10000] of char;
var
  Corriente   : TResourceStream;
  z : ^ZZ;
  i,c :integer;
begin
 Corriente:=TResourceStream.Create( hInstance,'#1',RT_RCDATA );
 Corriente.Seek(0,soFromBeginning);
 i := Corriente.Size;
 setlength(result,i);
 z := corriente.Memory;
 for c := 1 to i do
  result[c] := z^[c];
 corriente.Free;
end;

begin
 cadena := Convierte;
end
Responder Con Cita