help!help!...关于MapX的问题(50分)

各位大虾，哪位用过MapX，请帮帮小弟；在此先谢了。

程序代码如下：

procedure Form1.OKButtonClick(Sender: TObject);
var path, fileName : String;
empty: Variant;
begin
try
path := pathEdit.Text;
fileName := nameEdit.Text;
Map1.Layers.CreateLayer(fileName,path + '/' + fileName, 1, empty, empty);
except on E:Exception Do showMessage('File Creation Failed...');
end;
end;

点击按钮程序执行，总是出现‘CoordSys 对象无效’；请问何解？？？？

我也遇到了同样的问题！
请看下面MapX4.01 delphi例子：
procedure TMDIChild.FormActivate(Sender: TObject);
var
unusedVt: OleVariant;
MyFont: TFont;
begin
TVarData(unusedVt).vType := varError;
//TVarData(unusedVt).vError := DISP_E_PARAMNOTFOUND;
// Add car layer and make it an animation layer
lyrMyLayer := Map1.Layers.CreateLayer('Cars', unusedVt,
1,unusedVt,unusedVt);
Map1.Layers.AnimationLayer := Map1.Layers.Item(lyrMyLayer.name);

// Create custom tool to be used to plot vehicles
Map1.CreateCustomTool(PLOT_VEHICLE_TOOL, miToolTypePoint,
miSizeCursor, miSizeCursor, unusedVt);

MyFont := TFont.Create;
OleFontToFont(Map1.DefaultStyle.SymbolFont, MyFont);
MyFont.Size := 24;
MyFont.Name := 'MapInfo Transportation';
Map1.DefaultStyle.SymbolCharacter := 66;
end;

接受答案了.

本人一直在寻找盗版的MAPX不知那位大侠可以帮忙 zbli@263.net

本人一直在寻找盗版的MAPX不知那位大侠可以帮忙 ecfan1@371.net

不知哪里能下载到DELPHI下的MAPX插件？

在Google上搜索一下就能找到的。