[Mfi]

Bueno, quiero meter una serie de archivos de texto en una dll, son scripts sql y no me interesa que sean facilmente visibles y mucho menos que alguién los modifique.

he creado un archivo res con un solo script compilando un archivo .rc con el brcc32:
Prueba TEXT Script.sql

creo una dll con el siguiente código:

Código Delphi [-]
library CrearDll;
uses
    Windows,
    Dialogs,
    SysUtils,
    Classes;
{$R *.res}
{$R recursos.res}
  function MostrarDatos(const ResName: string) : string; stdcall;
  var
    sStream: TStringStream;
    rStream: TResourceStream;
  begin
    Result := '';
    rStream := TResourceStream.Create(hInstance, ResName, 'TEXT');
    try
      sStream := TStringStream.Create('');
      try
        sStream.CopyFrom(rStream, 0); // <---- error Aquí
        Result := sStream.DataString;
      finally
        sStream.Free;
      end;
    finally
      rStream.Free;
    end;
  end;
  Exports MostrarDatos;
begin
end.

Y la utilizo para cargar el script en un Richedit:

Código Delphi [-]
 function MostrarDatos(const ResName: string) : string;stdcall external 'crearDll.dll';
implementation

......

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
  ibDatabase1.Open;
  RichEdit1.Clear;
  //IbScript1.Script:=
  RichEdit1.text := MostrarDatos('Prueba');//IBScript1.script;
  IbDatabase1.Close;
end;

El caso es que ejecuto el programa, pulso el botón para cargar el script y Perfecto!!! lo carga.. pero si pulso el botón denuevo para cargarlo otra vez... me salta un error de escritura en memoria al hacer el sStream.CopyFrom(rStream, 0) en la DLL...

Ya estoy un poco atorado con ello y no veo porque puede ser.. igual es una chorrada.. pero tengo la neurona bloqueada.

Muchas gracias por anticipado