Problème avec le type variant [FAQ]

**fabrice001** · 20/12/2005, 18h48

Bonjour j’aimerais savoir si quelqu’un aurait connaissance d’un problème avec le type variant sous borland c++ 6.0
Mon code fonctionne très bien sous l’ide mais dès que je lance l’exe en dehors de l’ide la mémoire est corrompue, et les variable locale sont écrasées , pourtant lorsque je trace pas à pas rien n'indique un dépassement de mémoire ????

Soit je fais une bétise soit c’est un bug sous borland ?

Merci de votre aide

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
// Variant   vMsExcel = Variant::CreateObject("Excel.Application");
// un peu plus haut dans le code
 
void __fastcall TExcelAppl::BuildExcell(AnsiString fName,Variant *vMsExcel,int maxCol)
{
 
    AnsiString Filter;
 
    Variant  cCell,
        cRange,
        cValue,
        vXLWorkbooks,
        vXLWorkbook,
        vSheetName,
        vWorkSheet;
 
    vXLWorkbooks =  vMsExcel->OlePropertyGet("Workbooks");
    vMsExcel->OlePropertySet("SheetsInNewWorkbook",(Variant)1);
    vXLWorkbook=vXLWorkbooks.OleFunction("Add");
 
    vXLWorkbook  = vMsExcel->OlePropertyGet("ActiveWorkbook");
    vWorkSheet	 = vXLWorkbook.OlePropertyGet("ActiveSheet");
 
    PropertyGet    Range("Range");
    PropertySet    SetFormula("Formula");
    Procedure      SaveAs("SaveAs");
    for(myRow=0;myRow<excellGrid->RowCount;myRow++)
    {
        myExcCol = 'A' ;
        for(myCol=0;myCol<maxCol;myCol++)
        {
            Filter=myExcCol;
            Filter += (myRow+1);
            Range.ClearArgs();
            SetFormula.ClearArgs();
            cRange =  vWorkSheet.Exec(Range << Filter);	[b]ici ça écrase mes variable locales quand je ne suis pas dans l'ide….[/b]
            Filter = excellGrid->Cells[myCol][myRow];
            cRange.Exec(SetFormula << Filter);
            myExcCol+=1;
        }
    }
 
    vXLWorkbook = vMsExcel->OlePropertyGet("ActiveWorkbook");
    vXLWorkbook.Exec(SaveAs<<fName);
    vXLWorkbook.OleFunction("Close", false);
 
    cCell=
    cRange=
    cValue=
    vXLWorkbooks=
    vXLWorkbook=
    vSheetName=
    vWorkSheet=false;
}

**totoche76** · 20/12/2005, 19h31

Hello

Curieux, je viens d'essayer ton bout de code, sous l'ide et en dehors, codeguard activé, et ca fonctionne nickel (fichier Excel créé avec le TStringGrid recopié dedans).
La seule modif que j'ai fait, c'est de mettre for(int myCol... et for(int myRow=0...

Tes variables locales sont ecrasées et tu ne récupères rien dans ton fichier Excel, c'est bien ça ?

Le problème vient peut-être d'ailleurs ??

**fabrice001** · 20/12/2005, 22h56

merci pour la réponse

Je précise dans mon exemple j'ai déclaré les variable (myRow,...) en global sinon elle sont écrasée lorsque je les mets en local et ça boucle indéfiniment. Dans ce cas ce sont d'autres variables qui en prennent pour leur grade

Lorsque je compile avec l'option full debug ça fonctionne nickel chez moi aussi et en dehors de l'ide, lorsque je compile en mode Release ça bug en dehors de l'ide

dès lors en cherchant un peu je remarque que c'est dès que je coche pour optimiser le code que ça foire . Dès lors en compilant full release mais sans aucune optimization ça marche

je suis de + en + certain qu'il y a un truc au niveau de borland à ce niveau

**Djob** · 21/12/2005, 10h47

j'ai testé et effectivement c'est bizarre...

peut être peux tu essayer d'englober la partie sensible avec un try/catch:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
     try{
        cRange = vWorkSheet.Exec(Range << Filter);// ici ça écrase mes variable locales quand je ne suis pas dans l'ide….
     }catch(Exception &e){
         ShowMessage(e.Message);
     }