Problème avec le type variant

Version imprimable

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:

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;
}

20/12/2005, 18h31
totoche76

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 ??
20/12/2005, 21h56
fabrice001

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

:?

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

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

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); }

21/12/2005, 10h18
fabrice001

j'ai trouvé je pense que c'est résolu

en fait ceci ne marche pas avec code optimisé

Citation:

cRange = vWorkSheet.Exec(Range << Filter);

j'ai revu tout mon code et j'ai enlevé toute mes procédures et j'ai opté pour une solution du genre

Citation:

cCell = vWorkSheet.OlePropertyGet("Range", StringToOleStr(Filter));

ma conclusion est qu'il ne faut pas utiliser avec des ansistring vers un ole

merci pour les réponse