|
很多人都知道callback是.net里的回调机制，也知道使用callback技术能增加用户体验，对于我们做server开发的人来说，理解callback更是一个必要条件。可是对于一个新手来说，想要理解并能很好的把callback机制用到自己的程序中还是有一定困难的。我也是一个新手，虽然以前用asp.net写过网站，但是当时也是边学边做，可是对于callback就是很朦胧，所以我的第一个网站没有使用任何的callback。而我接触ArcGIS Server也不过短短20天。随着学习的深入，发现必须得弄懂callback。今天我花了一天时间终于理解透彻了。
晚上在论坛上看见“高手帮我看看关于CALLBACK的问题（贴有源码）”这个帖子，于是点进去看了。在和楼主交谈后才知道lz和我一样，也是一个新手，对callback还很模糊。于是我由以自己的理解给他讲了一遍。我发现了一个问题，就是网上对callback的讲解基本都是只说这么实现ICallbackEventHandler，而对于客户端的js代码中到底怎么触发了回调，函数中的值又是以怎么样的一种方式和格式传回服务器端，而服务器端的代码又是怎么处理的，说得很少。而且在我研究过程中，发现esri社区上关于这个的帖子也很少。现在把我给他讲解的内容整理如下，希望给我和一样的新手解释清楚callback到底怎么使用。 首先，执行callback的类要实现ICallbackEventHandler。这个类有两个函数需要我们实现： public string GetCallbackResult( )和public void RaiseCallbackEvent(string eventArgument)。 其中：RaiseCallbackEvent(string eventArgument)中的eventArgument是客户端传到服务器上的变量。 先来看看客户端的js代码：
这个就是执行回调的js函数，<%= %>这个是预编译句子。就是说，这里面的东西会在服务器端执行。 <%=usecallback%>，而我这里面是usecallback，这在服务器端的声明是这样的：public string usecallback; 然后在Page_Load事件中： usecallback = Page.ClientScript.GetCallbackEventReference(this, "strcallback", "showresult", null, true); 这句话是必须的，GetCallbackEventReference(this, " strcallback ", "showresult", null, true);这个函数名的就说明这函数的意思，你可以理解为：注册回调。 该函数里面的参数“strcallback”也就是RaiseCallbackEvent(string eventArgument)函数中的eventArgument的值！而strcallback也就是js代码中能触发回调的changelayer()函数中声明的strcallback变量。这个strcallback的值，通过GetCallbackEventReference(this, "strcallback", "showresult", null, true)函数就传到了RaiseCallbackEvent(string eventArgument)中的eventArgument里面。那么，服务器端就得到了从客户端传来的值了：strcallback，也就是eventArgumen。回调也就完成了一半了，这时我们通过eventArgumen 也就能知道服务器传了什么参数过来，我们要在服务器端怎么处理。 只要你的js函数里面有<%=usecallback%>，其实也可以写成 <%=ClientScript.GetCallbackEventReference(this, "strcallback", "showresult", null, true)%>，写成这样的话，在Page_Load函数里面就不需要再用了。 就说明这个js函数要执行回调。 同样，处理完之后，我们就要把处理完的信息传回给客户端啊，这时public string GetCallbackResult( )函数就派上用场了。 操作得到的结果就通过 public string GetCallbackResult() { return “你操作得到的结果”; } 返回到js端的showresult函数中。 再看看这个函数：GetCallbackEventReference(this, "strcallback", "showresult", null, true ); "strcallback"是要开始执行回调的js函数，showresult是服务器完成回调后把 public string GetCallbackResult() { return “你操作得到的结果”; } 中的 return “你操作得到的结果”的“你操作得到的结果”这个字符串所返回到的js的函数中，在这里也就是showresult( )函数： 我们可以写： function showresult(rValue) { window.alert(rValue); } 那么这时在浏览器就会弹出对话框，内容是"你操作得到的结果"。可知，GetCallbackResult()函数返回的string也就到了showresult（）中的rvalue中了。
整理一下： GetCallbackEventReference(this, "strcallback", "showresult", null, true );函数是整个回调机制中的桥梁，里面参数的意思我就不说了，网上多的是。 我们理一下刚刚的这个简单的回调： (1)客户端function changelayer()引发回调，同时把strcallback中的“回调”传给了服务器。 (2)服务器端RaiseCallbackEvent(string eventArgument)函数得到strcallback值，保存在eventArgument中。 (3)利用eventArgument开始处理 (4)处理好后交给public string GetCallbackResult( )，由它把处理结果返回客户端。我们上面没有处理，所以我就返回了“你操作得到的结果”这个字符串。这个字符串就传回了客户端。 (5)客户端函数function showresult(rValue)中的rValue得到了这个字符串，所以就在浏览器弹出了消息框：你操作得到的结果。 Ok整个过程完成了，其实非常简单，只要理解好就行了，同时注意客户端和服务器端之间传递的只是string类型的值！ 下面还附加了一个我做的很简单的callback的程序，上面的注释很详细，希望对大家有用。理解了callback机制，对于CallbackResult类的使用就很快就上手了，这个看看帮助里面的例子就能理解了。
如何控制其他程序窗体上的窗口控件：上
首先申明:我是菜鸟,我只不过想把困绕了我很长时间的问题的解决方案发表出来，免得以后我又忘记,同时给还不知道这些小知识的同僚一些帮助。各位不要笑我的浅薄。同时为了表示我的低级，我会很罗嗦的讲一些基本的东西，这些都是我的理解,很不准确。 用我的方法来控制其他程序窗体上的窗口控件，必须先了解什么是回调函数。我的理解是这样的： 回调函数写出来不是自己的程序去调用的，反而是让其他的东西去调用，比如windows操作系统，比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型，你向调用者提供你的回调函数的入口地址，然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用这个函数通知你，并按照预先规定好的形式传递参数。所以很多人打比方，说回调函数还真有点像您随身带的BP机：告诉别人号码，在它有事情时Call您！ 所以一个回调函数写出来之后，一定有个注册的动作，就是告诉调用者，你怎么样找到我写的函数。某些Windows API 函数会要求以回调函数地址作为其参数之一，例如SetTimer 、LineDDA 、EnumObjects，以及我们下面要用到的EnumWindows。 在Delphi里声明一个回调函数的格式很简单，例如： function EnumWindowsProc(AhWnd:LongInt;lParam:LongInt):boolean;stdcall; 首先是函数名称可以随便乱取，但函数参数的类型一般不得乱来，其顺序，数据类型等都有规定的，因为这些都是让其他程序调用的，他们已经规定好了的，但参数名称可以随便乱叫。注意后面一定要带上“stdcall”， stdcall是标准调用,也就是说采用标准windows参数传递方式来调用函数。 编写函数体就很简单了，利用传递过来的参数就可以了，只要记住，这些参数是别人送给你的，你只要知道这些参数代表了什么意思。 再看个向调用者注册回调函数入口地址的函数。 function EnumWindows(lpEnumFunc: TFNWndEnumProc; lParam: LPARAM): BOOL; stdcall; TFNWndEnumProc其实就是指针类型。其中的lpEnumFunc就是回调函数的入口地址了。 下面是调用EnumWindows的格式： EnumWindows(@EnumWindowsProc,0); 通过向系统注册回调函数的入口地址，系统就能在需要的时候，调用回调函数，传递参数给它，也许这些参数就是我们想要的。 EnumWindows函数的功能是：枚举屏幕上所有程序中的顶层窗口，将窗口句柄以参数的形式传递给回调函数。找到一个窗口，就调用一次回调函数。枚举结束的条件是：要么枚举完所有的窗口，要么回调函数返回False。 lParam: LPARAM参数是程序定义的值，这个值被传递到回调函数。 回过头来再看一下EnumWindowsProc： function EnumWindowsProc(AhWnd:LongInt;lParam:LongInt):boolean;stdcall; 当系统找到了一个窗口后，就开始调用这个回调函数，将窗口的句柄作为第一个参数传递过来，将在EnumWindows中lParam: LPARAM这个程序定义的值作为第二个参数传递过来。 所以我们可以在EnumWindowsProc函数中利用传递过来的两个参数来做某些处理了。 下面我们新建一个程序列举系统中所有程序的顶层窗口，我们要得到窗口的标题，要得到窗口类名称。 得到窗口标题用： function GetWindowText(hWnd: HWND; lpString: PChar; nMaxCount: Integer): Integer; stdcall; 该函数功能是将窗口句柄为hWnd的窗口的标题拷入到一个缓冲区lpString。nMaxCount是拷入缓冲区内的最大的字符数。 要得到窗口标题还可以发送消息：WM_GETTEXT，其实GetWindowText就是发送WM_GETTEXT消息的。 要得到窗口类名称用： function GetClassName(hWnd: HWND; lpClassName: PChar; nMaxCount: Integer): Integer; stdcall; 其参数意义和上面的函数差不多。不详细解释了。 我们先编写回调函数：EnumWindowsProc。现在告诉自己，我们已经有了两个参数的值了。这两个参数是系统给我们的. 为了显示窗口标题和类名，我们用一个TMemo控件。 先在interface部分声明函数。 function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall; 注意我将第二个参数改了，不要紧，到时候调用的时候注意看。 然后在implementation部分定义函数： function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean; var lpszClassName,lpszWindowText:array[0..254] of char; //定义两个缓冲区。 begin GetWindowText(AhWnd,lpszWindowText,254); //得到窗口标题 GetClassName(AhWnd,lpszClassName,254); //得到窗口类名。 Aform.memo1.lines.add(StrPas(lpszWindowText)); Aform.memo1.lines.add(StrPas(lpszClassName)); Aform.memo1.lines.add('--------------------'); Result:=True; end; 接着需要做的就是调用EnumWindows函数，注册回调函数入口地址，让系统调用回调函数，列举窗口了。所以再添加一个TButton: btn_listwindow procedure TForm1.btn_listwindowClick(Sender: TObject); begin EnumWindows(@EnumWindowsProc,LongInt(self)); end; 程序清单如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Memo1: TMemo; btn_listwindow: TButton; procedure btn_listwindowClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean;stdcall; implementation {$R *.dfm} function EnumWindowsProc(AhWnd:LongInt;AForm:TForm1):boolean; var lpszClassName,lpszWindowText:array[0..254] of char; begin GetWindowText(AhWnd,lpszWindowText,254); GetClassName(AhWnd,lpszClassName,254); Aform.memo1.lines.add(StrPas(lpszWindowText)); Aform.memo1.lines.add(StrPas(lpszClassName)); Aform.memo1.lines.add('--------------------'); Result:=True; end; procedure TForm1.btn_listwindowClick(Sender: TObject); begin EnumWindows(@EnumWindowsProc,LongInt(self)); end; end. F9，运行，看看结果。最好是F7单步跟踪调试一下，看看回调函数是怎么被调用的。 |
|
|
