[Lazarus-es] Recursos Lazarus

[francisco prieto]

Excelente Martin,

Eso solucionó el problema...

Saludos y gracias,

Pancho
Córdoba
Argentina

El 2 de noviembre de 2015, 17:41, Martin Gomez <mmgomez en gmail.com> escribió:

> Mira la versión en inglés:
>
> http://wiki.freepascal.org/Lazarus_Resources#Using_resources_in_your_program
>
> Necesitas incluir en el uses la unit Windows, y usar RT_RCDATA como
> constante, no como texto.
>
> suerte
>
>
> 2015-11-02 17:20 GMT-03:00 francisco prieto <fajprieto en gmail.com>:
>
>> Grupo,
>>
>> Necesito incluir archivos planos como recurso para realizar una
>> verificacion de estructuras de datos...
>>
>> Para ello segui  el siguiente ejemplo
>>
>> http://wiki.freepascal.org/Lazarus_Resources/es
>>
>> Desde el titulo que dice Añadir recursos a tu programa...
>>
>> Bueno de esa forma mi archivo confdata.rc contiene lo siguiente:
>>
>> CONFBASE    RCDATA "rc\confbase.dat"
>> CONFPK      RCDATA "rc\confpk.dat"
>> CONFINDI    RCDATA "rc\confindi.dat"
>>
>> y en la carpeta rc que se encuetra en la ruta de donde esta confdata.rc
>> se encuentran mi archivos dat.
>>
>> En mi programa puse
>>
>> uses
>>   Classes, SysUtils, sqldb, IBConnection, sqlite3conn, FileUtil,inicio,
>> Dialogs,rutinas;
>> {$R confdata.rc}
>>
>> y luego en mi funcion que va a utilizar el recurso puse
>>
>>  sConfBase:=TResourceStream.Create(HInstance, 'CONFBASE', 'RT_RCDATA');
>>
>> Hasta ahi todo OK... compila sin inconvenientes pero al querer depurar el
>> programa en esta ultima linea para ver su funcionamiento me da el siguiente
>> error:
>>
>> El proyecto ... ha lanzado una excepcion 'EResNotFound' con el mensaje
>> Resource CONFBASE not found.
>>
>> Que se les ocurre que pueda ser?
>>
>> Saludos,
>>
>> Pancho
>> Córdoba
>> Argentina
>>
>> _______________________________________________
>> Lazarus-es mailing list
>> Lazarus-es en lists.lazarus.freepascal.org
>> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>>
>>
>
>
> --
> ​
> Most good programmers do programming not because they expect to get paid
> or get adulation by the public, but because it is fun to program.
> ​ ​
> *Linus Torvalds*
>
> _______________________________________________
> Lazarus-es mailing list
> Lazarus-es en lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es
>
>
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20151102/7fd1cbdd/attachment-0002.html>