mapbasic高级编程中的一些问题.docxVIP

在VB6中使用callback我将MapBasic提供的关于如何在Visual Basic 中使用CallBack的样例程序，在VB6中打开运行时，VB会报出如下的错误信息：“实时错误 98：一个属性或方法调用不能包含对一个私有对象的调用，无论是作为参数还是返回值。” Why?Re:这个错误信息完全是由用户的 VisualBasic 调试环境设置不当造成的，与MapBaic提供的程序无关。解决如下：由 “工程” “工程属性” 进入工程属性对话框，并进行如下的设置。通用：工程类型，ActiveX EXE；启动对象 Sub Main；升级ActiveX 控件。生成：删除有关未使用的ActiveX控件的信息部件：启动模式，独立方式。调试：启动工程时等待创建部件。如果用户还未在自己的工程中建立 Sub Main，则应当在模块中建立一个 Sub Main过程。在 Delphi 中调用 callback在用Delphi调用MapBasic的Callback时,Delphi的函数并未被调用.我是用Delphi中的ActiveX作为Callback类,是否能提供关于Callback的Delphi例子.。答：我想你在Delphi中定义一个包含OLE事件的类后，应该把自己定义的Delphi函数名在这个类程序中声明一下，作为一个OLE对象（我估计这个函数是你自己的custom command）,再在Delphi应用程序中用map application给这个对象赋予一个ID号，就可以调用了。我手上有一段例子，是用map application的setcallback进行调用的，copy给你，希望有所启发:{以下这个单元用来定义包含OLE事件的类并声明你自己定义的Delphi函数名}unit MyAuto;interfaceuses OleAuto,forms,windows,controls,messages,sysutils,classes;typeTMyAuto = class(TAutoObject)privateFMyProp: string;function GetMyProp: string;procedure SetMyProp(S: string);publicconstructor Create; override;automatedprocedure querytool(s:string); // 你自己定义的对象名property MyProp: string read GetMyProp write SetMyProp;end;implementationusesDialogs;constructor TMyAuto.Create;begininherited Create;end;procedure TMyAuto.SetMyProp(S: string);beginFMyProp := S;end;procedure TMyAuto.querytool(s:string);beginfgdmain.searchpoint(s); //Delphi程序中调用的函数名end;function TMyAuto.GetMyProp: string;beginResult := FMyProp;end;procedure RegisterMyAuto;constAutoClassInfo: TAutoClassInfo = (AutoClass: TMyAuto;ProgID: AUTOPROJ.MyAuto;ClassID: {FE67CF61-2EDD-11CF-B536-0080C72EFD43};Description: Sam;Instancing: acInternal);beginAutomation.RegisterClass(AutoClassInfo);end;initializationRegisterMyAuto;end.{以下是在Delphi应用程序中调用，因程序太长，我就不全盘copy了}：procedure Tform1.FormCreate(Sender: TObject);var myauto1:tmyauto; mi,miresp:variant;beginmi:=createOleObject(mapinfo.application);myauto1:=Tmyauto.create;miresp:=myauto1.oleobject;mi.do(set application window + intTostr(handle));mi.setcallback (miresp); //在mbapplication中只有setcallback调用OLE对象mi.do(Create Buttonp