Bonjour

Je dispose d'une appli écrite avec delphi 7.Nous envisageons de changer
le visualisateur carto pour ArcGis engine 10.

ArcGis Engine ne fournit pas à proprement parlé de sdk delphi mais un sdk .net.

J'ai tenté sans succès d'importer un assembly Arcgis sans succès ; j'ai depuis
trouvé la possibilité d'importer un activeX (il existe un composant com dans
le sdk arcgis). L'import fonctionne mais impossible d'avoir une carte dans
ma fenêtre. L'ajout d'un TMapControl dans une fenetre provoque un "ClassFactory
ne peut fournir la classe demandée :
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
[500BDB00]{rtl150.bpl  } ComObj.OleError (Line 1457, "ComObj.pas" + 1) + $11
[500BDB0F]{rtl150.bpl  } ComObj.OleCheck (Line 1464, "ComObj.pas" + 0) + $7
[50387486]{vcl150.bpl  } OleCtrls.LicenseCheck (Line 817, "OleCtrls.pas" + 3) + $0
[50387599]{vcl150.bpl  } OleCtrls.TOleControl.CreateInstance (Line 830, "OleCtrls.pas" + 10) + $39
[50386A8D]{vcl150.bpl  } OleCtrls.TOleControl.Create (Line 596, "OleCtrls.pas" + 23) + $2
[21B9B4C7]{delphicoreide150.bpl} CompPalMgr.TComponentPalettePageItemDelegate.CreateComponent (Line 2564, "CompPalMgr.pas" + 2) + $7
[21079D8A]{designide150.bpl} ComponentDesigner.TComponentRoot.DoCreateComponent (Line 2322, "ComponentDesigner.pas" + 10) + $17
[21082FBE]{designide150.bpl} ComponentDesigner.TComponentRoot.CreateComponentPos (Line 5871, "ComponentDesigner.pas" + 26) + $22
[51B21CC6]{vcldesigner150.bpl} VCLSurface.TVCLDesignerOleDropTarget.DropComponentStream (Line 5045, "VCLSurface.pas" + 17) + $25
[51B2141D]{vcldesigner150.bpl} VCLSurface.TVCLDesignerOleDropTarget.Drop (Line 4868, "VCLSurface.pas" + 7) + $17
[20AA7B05]{coreide150.bpl} ToolFrm.TToolForm.BeginOleDrag (Line 2137, "ToolFrm.pas" + 46) + $1F
[20AA77DA]{coreide150.bpl} ToolFrm.TToolForm.BeginOleDrag (Line 2069, "ToolFrm.pas" + 3) + $C
[20AA7C85]{coreide150.bpl} ToolFrm.TToolForm.PaletteBeginDrag (Line 2167, "ToolFrm.pas" + 0) + $9
[211E14FA]{vclide150.bpl} IDECategoryButtons.TIDECategoryButtons.DoBeginDrag (Line 103, "IDECategoryButtons.pas" + 3) + $A
[503AB636]{vcl150.bpl  } CategoryButtons.TCategoryButtons.MouseMove (Line 1874, "CategoryButtons.pas" + 24) + $9
[5003A480]{rtl150.bpl  } System.@CallDynaInst (Line 11595, "System.pas" + 3) + $0
[5027E892]{vcl150.bpl  } Controls.TControl.WMMouseMove (Line 7306, "Controls.pas" + 8) + $22
[5003A52B]{rtl150.bpl  } System.TObject.Dispatch (Line 11813, "System.pas" + 11) + $0
[5027DF6C]{vcl150.bpl  } Controls.TControl.WndProc (Line 7074, "Controls.pas" + 91) + $6
[502820C3]{vcl150.bpl  } Controls.TWinControl.IsControlMouseMsg (Line 9608, "Controls.pas" + 1) + $9
[50278AA6]{vcl150.bpl  } Controls.FindControl (Line 3378, "Controls.pas" + 6) + $9
[50282830]{vcl150.bpl  } Controls.TWinControl.WndProc (Line 9831, "Controls.pas" + 144) + $6
[503AD05F]{vcl150.bpl  } CategoryButtons.TCategoryButtons.WndProc (Line 2822, "CategoryButtons.pas" + 24) + $4
[50281ED0]{vcl150.bpl  } Controls.TWinControl.MainWndProc (Line 9552, "Controls.pas" + 3) + $6
[500AFA64]{rtl150.bpl  } Classes.StdWndProc (Line 13491, "Classes.pas" + 8) + $0
[20AA57CC]{coreide150.bpl} ToolFrm.TToolForm.PaletteHook (Line 1103, "ToolFrm.pas" + 14) + $12
[500AFA64]{rtl150.bpl  } Classes.StdWndProc (Line 13491, "Classes.pas" + 8) + $0
[50358AF7]{vcl150.bpl  } Forms.TApplication.ProcessMessage (Line 9760, "Forms.pas" + 23) + $1
[50358B3A]{vcl150.bpl  } Forms.TApplication.HandleMessage (Line 9790, "Forms.pas" + 1) + $4
[50358E65]{vcl150.bpl  } Forms.TApplication.Run (Line 9927, "Forms.pas" + 26) + $3
Quelqu'un a déjà tenté cette opération ?

Merci
Julien