A question about libxl

[Massimo Linossi]

Hi to all.
I'm trying to use the LibXl dll library for writing an excel file, but I'm having a problem with numbers, that are not written in the file.
Anyone has tried to use this library ?
I'm using Xhb.com
Thanks a lot.
Massimo

Code: Select all  Expand view

#include "fivewin.ch"
#include "ord.ch"

STATIC hLib

PROCEDURE MAIN
LOCAL book, sheet, riga, font1, formato1
LOCAL xFont_Text1, xFont_Text2
LOCAL xfrm1, xf1, format1
LOCAL xfrm2, xf2, format2
LOCAL xfrm3, xf3, format3

set date italian

hLib = LOADLIBRARY("LIBXL.DLL")

book = xlCreateBook()
If book # 0
    xFont_Text1 = xlBookAddFont( Book )       ;     xlFontSetName( xFont_Text1 , "Arial" )    ;     xlFontSetSize( xFont_Text1 , 9 )
    xFont_Text2 = xlBookAddFont( Book )       ;     xlFontSetName( xFont_Text2 , "Arial" )    ;     xlFontSetSize( xFont_Text2 , 10 )  ; xlFontBold(xFont_Text2)
    xFont_Text3 = xlBookAddFont( Book )       ;     xlFontSetName( xFont_Text3 , "Arial" )    ;     xlFontSetSize( xFont_Text1 , 9 )

    xfrm1 = "###.###.###,##0"
    xf1 = xlBookAddCustomNumFormat( Book , xfrm1 )
    format1 = xlBookAddFormat( Book )
    xlFormatSetNumFormat( format1, xf1 )
    xlFormatSetFont( format1, xFont_text1 )

    format2 = xlBookAddFormat( Book )
    xlFormatSetFont( format2, xFont_text2 )

    format3 = xlBookAddFormat( Book )
    xlFormatSetFont( format2, xFont_text3 )

    sheet = xlBookAddSheet(book, "Sheet1", 0)

    use "EMPLOYEE" NEW ALIAS nomi
    dbgotop()
    riga = 0
    xlSheetWriteStr(sheet, riga, 0, "Nome", format2)
    xlSheetWriteStr(sheet, riga, 1, "Cognome", format2)
    xlSheetWriteStr(sheet, riga, 2, "Indirizzo", format2)
    xlSheetWriteStr(sheet, riga, 3, "Città", format2)
    xlSheetWriteStr(sheet, riga, 4, "Stato", format2)
    xlSheetWriteStr(sheet, riga, 5, "C.A.P.", format2)
    xlSheetWriteStr(sheet, riga, 6, "Data nascita", format2)
    xlSheetWriteStr(sheet, riga, 7, "Sposato", format2)
    xlSheetWriteStr(sheet, riga, 8, "Età", format2)
    xlSheetWriteStr(sheet, riga, 9, "Stipendio", format2)
    do while !eof()
        riga ++
        xlSheetWriteStr(sheet, riga, 0, nomi->FIRST, format3)
        xlSheetWriteStr(sheet, riga, 1, nomi->LAST, format3)
        xlSheetWriteStr(sheet, riga, 2, nomi->STREET, format3)
        xlSheetWriteStr(sheet, riga, 3, nomi->CITY, format3)
        xlSheetWriteStr(sheet, riga, 4, nomi->STATE, format3)
        xlSheetWriteStr(sheet, riga, 5, nomi->ZIP, format3)
        xlSheetWriteStr(sheet, riga, 6, dtoc(nomi->HIREDATE), format3)
        xlSheetWriteStr(sheet, riga, 7, iif(nomi->MARRIED,"X"," "), format3)
        xlSheetWriteNum(sheet, riga, 8, nomi->AGE, format1)                           <--- here is the problem
        xlSheetWriteNum(sheet, riga, 9, nomi->SALARY, format1)                      <--- here is the problem
        dbskip()
    enddo
    nomi->(dbclosearea())

    xlSheetSetAutoFitArea(sheet, 0, 0, riga, 5)
    xlBookSave(book, "example.xls")
    xlBookRelease(book)
EndIf
freelibrary(hLib)
msginfo("Finito")
quit

DLL32 Function xlBookSetKey(bookHandle As LONG, nome As LPSTR, chiave As LPSTR) AS LONG PASCAL FROM "xlBookSetKeyA" Lib hlib
DLL32 Function xlCreateBook() AS LONG PASCAL FROM "xlCreateBookA" LIB hlib
DLL32 Function xlBookAddSheet(bookHandle As LONG, name As LPSTR, sheetHandle As LONG) AS LONG PASCAL FROM "xlBookAddSheetA" Lib hlib
DLL32 Function xlSheetWriteStr(sheetHandle As LONG, riga As LONG, colonna As LONG, valore As LPSTR, formatHandle As LONG) AS VOID PASCAL FROM "xlSheetWriteStrA" Lib hlib
DLL32 Function xlSheetWriteNum(sheetHandle As LONG, riga As LONG, colonna As LONG, valore As LONG, formatHandle As LONG) AS VOID PASCAL FROM "xlSheetWriteNumA" Lib hlib
DLL32 Function xlBookInsertSheet(bookHandle As LONG, indice As LONG, name As LPSTR, sheetHandle As LONG) As LONG PASCAL FROM "xlBookInsertSheetA" Lib hlib
DLL32 Function xlBookDelSheet(bookHandle As LONG, indice As LONG) As LONG PASCAL FROM "xlBookDelSheetA" Lib hlib
DLL32 Function xlBookSave(bookHandle As LONG, filename As LPSTR) AS VOID PASCAL FROM "xlBookSaveA" Lib hlib
DLL32 Function xlBookRelease(bookHandle As LONG) As LONG PASCAL FROM "xlBookReleaseA" Lib hlib
DLL32 Function xlSheetSetAutoFitArea(sheetHandle As LONG, rowFirst As LONG, colFirst As LONG, rowLast As LONG, colLast As LONG) AS VOID PASCAL FROM "xlSheetSetAutoFitAreaA" Lib hlib

DLL32 Function xlBookAddFont(bookHandle As LONG, fontHandle As LONG) AS LONG PASCAL FROM "xlBookAddFontA" Lib hlib
DLL32 Function xlFontSetName(fontHandle As LONG, nome As LPSTR) AS LONG PASCAL FROM "xlFontSetNameA" Lib hlib
DLL32 Function xlFontSetSize(fontHandle As LONG, size As LONG) AS VOID PASCAL FROM "xlFontSetSizeA" Lib hlib
DLL32 Function xlFontSetBold(fontHandle As LONG, bold As LONG) AS VOID PASCAL FROM "xlFontSetBoldA" Lib hlib
DLL32 Function xlFontBold(fontHandle As LONG) AS LONG PASCAL FROM "xlFontBoldA"  Lib hlib

DLL32 Function xlBookAddCustomNumFormat (bookHandle As LONG, customNumFormat As LPSTR) AS LONG PASCAL FROM "xlBookAddCustomNumFormatA" Lib hlib
DLL32 Function xlBookAddFormat(bookHandle As LONG, formatHandle As LONG) AS LONG PASCAL FROM "xlBookAddFormatA" Lib hlib
DLL32 Function xlFormatSetNumFormat(formatHandle As LONG, numFormat As LONG) AS VOID PASCAL FROM "xlFormatSetNumFormatA" Lib hlib

DLL32 Function xlFormatSetFont(formatHandle As LONG, fontHandle As LONG) AS LONG PASCAL FROM "xlFormatSetFontA" Lib hlib
DLL32 Function xlBookSetDefaultFont(bookHandle As LONG, fontName As LPSTR, fontSize As LONG) AS VOID PASCAL FROM "xlBookSetDefaultFontA" Lib hlib
 

[Massimo Linossi]

Hi.
I resolved changing all the DLL32 calls with some functions in C and linking a lib.
This DLL is really, really fast and you don't need Excel. You can find a demo in the site and test it.
Thanks a lot.
Massimo

[devtuxtla]

Hi Massimo

Could you share your example corrected?

Thank you
regards

[Massimo Linossi]

Here it is. You must download the DLL and the library from the LIBXL site.

I made a test with a DBF of 5000 records. The procedure below has been executed in less than one second.

Code: Select all  Expand view

#include "fivewin.ch"
#include "ord.ch"

PROCEDURE MAIN
LOCAL book, sheet, riga
LOCAL xf
LOCAL num_format1, date_format
LOCAL Header_Font, header_Format
LOCAL Line_Font, Line_Format

set date italian
set century on

book = xlCreateBookC()

If book # 0
    Header_Font = xlBookAddFont( Book, 0 )
    xlFontSetName( Header_Font , "Arial" )
    xlFontSetSize( Header_Font , 12 )
    xlFontBold( Header_Font )

    Line_Font = xlBookAddFont( Book, 0 )
    xlFontSetName( Line_Font , "Arial" )
    xlFontSetSize( Line_Font , 9 )

    Header_Format = xlBookAddFormat( Book, 0 )
    xlFormatSetFont( Header_Format, Header_Font )

    Line_Format = xlBookAddFormat( Book, 0 )
    xlFormatSetFont( Line_Format, Line_Font )

    num_format1 = xlBookAddFormat( Book, 0 )
    xf = xlBookAddCustomNumFormat( Book , "###,###,###,##0" )
    xlFormatSetNumFormat( num_format1, xf )
    xlFormatSetFont( num_format1, Line_Font )

    date_format = xlBookAddFormat( Book, 0 )
    xf = xlBookAddCustomNumFormat( Book , "DD/MM/YYYY" )
    xlFormatSetNumFormat( date_format, xf )
    xlFormatSetFont( date_format, Line_Font )

    sheet = xlBookAddSheet(book, "Sheet1", 0)

    use "EMPLOYEE" NEW ALIAS nomi
    dbgotop()
    riga = 0
    xlSheetWriteStr(sheet, riga, 0, "Nome", Header_Format)
    xlSheetWriteStr(sheet, riga, 1, "Cognome", Header_Format)
    xlSheetWriteStr(sheet, riga, 2, "Indirizzo", Header_Format)
    xlSheetWriteStr(sheet, riga, 3, "Città", Header_Format)
    xlSheetWriteStr(sheet, riga, 4, "Stato", Header_Format)
    xlSheetWriteStr(sheet, riga, 5, "C.A.P.", Header_Format)
    xlSheetWriteStr(sheet, riga, 6, "Data nascita", Header_Format)
    xlSheetWriteStr(sheet, riga, 7, "Sposato", Header_Format)
    xlSheetWriteStr(sheet, riga, 8, "Età", Header_Format)
    xlSheetWriteStr(sheet, riga, 9, "Stipendio", Header_Format)

    do while !eof()
        riga ++
        xlSheetWriteStr(sheet, riga, 0, nomi->FIRST, Line_Format)
        xlSheetWriteStr(sheet, riga, 1, nomi->LAST, Line_Format)
        xlSheetWriteStr(sheet, riga, 2, nomi->STREET, Line_Format)
        xlSheetWriteStr(sheet, riga, 3, nomi->CITY, Line_Format)
        xlSheetWriteStr(sheet, riga, 4, nomi->STATE, Line_Format)
        xlSheetWriteStr(sheet, riga, 5, nomi->ZIP, Line_Format)
        xlSheetWriteStr(sheet, riga, 6, dtoc(nomi->HIREDATE), date_format)
        xlSheetWriteBool(sheet, riga, 7, nomi->MARRIED, Line_Format)
        xlSheetWriteNum(sheet, riga, 8, nomi->AGE, num_format1)
        xlSheetWriteNum(sheet, riga, 9, nomi->SALARY, num_format1)
        dbskip()
    enddo
    nomi->(dbclosearea())

    xlSheetWriteFormula(sheet, riga+2, 9, "=SUM(J2:J" + alltrim(str(riga))+")", num_format1)

    xlBookSave(book, "example.xls")
    xlBookRelease(book)
EndIf

msginfo("Finito")
quit


*********************************************************************************
#pragma BEGINDUMP

#include <windows.h>
#include <shlobj.h>
#include "hbapi.h"
#include "hbvm.h"
#include "hbstack.h"
#include "hbapiitm.h"
#include "include\libxl.h"

HB_FUNC( XLCREATEBOOKC )
{
   hb_retni( (int) (BookHandle) xlCreateBookCA() );
}

HB_FUNC( XLBOOKSAVE )
{
   BookHandle handle = (BookHandle) hb_parni(1);
   const char* filename = (const char*) hb_parc(2);

   hb_retl( (int) xlBookSaveA( handle , filename ) != 0 );
}

HB_FUNC( XLBOOKADDSHEET )
{
   BookHandle handle = (BookHandle) hb_parni(1);
   const char* name = (const char*) hb_parc(2);
   SheetHandle initSheet = (SheetHandle) hb_parni(3);

   hb_retni( (int) (SheetHandle) xlBookAddSheetA( handle , name , initSheet ) );
}

HB_FUNC( XLBOOKADDFORMAT )
{
   BookHandle handle = (BookHandle) hb_parni(1);
   FormatHandle initFormat = (FormatHandle) hb_parni(2);

   hb_retni( (int) (FormatHandle) xlBookAddFormatA( handle , initFormat ) );
}

HB_FUNC( XLBOOKADDFONT )
{
   BookHandle handle = (BookHandle) hb_parni(1);
   FontHandle initFont = (FontHandle) hb_parni(2);

   hb_retni( (int) (FontHandle) xlBookAddFontA( handle , initFont ) );
}

HB_FUNC( XLBOOKADDCUSTOMNUMFORMAT )
{
   BookHandle handle = (BookHandle) hb_parni(1);
   const char* customNumFormat = (const char*) hb_parc(2);

   hb_retni( (int) xlBookAddCustomNumFormatA( handle , customNumFormat ) );
}

HB_FUNC( XLBOOKCUSTOMNUMFORMAT )
{
   BookHandle handle = (BookHandle) hb_parptr(1);
   int fmt = (int) hb_parni(2);

   hb_retc( (const char*) xlBookCustomNumFormatA( handle , fmt ) );
}

HB_FUNC( XLFONTSETNAME )
{
   FontHandle handle = (FontHandle) hb_parni(1);
   const char* name = (const char*) hb_parc(2);

   xlFontSetNameA( handle , name );
   hb_retnl(1);
}

HB_FUNC( XLFONTBOLD )
{
   FontHandle handle = (FontHandle) hb_parni(1);

   hb_retni( (int) xlFontBoldA( handle ) );
}

HB_FUNC( XLFONTSETSIZE )
{
   FontHandle handle = (FontHandle) hb_parni(1);
   int size = (int) hb_parni(2);

   xlFontSetSizeA( handle , size );
   hb_retnl(1);
}

HB_FUNC( XLSHEETWRITESTR )
{
   SheetHandle handle = (SheetHandle) hb_parni(1);
   int row = (int) hb_parni(2);
   int col = (int) hb_parni(3);
   const char* value = (const char*) hb_parc(4);
   FormatHandle format = (FormatHandle) hb_parni(5);

   hb_retl( (int) xlSheetWriteStrA( handle , row , col , value , format ) != 0 );
}

HB_FUNC( XLSHEETWRITENUM )
{
   SheetHandle handle = (SheetHandle) hb_parni(1);
   int row = (int) hb_parni(2);
   int col = (int) hb_parni(3);
   double value = (double) hb_parnd(4);
   FormatHandle format = (FormatHandle) hb_parni(5);

   hb_retl( (int) xlSheetWriteNumA( handle , row , col , value , format ) != 0 );
}

HB_FUNC( XLSHEETWRITEBOOL )
{
   SheetHandle handle = (SheetHandle) hb_parni(1);
   int row = (int) hb_parni(2);
   int col = (int) hb_parni(3);
   int value  = (int) hb_parl(4);
   FormatHandle format = (FormatHandle) hb_parptr(5);

   hb_retl( (int) xlSheetWriteBoolA( handle , row , col , value , format ) != 0 );
}

HB_FUNC( XLFORMATSETFONT )
{
   FormatHandle handle = (FormatHandle) hb_parni(1);
   FontHandle fontHandle = (FontHandle) hb_parni(2);

   hb_retni( (int) xlFormatSetFontA( handle , fontHandle ) != 0 );
}

HB_FUNC( XLFORMATSETNUMFORMAT )
{
   FormatHandle handle = (FormatHandle) hb_parni(1);
   int numFormat = (int) hb_parni(2);

   xlFormatSetNumFormatA( handle , numFormat );
   hb_retni(1);
}

HB_FUNC( XLSHEETWRITEFORMULA )
{
   SheetHandle handle = (SheetHandle) hb_parni(1);
   int row = (int) hb_parni(2);
   int col = (int) hb_parni(3);
   const char* value = (const char*) hb_parc(4);
   FormatHandle format = (FormatHandle) hb_parptr(5);

   hb_retl( (int) xlSheetWriteFormulaA( handle , row , col , value , format ) != 0 );
}

HB_FUNC( XLBOOKRELEASE )
{
   BookHandle handle = (BookHandle) hb_parni(1);

   xlBookReleaseA( handle );
   hb_retnl(1);
}

#pragma ENDDUMP

 

[horacio]

Hi Massimo

When compiling with the library I get this error

Code: Select all  Expand view

Error: 'C:\FWH1412\SAMPLES\LIBXL.LIB' contains invalid OMF record, type 0x21 (possibly COFF)
 

I imagine that the compiler BCC should. Is there any library that works with this compiler.

Thank you very much

[Massimo Linossi]

You must use the IMPLIB program to create the lib from the DLL.
implib -a libxl32.lib libxl32.dll

Take a look also here http://www.ntkproject.com/forum_ntk/comments.php?DiscussionID=25

[horacio]

Hi Massimo

I have managed to generate the library, compiles run smoothly but this error

Code: Select all  Expand view

Application Internal Error - C:\libxl\stdcall\belgrano.exe
Terminated at: 2016-10-07 09:22:38
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:00000000
    EAX:006BE704  EBX:00000001  ECX:02025B10  EDX:00000002
    ESI:00478994  EDI:0054A3A0  EBP:0018FDF4
    CS:EIP:0023:00000000  SS:ESP:002B:0018FDE8
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00010212
    Exception Parameters: 00000000 00000000
    CS:EIP:
    SS:ESP: 00000000 00000000 00000000 0018FF08 00472A42 00000002 00000000 00000001 00670F7C 00003170 00671528 00319A3C 006BEA60 00000011 0018FE30 0048F853

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    00000000 0018FDF4   0018FF08 00472A42 00000002 00000000 00000001 00670F7C 00003170 00671528 00319A3C 006BEA60
    00472A42 0018FF08   0018FF30 00401564 0054A348 0054A0A4 00478994 00000000 00000000 00000000 00000000 00000018
    00401564 0018FF30   0018FF44 00471D17 00000000 0054A034 007B2218
    00471D17 0018FF44   0018FF50 004A2D12 00000001
    004A2D12 0018FF50   0018FF80 0054688F 00400000 00000000 007B2218 0000000A 00000000 00000000 7EFDE000 00000000
    0054688F 0018FF80   0018FF94 00000000 0054A034 75BE336A 7EFDE000
    00000000 0018FF94   0018FFD4 772A9882 7EFDE000 77345C48 00000000 00000000 7EFDE000 00000000 00000000 00000000
    772A9882 0018FFD4   0018FFEC 772A9855 004013E4 7EFDE000 00000000 00000000


Modules:
00400000 002E6000 C:\libxl\stdcall\belgrano.exe
77270000 00180000 C:\Windows\SysWOW64\ntdll.dll
75BD0000 00110000 C:\Windows\syswow64\kernel32.dll
76E20000 00047000 C:\Windows\syswow64\KERNELBASE.dll
10000000 0064F000 C:\libxl\stdcall\LIBXL.DLL
74CE0000 00090000 C:\Windows\syswow64\GDI32.dll
76CC0000 00100000 C:\Windows\syswow64\USER32.dll
758D0000 000A1000 C:\Windows\syswow64\ADVAPI32.dll
75A10000 000AC000 C:\Windows\syswow64\msvcrt.dll
74D70000 00019000 C:\Windows\SysWOW64\sechost.dll
769E0000 000F0000 C:\Windows\syswow64\RPCRT4.dll
74BE0000 00060000 C:\Windows\syswow64\SspiCli.dll
74BD0000 0000C000 C:\Windows\syswow64\CRYPTBASE.dll
769C0000 0000A000 C:\Windows\syswow64\LPK.dll
74C40000 0009D000 C:\Windows\syswow64\USP10.dll
75D70000 00C4B000 C:\Windows\syswow64\SHELL32.dll
74DC0000 00057000 C:\Windows\syswow64\SHLWAPI.dll
73FE0000 00009000 C:\Windows\system32\VERSION.DLL
70B20000 00051000 C:\Windows\system32\WINSPOOL.DRV
70FD0000 00084000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.7601.18837_none_ec86b8d6858ec0bc\COMCTL32.DLL
75010000 0007B000 C:\Windows\syswow64\COMDLG32.DLL
70400000 00005000 C:\Windows\system32\MSIMG32.DLL
75680000 0015C000 C:\Windows\syswow64\OLE32.DLL
757E0000 0008F000 C:\Windows\syswow64\OLEAUT32.DLL
71B10000 0001C000 C:\Windows\system32\OLEDLG.DLL
76DC0000 00060000 C:\Windows\system32\IMM32.DLL
755B0000 000CC000 C:\Windows\syswow64\MSCTF.dll

Called from XLBOOKADDFONT(0)
Called from MAIN(24) in belgrano.prg
------------------------------------------------------------------------
Application Internal Error - C:\libxl\stdcall\belgrano.exe
Terminated at: 2016-10-07 09:22:41
Unrecoverable error 6005: Exception error:

    Exception Code:C0000005 ACCESS_VIOLATION
    Exception Address:00000000
    EAX:006BE704  EBX:00000001  ECX:02025B10  EDX:00000002
    ESI:00478994  EDI:0054A3A0  EBP:0018FDF4
    CS:EIP:0023:00000000  SS:ESP:002B:0018FDE8
    DS:002B  ES:002B  FS:0053  GS:002B
    Flags:00010212
    Exception Parameters: 00000000 00000000
    CS:EIP:
    SS:ESP: 00000000 00000000 00000000 0018FF08 00472A42 00000002 00000000 00000001 00670F7C 00003170 00671528 00319A3C 006BEA60 00000011 0018FE30 0048F853

    C stack:
    EIP:     EBP:       Frame: OldEBP, RetAddr, Params...
    00000000 0018FDF4   0018FF08 00472A42 00000002 00000000 00000001 00670F7C 00003170 00671528 00319A3C 006BEA60
    00472A42 0018FF08   0018FF30 00401564 0054A348 0054A0A4 00478994 00000000 00000000 00000000 00000000 00000018
    00401564 0018FF30   0018FF44 00471D17 00000000 0054A034 007B2218
    00471D17 0018FF44   0018FF50 004A2D12 00000001
    004A2D12 0018FF50   0018FF80 0054688F 00400000 00000000 007B2218 0000000A 00000000 00000000 7EFDE000 00000000
    0054688F 0018FF80   0018FF94 00000000 0054A034 75BE336A 7EFDE000
    00000000 0018FF94   0018FFD4 772A9882 7EFDE000 77345C48 00000000 00000000 7EFDE000 C0000005 75C076E7 75C076E7
    772A9882 0018FFD4   0018FFEC 772A9855 004013E4 7EFDE000 00000000 00000000


Modules:
00400000 002E6000 C:\libxl\stdcall\belgrano.exe
77270000 00180000 C:\Windows\SysWOW64\ntdll.dll
75BD0000 00110000 C:\Windows\syswow64\kernel32.dll
76E20000 00047000 C:\Windows\syswow64\KERNELBASE.dll
10000000 0064F000 C:\libxl\stdcall\LIBXL.DLL
74CE0000 00090000 C:\Windows\syswow64\GDI32.dll
76CC0000 00100000 C:\Windows\syswow64\USER32.dll
758D0000 000A1000 C:\Windows\syswow64\ADVAPI32.dll
75A10000 000AC000 C:\Windows\syswow64\msvcrt.dll
74D70000 00019000 C:\Windows\SysWOW64\sechost.dll
769E0000 000F0000 C:\Windows\syswow64\RPCRT4.dll
74BE0000 00060000 C:\Windows\syswow64\SspiCli.dll
74BD0000 0000C000 C:\Windows\syswow64\CRYPTBASE.dll
769C0000 0000A000 C:\Windows\syswow64\LPK.dll
74C40000 0009D000 C:\Windows\syswow64\USP10.dll
75D70000 00C4B000 C:\Windows\syswow64\SHELL32.dll
74DC0000 00057000 C:\Windows\syswow64\SHLWAPI.dll
73FE0000 00009000 C:\Windows\system32\VERSION.DLL
70B20000 00051000 C:\Windows\system32\WINSPOOL.DRV
70FD0000 00084000 C:\Windows\WinSxS\x86_microsoft.windows.common-controls_6595b64144ccf1df_5.82.7601.18837_none_ec86b8d6858ec0bc\COMCTL32.DLL
75010000 0007B000 C:\Windows\syswow64\COMDLG32.DLL
70400000 00005000 C:\Windows\system32\MSIMG32.DLL
75680000 0015C000 C:\Windows\syswow64\OLE32.DLL
757E0000 0008F000 C:\Windows\syswow64\OLEAUT32.DLL
71B10000 0001C000 C:\Windows\system32\OLEDLG.DLL
76DC0000 00060000 C:\Windows\system32\IMM32.DLL
755B0000 000CC000 C:\Windows\syswow64\MSCTF.dll

Called from XLBOOKADDFONT(0)
Called from MAIN(24) in belgrano.prg
------------------------------------------------------------------------
 

Regards

[Massimo Linossi]

Sorry, I don't know what could be.
I use the Xharbour.com compiler.