In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Off Topic Recursos en xEdit

Foro público de Xailer en español
Responder
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

Buenas tardes compañeros:
Ojala me puedan ayudar... agregue recursos de la siguiente manera en un
proyecto en xEdit
NewTxt RCDATA "Archivo.Txt"
pero al tratar de obtenerlo con el siguiente codigo me marca que no existe
la funcion findresource, tengo que agregar alguna libreria ?
Muchas gracias de antemano
Local hRes, cReturn
//
IF ( hRes := FindResource( 0, cID, RT_RCDATA ) ) != 0
cReturn := LoadResource( 0, hRes )
ENDI
Juan Castillo Arteaga
Area de sistemas
C.Fernandez y Cia., S.A. de C.V.
Arriba
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Off Topic Recursos en xEdit

Mensaje por zeasoftware »

debes tener el "Archivo.Txt" en la carpeta Resource de tu aplicación, a mi
me paso lo mismo, pensaba que al incluirlo en el proyecto lo cargaba y no es
así­.
Saludos.
Ramón Zea
Móvil.: 993-231.62.29
Tel./Fax: 993-353-46-73
zeasoftware@hotmail.com
"Juan Castillo A." escribió en el mensaje de
noticias:4e7a5a9e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Buenas tardes compañeros:
Ojala me puedan ayudar... agregue recursos de la siguiente manera en un
proyecto en xEdit
NewTxt RCDATA "Archivo.Txt"
pero al tratar de obtenerlo con el siguiente codigo me marca que no existe
la funcion findresource, tengo que agregar alguna libreria ?
Muchas gracias de antemano
Local hRes, cReturn
//
IF ( hRes := FindResource( 0, cID, RT_RCDATA ) ) != 0
cReturn := LoadResource( 0, hRes )
ENDI
Juan Castillo Arteaga
Area de sistemas
C.Fernandez y Cia., S.A. de C.V.
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

Muchas gracias por tu ayuda, los archivos los tengo en la carpeta resource
del proyecto, pero al compilar marca lo siguiente:
Error: Unresolved external '_HB_FUN_FINDRESOURCE' referenced from
C:XEDIT2SAMPLEMODULE1.OBJ
Error: Unresolved external '_HB_FUN_LOADRESOURCE' referenced from
C:XEDIT2SAMPLEMODULE1.OBJ
Falta alguna libreria o quizas sea necesario meter directamente el codigo
necesario con esas funciones.
Saludos Cordiales
<zeasoftware@hotmail.com> escribió en el mensaje
news:[email=4e7a6157@svctag-j7w3v3j....]4e7a6157@svctag-j7w3v3j....[/email]
> debes tener el "Archivo.Txt" en la carpeta Resource de tu aplicación, a mi
> me paso lo mismo, pensaba que al incluirlo en el proyecto lo cargaba y no
> es así.
>
> Saludos.
> Ramón Zea
> Móvil.: 993-231.62.29
> Tel./Fax: 993-353-46-73
> zeasoftware@hotmail.com
> "Juan Castillo A." escribió en el mensaje de
> noticias:4e7a5a9e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>
> Buenas tardes compañeros:
>
> Ojala me puedan ayudar... agregue recursos de la siguiente manera en un
> proyecto en xEdit
>
> NewTxt RCDATA "Archivo.Txt"
>
> pero al tratar de obtenerlo con el siguiente codigo me marca que no existe
> la funcion findresource, tengo que agregar alguna libreria ?
>
> Muchas gracias de antemano
>
>
> Local hRes, cReturn
> //
> IF ( hRes := FindResource( 0, cID, RT_RCDATA ) ) != 0
> cReturn := LoadResource( 0, hRes )
> ENDI
>
>
> Juan Castillo Arteaga
> Area de sistemas
> C.Fernandez y Cia., S.A. de C.V.
>
>
Arriba
jlalin
Mensajes: 926
Registrado: Sab Dic 25, 2010 11:10 pm

Off Topic Recursos en xEdit

Mensaje por jlalin »

Juan,
las funciones FindResource y LoadResource son de Xailer y creo que no están
en XEdit.
Saludos,
José Lalí­n
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

Muchas gracias Jose por la aclaracion, vamos a buscar en Google codigo que
puedan sustituir esas funciones.
Saludos Cordiales.
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:4e7b0009$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Juan,
las funciones FindResource y LoadResource son de Xailer y creo que no están
en XEdit.
Saludos,
José Lalín
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

Buenas tardes, sigo peleando con el codigo...
Encontre que agregando el siguiente codigo, ya no me marca error, la funcion
findresource me retorna un numero pero la funcion loadresource en lugar de
retornar el recurso tambien me da un numero, ¿ alguna idea de lo que esta
mal ?
#include "hbdll.ch"
IMPORT FindResource( arg1, arg2, arg3 ) FROM Kernel32.dll EXPORTED AS
FindResource
IMPORT LoadResource( arg1, arg2 ) FROM Kernel32.dll EXPORTED AS LoadResource

Saludos Cordiales.
"Juan Castillo A." <juanc@lasnovedades.com.mx> escribió en el mensaje
news:4e7a5a9e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Buenas tardes compañeros:
>
> Ojala me puedan ayudar... agregue recursos de la siguiente manera en un
> proyecto en xEdit
>
> NewTxt RCDATA "Archivo.Txt"
>
> pero al tratar de obtenerlo con el siguiente codigo me marca que no existe
> la funcion findresource, tengo que agregar alguna libreria ?
>
> Muchas gracias de antemano
>
>
> Local hRes, cReturn
> //
> IF ( hRes := FindResource( 0, cID, RT_RCDATA ) ) != 0
> cReturn := LoadResource( 0, hRes )
> ENDI
>
>
> Juan Castillo Arteaga
> Area de sistemas
> C.Fernandez y Cia., S.A. de C.V.
>
>
>
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

En el blog de Bielsys http://bielsys.blogspot.com/ he encontrado practicamente la solucion. Muchas gracias Gabriel Maimó.
codigo:
#pragma BEGINDUMP
#include "Windows.h"
#include "hbApi.h"
HB_FUNC( RESTOFILE )
{
HRSRC res=FindResource(NULL,"ACTVER",RT_RCDATA);
LPDWORD bytesWritten;
int size=SizeofResource(NULL,res);
HGLOBAL hRes=LoadResource(NULL,res);
unsigned char *pRes=(unsigned char *)LockResource(hRes);
HANDLE hFile=CreateFile("ACTVER.EXE",GENERIC_WRITE,0,NULL,CREATE_ALWAYS,0,NULL);
WriteFile(hFile,pRes,size,&bytesWritten,NULL);
CloseHandle(hFile);
}
#pragma ENDDUMP
Ahora falta parametrizar el nombre del recurso y el nombre del archivo de salida, nunca he hecho nada con lenguaje c pero bueno... por ahi debe haber ejemplos:
Saludos Cordiales.
"Juan Castillo A." <juanc@lasnovedades.com.mx> escribió en el mensaje news:4e7bbeea$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
> Buenas tardes, sigo peleando con el codigo...
>
> Encontre que agregando el siguiente codigo, ya no me marca error, la funcion
> findresource me retorna un numero pero la funcion loadresource en lugar de
> retornar el recurso tambien me da un numero, ¿ alguna idea de lo que esta
> mal ?
>
> #include "hbdll.ch"
> IMPORT FindResource( arg1, arg2, arg3 ) FROM Kernel32.dll EXPORTED AS
> FindResource
> IMPORT LoadResource( arg1, arg2 ) FROM Kernel32.dll EXPORTED AS LoadResource
>
>
> Saludos Cordiales.
>
> "Juan Castillo A." <juanc@lasnovedades.com.mx> escribió en el mensaje
> news:4e7a5a9e$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
>> Buenas tardes compañeros:
>>
>> Ojala me puedan ayudar... agregue recursos de la siguiente manera en un
>> proyecto en xEdit
>>
>> NewTxt RCDATA "Archivo.Txt"
>>
>> pero al tratar de obtenerlo con el siguiente codigo me marca que no existe
>> la funcion findresource, tengo que agregar alguna libreria ?
>>
>> Muchas gracias de antemano
>>
>>
>> Local hRes, cReturn
>> //
>> IF ( hRes := FindResource( 0, cID, RT_RCDATA ) ) != 0
>> cReturn := LoadResource( 0, hRes )
>> ENDI
>>
>>
>> Juan Castillo Arteaga
>> Area de sistemas
>> C.Fernandez y Cia., S.A. de C.V.
>>
>>
>>
>
>
--
Arriba
jlalin
Mensajes: 926
Registrado: Sab Dic 25, 2010 11:10 pm

Off Topic Recursos en xEdit

Mensaje por jlalin »

Juan,
este código te será más fácil de entender y modificar cuando lo necesites.
FUNCTION ResourceToFile( cResource, cFile )
LOCAL hFile := FCreate( cFile )
IF hFile != -1
FWrite( hFile, ExtractResource( cResource ) )
FClose( hFile )
ENDIF
RETURN File( cFile )
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
HB_FUNC( EXTRACTRESOURCE )
{
HRSRC hRes = FindResource( NULL, hb_parc( 1 ), RT_RCDATA );
if( hRes )
{
int nSize = SizeofResource( NULL, hRes );
char * lpRes = (char *) LoadResource( NULL, hRes );
hb_retclen( lpRes, nSize );
}
else
hb_retc( "" );
}
#pragma ENDDUMP
Saludos,
José Lalí­n
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

Gracias ! Vamos a probarlo, te agradezco y Saludos Cordiales.
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:4e7c4567$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Juan,
este código te será más fácil de entender y modificar cuando lo necesites.
FUNCTION ResourceToFile( cResource, cFile )
LOCAL hFile := FCreate( cFile )
IF hFile != -1
FWrite( hFile, ExtractResource( cResource ) )
FClose( hFile )
ENDIF
RETURN File( cFile )
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
HB_FUNC( EXTRACTRESOURCE )
{
HRSRC hRes = FindResource( NULL, hb_parc( 1 ), RT_RCDATA );
if( hRes )
{
int nSize = SizeofResource( NULL, hRes );
char * lpRes = (char *) LoadResource( NULL, hRes );
hb_retclen( lpRes, nSize );
}
else
hb_retc( "" );
}
#pragma ENDDUMP
Saludos,
José Lalín
Arriba
juanc
Mensajes: 105
Registrado: Vie Dic 14, 2007 12:15 am

Off Topic Recursos en xEdit

Mensaje por juanc »

Funciono a la primera!, te agradezco mucho Jose Lalín. Saludos Cordiales.
"José Lalín" <dezac@corevia.com> escribió en el mensaje
news:4e7c4567$[email=1@svctag-j7w3v3j....]1@svctag-j7w3v3j....[/email]
Juan,
este código te será más fácil de entender y modificar cuando lo necesites.
FUNCTION ResourceToFile( cResource, cFile )
LOCAL hFile := FCreate( cFile )
IF hFile != -1
FWrite( hFile, ExtractResource( cResource ) )
FClose( hFile )
ENDIF
RETURN File( cFile )
#pragma BEGINDUMP
#include <windows.h>
#include <xailer.h>
HB_FUNC( EXTRACTRESOURCE )
{
HRSRC hRes = FindResource( NULL, hb_parc( 1 ), RT_RCDATA );
if( hRes )
{
int nSize = SizeofResource( NULL, hRes );
char * lpRes = (char *) LoadResource( NULL, hRes );
hb_retclen( lpRes, nSize );
}
else
hb_retc( "" );
}
#pragma ENDDUMP
Saludos,
José Lalín
Arriba
Responder

Volver a “Xailer Spanish”