--
You received this message because you are subscribed to the Google Groups "Harbour Developers" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-deve...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-devel/ff783c70-412a-413c-947c-bebfa4293553n%40googlegroups.com.
--
You received this message because you are subscribed to the Google Groups "Harbour Developers" group.
To unsubscribe from this group and stop receiving emails from it, send an email to harbour-deve...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-devel/00a189be-ff1c-425e-8f8e-14ada6632be7n%40googlegroups.com.
I think anything like this is a better solution, no strange
source code to do that:
FUNCTION ze_LoadResource( cImage )
cImage := Lower( cImage )
DO CASE
CASE cImage == "jpsenha.sql"; #pragma __binarystreaminclude
"sql\jpsenha.sql" | RETURN %s
CASE cImage == "jpbinary.sql"; #pragma __binarystreaminclude
"sql\jpbinary.sql" | RETURN %s
CASE cImage == "jpconfi.sql"; #pragma __binarystreaminclude
"sql\jpconfi.sql" | RETURN %s
CASE cImage == "agentes.json"; #pragma __binarystreaminclude
"json\agentes.json" | RETURN %s
ENDCASE
RETURN Nil
José M. C. Quintas
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-devel/CADMEX-U42aoVHyPgv4bFSoh%2BFcGCuaaOaNNKu7_QZuhOTPQZJg%40mail.gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-devel/525e9915-b0ba-5eae-5ea0-64198bb7626b%40gmail.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/harbour-devel/51fbe652-9ffa-4ac4-aad2-e8d2a96de63en%40googlegroups.com.