Hi Wilfried,
I am using my MapPoint Activex with Windev 9. May be the problem comes from that language. I've sent the message error to the Windev-Support. I hope they will give me a solution. Otherwise I will try
with VB6.
I've translated your test code as following, and I have the same stack overflow error at the same moment ( num = 4312 ):
Code:
n, num, nbrecords sont des entiers
ObjRecords, ObjDatSet, ObjMap, ObjLoc, ObjPin sont des objet Automation dynamique
cMagasin est une chaîne = ""
ObjMap = MapPointControl1>>activemap
ObjLoc = ObjMap>>GetLocation(50, 4, 1)
TANTQUE n < 8000
n++
Trace(n)
ObjMap>>AddPushpin(ObjLoc, NumériqueVersChaine(n));
FIN
ObjRecords = ObjMap>>DataSets>>item(1)>>Queryallrecords
nbrecords = ObjRecords>>Parent>>RecordCount
Info(nbrecords)
num = 0
ObjRecords>>MoveFirst
TANTQUE ObjRecords>>EOF = Faux
num++
ObjPin = ObjRecords>>PushPin
cMagasin = Majuscule(ObjPin>>Name)
// Here error when Num = 4312
Trace(num,cMagasin)
ObjRecords>>MoveNext
FIN
The error is :
"Votre code a provoqué un dépassement de la pile"
Thanks again for your help.
Mohamed