mapbasic高级编程中的一些问题

《mapbasic高级编程中的一些问题》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、在VB6中使用callback我将MapBasic提供的关于如何在VisualBasic中使用CallBack的样例程序，在VB6中打开运行时，VB会报出如下的错误信息：“实吋错课98：一个属性或方法调用不能包含対一个私有対彖的调用，无论是作为参数还是返回值。”Why?Re:这个错误信息完全是由用户的VisualBasic调试环境设置不当造成的，与MapBaic捉供的程序无关。解决如下：由“工程”>“工程属性”进入工程属性对话框，并进行如下的设置。通用：工程类型‘ActiveXEXE；启动对彖SubMain；升级ActiveX控件。生成：

2、删除有关未使用的ActiveX控件的信息部件：启动模式，独立方式。调试：启动工程时等待创建部件。如果用户还未在自己的丁程中建立SubMain,则应当在模块中建立一个SubMain过程。在Delphi中调用callback在用Delphi调用MapBasic的Callback时,Delphi的函数并未被调用.我是用Delphi中的ActiveX作为Callback类，是否能提供关于Callback的Delphi例子."。答：我想你在Delphi屮定义一个包含OLE事件的类后，应该把自己定义的Delphi函数名在这个类程序屮声明一下，作为一个

3、OLE对象(我估计这个断数是你口己的customcommand),再在Delphi应用程序中用mapapplication给这个对彖赋予一个ID号，就可以调用了。我于上有-•段例子，是用mapapplication的setcallback进行调用的，copy给你，希望有所启发：｛以下这个单元用来定义包含OLE事件的类并声明你白己定义的Delphi函数名｝unitMyAuto;interfaceuses01eAuto,forms,windows,controls,messages,sysutiIs,classes;typeTMyAuto=c

4、lass(TAutoObjcct)priveiteFMyProp:string;functionGetMyProp:string;procedureSetMyProp(S:string);publicconstructorCreate;override;automatedprocedurequerytool(s:string);//你自己定义的对象名propertyMyProp:stringreadGetMyPropwriteSetMyProp;end;implementcitionusesDialogs;constructorTMyAu

5、to.Create;begininheritedCreate;end;procedureTMyAuto・SetMyProp(S:string);beginFMyProp:=S;end;procedureTMyAuto.querytool(s:string);beginfgdmain.searchpoint(s);//Delphi程序中调用的函数名end;functionTMyAuto.GetHyProp:string;beginResult:=FMyProp;end;procedureRegisterMyAuto;constAutoCla

6、ssinfo:TAutoClassInfo=(AutoClass:TMyAuto;ProglD:'AUTOPROJ.MyAuto';ClassTD:*(FE67CF61-2EDD-11CF-B536-0080C72EFD43｝*;Description:'Sam;Instancing:aclnternal);beginAutomation.RegisterClass(AutoClassinfo);end;initializationRegistcrMyAuto;end.｛以下是在Delphi应用程序屮调用，因程序太长，我就不全盘copy?

7、｝：procedureTform1・FormCreate(Sender:TObject):varmyautol:tmyauto;mi,miresp:variant;beginmi:=cretiteO1eObject('mcipinfo.cipp1ication，);myautol:-Tmyauto・create;miresp:=myautol.oleobject;mi.do(，setapplicationwindow'+intTostr(handle));mi.setcallback(miresp);//在mbapplication中只有

8、setcallback调用OLE对象mi.do(5CreateButtonpad"Callback"AsToolbuttonID2001Cursor138CallingOLE"QueryToo