Bonjour,
je suis en train de faire une DLL qui sera utilisée en DarkBasic pour piloter un fichier Excel dans un programme 3D.
Mais j'ai de gros problème à la compilation et plus j'en resout et plus y'en a...
Donc voici mon code entier :

le .cpp :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
//---------------------------------------------------------------------------
#include <utilcls.h>
#include <windows.h>
#include "Unit1.h"
 
#pragma argsused
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
        return 1;
}
 
Unit1::Unit1()
{
}
 
void __declspec (dllexport) Unit1::openExcel()
{
    vMSExcel = Variant::CreateObject("Excel.Application");
    vMSExcel.OlePropertySet("Visible", false);
}
 
void __declspec (dllexport) Unit1::closeExcel()
{
    vMSExcel.OleFunction("Quit");
    vMSExcel = 0;
}
 
void __declspec (dllexport) Unit1::openFile(char *nomFichier)
{
    vFileName = nomFichier;
    vXLWorkbooks = vMSExcel.OlePropertyGet("Workbooks");
    vXLWorkbook = vXLWorkbooks.OleFunction("Open", vFileName);
}
 
void __declspec (dllexport) Unit1::closeFile()
{
 
 
    vSaveChanges = true;
    vXLWorkbook.OleFunction("Close", vSaveChanges, vFileName);
}
 
void __declspec (dllexport) Unit1::openFeuille(char *feuilleName)
{
    vSheetName = feuilleName;
    vWorksheet = vXLWorkbook.OlePropertyGet("Worksheets",vSheetName);
}
 
AnsiString __declspec (dllexport) Unit1::getValueCell(char *cellName)
{
    vRange = cellName;
    vCell = vWorksheet.OlePropertyGet("Range", vRange);
    aValue = vCell.OlePropertyGet("Value");
 
    return (aValue);
}
//---------------------------------------------------------------------------
et le .h

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
#include <system.hpp>
#include <utilcls.h>
#include <windows.h>
#ifdef __DLL__
#define IMPORT_EXPORT __declspec(dllexport)
#else
#define IMPORT_EXPORT __declspec(dllimport)
#endif
 
 
IMPORT_EXPORT class Unit1 {
    public:
        int N1, N2, Result;
        Variant vMSExcel, vFileName, vXLWorkbooks, vXLWorkbook, vSaveChanges, vWorksheet, vSheetName, vValue, vRange, vCell;
        AnsiString aValue;
        Unit1();
        void __declspec (dllexport) openExcel();
        void __declspec (dllexport) closeExcel();
        void __declspec (dllexport) openFile(char *nomFichier);
        void __declspec (dllexport) closeFile();
        void __declspec (dllexport) openFeuille(char *feuilleName);
        AnsiString __declspec (dllexport) getValueCell(char *cellName);
};
et voici les erreurs qu'il me trouve :


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
[C++ Error] utilcls.h(3390): E2451 Undefined symbol 'Count'
[C++ Error] sysvari.h(2669): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(2669): E2449 Size of 'args' is unknown or zero
[C++ Error] sysvari.h(2669): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(1950): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(1950): E2449 Size of 'args' is unknown or zero
[C++ Error] sysvari.h(1950): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(1951): E2015 Ambiguity between 'TVariantT<tagVARIANT>::operator =(TVariantT<tagVARIANT>)' and 'TVariantT<tagVARIANT>::operator =(tagVARIANT *)'
[C++ Error] utilcls.h(3390): E2451 Undefined symbol 'Count'
[C++ Error] sysvari.h(1958): E2450 Undefined structure 'TAutoArgs<2>'
[C++ Error] sysvari.h(1958): E2449 Size of 'args' is unknown or zero
[C++ Error] sysvari.h(1958): E2450 Undefined structure 'TAutoArgs<2>'
[C++ Error] sysvari.h(1959): E2015 Ambiguity between 'TVariantT<tagVARIANT>::operator =(TVariantT<tagVARIANT>)' and 'TVariantT<tagVARIANT>::operator =(tagVARIANT *)'
[C++ Error] sysvari.h(1959): E2015 Ambiguity between 'TVariantT<tagVARIANT>::operator =(TVariantT<tagVARIANT>)' and 'TVariantT<tagVARIANT>::operator =(tagVARIANT *)'
[C++ Error] sysvari.h(2562): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(2562): E2449 Size of 'args' is unknown or zero
[C++ Error] sysvari.h(2562): E2450 Undefined structure 'TAutoArgs<1>'
[C++ Error] sysvari.h(2563): E2015 Ambiguity between 'TVariantT<tagVARIANT>::operator =(TVariantT<tagVARIANT>)' and 'TVariantT<tagVARIANT>::operator =(tagVARIANT *)'
Ca fait vraiment longtemps que je galère dessus donc si quelqu'un a une solution ca serai vraiment sympa.

C'est a cause du type Variant qu'il y'a des problème, peut-être qu'il ne peut pas être utilisé en global? Je ne sais pas vraiment, je suis pas un pro du C++ et je sais encore moins faire des DLL proprement...

Merci d'avance pour votre aide, j'attend votre réponse avec impatience