这篇文章介绍两个技术

• 在应用程序中实现自定义字段
• 创建自己的生成器

从XSource中淘金3.rar

1. 在VFP中显示视频
2. 在vfp中显示进度条
3. 创建outlook风格的工具箱

从XSource中淘金2.rar

希望大家喜欢

继续搜集中

一、涉及数据库：

VFP随产品提供了大部分“Xbase”工具的源码，包括类浏览器，代码引用，工具栏，和任务面板。查看由VFP高手写的代码常常可以使我们洞察新的、力量强大的代码技术。在这篇文章里，这个系列的第一篇文章，Doung Hennig 用Xsource 中的各种文件向你展示可以用在你的应用程序中的很酷的方法和代码。这篇文章中你将学到如何使用资源文件保存自定义设置和如何创建面向对象的快捷菜单。

从xSource中淘金.rar

使用下面的代码可以解决这一问题

LOCAL lnHeight, lnWidth, lnHeightdiff, lnWidthdiff

lnHeight = 480 && 原分辩率下的控件高度
lnWidth = 640 && 原分辩率下的控件宽度
lnHeightdiff = 0 && 保存不同高度的变量
lnWidthdiff = 0 && 保存不同宽度的变量

IF SYSMETRIC(2) <> lnHeight && 如果目前不是运行于 640x480 分辩率下
lnHeightDiff = SYSMETRIC(2) / lnHeight
lnWidthDiff = SYSMETRIC(1) / lnWidth

** 如果是在容器对象(如页框中的页等非表单且具有 ControlsCount 属性的容器)的 Init 事件中, 你需要注
** 释掉以下代码直到 ENDIF 代码行.

This.Height = This.Height * lnHeightDiff
This.Width = This.Width * lnWidthDiff
This.Top = This.Top * lnHeightDiff
This.Left = This.Left * lnHeightDiff

** 遍历各对象, 重新调整和安排它们.

FOR I = 1 TO This.ControlCount
WITH This.Controls(i)
.Height = .Height * lnHeightdiff
.Width = .Width * lnWidthdiff
.Top = .Top * lnHeightdiff
.Left = .Left * lnWidthdiff

** 你也可以在这里修改 FontSize 属性来重调字体
** IF TYPE(".FontSize") # "U"
** && IF 用于确保控件具有 FontSize 属性
** .FontSize = .FontSize * ((.5 * lnWidthdiff) + (.5 * lnHeightdiff))
** ENDIF
** 但是, 一些较高的屏幕分辩率会适当地修改字体外观, 因此在试以上代码前应进行测试.

ENDWITH
ENDFOR
ENDIF

ThisForm.Refresh()

本页内容

	MENUHIT
	MENUHIT 前景光明
	它有什么好处呢？
	MENUCONTEXT
	替换 Project Manager 快捷菜单
	小结

VFP 长期以来提供了挂钩到交互式开发环境 (IDE) 各方面的方式，并且在每个版本中都得到了改善。FoxPro 2.x 允许我们通过更改系统变量（例如，_GENSCRN 和 _GENMENU）所指向的应用程序的名称，来替换某些 Xbase 组件的功能。VFP 3 为我们提供了生成器，它使我们可以自动执行或简化类和窗体的处理。

VFP 6 添加了项目钩子，从而使我们可以在用户在 Project Manager 中执行某些操作（例如，添加或删除文件）时接收事件。智能感知是 VFP 7 中的主要新功能之一，我们可以通过数据驱动的方法轻松地对该功能进行扩展。VFP 8 添加了可自定义的工具箱和其他有用的 IDE 增强功能。

但是，在 VFP 9 中，Microsoft 已经开启了 IDE 的先例。因为报表设计器可引发报告事件，所以我们可以完全更改其对话框的外观和行为。通过新的 ReportListener 基类，我们可以在报表运行时接收事件，并且可以提供许多功能，例如，标签旋转、动态格式化以及自定义呈现对象（如图形）。不久，我们还能够通过对 BINDEVENT() 进行的增强来响应 Windows 事件；该功能在本文撰写之际尚不可用，但是将为我们提供对 Windows OS 事件（包含那些与 VFP IDE 有关且涉及到具有 hWnd 的窗口的事件）的更好访问方式。

但是，本文讨论的重点是挂钩到系统菜单点击（即，当用户从 VFP 系统菜单栏选择项时）和系统快捷菜单（那些通过右键单击各种位置 — 例如，“Properties”窗口或数据库设计器 — 而显示的菜单）中。我将首先分析如何完成该工作，然后给出一些实际的示例。

MENUHIT

要捕获系统菜单点击，需要在智能感知表中用 TYPE = "S"（对于 "script"）、ABBREV = "MENUHIT" 以及要在 DATA memo 字段中执行的代码创建一个脚本记录。（智能感知表由 _FOXCODE 系统变量指示；默认情况下，它是 HOME(7) 目录中的 FOXCODE.DBF。）该代码应当接受一个对象作为参数。该对象具有几个属性，但是与 MENUHIT 有关的重要属性则显示在表 1 中。

表 1. 传递到 MENUHIT 脚本的参数对象的属性提供了有关菜单点击的信息。
属性	说明
UserTyped	菜单点击所源自的面板的提示。
MenuItem	用户选择的栏的提示。
ValueType	提供给 VFP 的返回值 — 空值意味着继续执行默认行为，而“V”或“L”意味着禁止默认行为（类似于使用类代码中的 NODEFAULT）。

下面是一个简单示例（取自 SimpleMenuHit.PRG，它包含在本月的下载文件中）：

text to lcCode noshow
lparameters toParameter
wait window 'Pad: ' + toParameter.UserTyped + ;
  chr(13) + 'Bar: ' + toParameter.MenuItem
endtext
delete from (_foxcode) where TYPE = 'S' and ;
  ABBREV = 'MENUHIT'
insert into (_foxcode) ;
    (TYPE, ABBREV, DATA) ;
  values ;
    ('S', 'MENUHIT', lcCode)

上述代码只是显示所选菜单项的面板提示和栏提示，然后继续执行该项的默认行为。这对于测试很适用，但是在“实际的”代码中，您可能希望禁用默认行为，并将其替换为您自己的行为。在这种情况下，请将参数对象的 ValueType 属性设置为“V”或“L”。（如果您想知道为什么有两个可能的值，这是因为这些值由智能感知管理器用于其他目的，并且 VFP 团队决定对 MENUHIT 使用相同的机制。您具体使用哪一个值并没有什么关系。）

下面这个示例取自 DisableExit.PRG，它禁用了“File”菜单中的“Exit”功能（您也许可以使用它来对某位同事开一个愚人节玩笑）：

text to lcCode noshow
lparameters toParameter
if toParameter.UserTyped = 'File' and ;
  toParameter.MenuItem = 'Exit'
  toParameter.ValueType = 'V'
endif toParameter.UserTyped = 'File' ...
endtext
delete from (_foxcode) where TYPE = 'S' and ;
  ABBREV = 'MENUHIT'
insert into (_foxcode) ;
    (TYPE, ABBREV, DATA) ;
  values ;
    ('S', 'MENUHIT', lcCode)

尽管这看起来是正确的，但当您从“File”菜单中选择“Exit”时，VFP 无论如何都将退出。经研究发现，除了将 ValueType 设置为“V”或“L”以外，某些函数还要求 MENUHIT 代码返回 .T. 以阻止默认行为。在 ENDIF 语句之前添加 RETURN .T. 可防止“Exit”关闭 VFP。

另一个 MENUHIT 问题如下所述：如果您要使用 VFP 的本地化版本（例如，德语版本），该怎么办呢？在这种情况下，检查“File”和“Exit”时不会正常工作，这是因为它们不是出现在菜单中的提示。如果您要将 MENUHIT 脚本分发给其他 VFP 开发人员，则您必须知道这个问题，或者必须让您的目标受众知道这个问题。

返回页首

MENUHIT 前景光明

尽管我们正在讨论将 MENUHIT 脚本分发给其他人的主题，但如果您具有一个能够出色完成任务的脚本，而其他某个人也具有这样的脚本，并且您希望同时使用这两个脚本，那么该怎么办呢？问题在于只能有一个 MENUHIT 记录（如果存在一个以上的记录，则 VFP 将使用智能感知表中的第一个记录）。因此，我认为更好的做法是让 MENUHIT 记录委托给其他某个对象，而不是直接执行所需的 IDE 自定义。

完成该任务的最简单方式是向智能感知表中添加其他记录，并且让 MENUHIT 记录使用它们来执行实际的任务。尽管可以任意选择，但我觉得带有 TYPE = “M” 的记录应该适合该需要，因为 “M” 代表“菜单”，并且不是该表中当前使用的记录类型。例如，要处理 Exit 功能，可以添加一个带有 TYPE = “M”、ABBREV = “Exit” 的记录，以及要在 DATA 中执行的代码。

要使该方式可行，我们需要一个“标准的”MENUHIT 记录。与该记录对应的代码在表中查找带有 TYPE = “M” 并且将 ABBREV 设置为用户所选栏的提示的记录，如果该记录存在，则在 DATA memo 中执行代码。以下为处理该操作的代码：

lparameters toParameter
local lnSelect, ;
  lcCode, ;
  llReturn
try
  lnSelect = select()
  select 0
  use (_foxcode) again shared order 1
  if seek('M' + padr(upper(toParameter.MenuItem), ;
    len(ABBREV)))
    lcCode = DATA
  endif seek('M' ...
  use
  select (lnSelect)
  if not empty(lcCode)
    llReturn = execscript(lcCode, toParameter)
    if llReturn
      toParameter.ValueType = 'V'
    endif llReturn
  endif not empty(lcCode)
catch
endtry
return llReturn

运行 StandardMenuHit.PRG 以将该代码安装到智能感知表中。关于该代码，有几个有趣的事情。首先，我通常使用 ORDER <tag name> （而不是 ORDER <N>）来设置表的顺序。但是，智能感知表不同寻常：如果您打开该表并使用 ATAGINFO() 来检索有关该表索引的信息，则将看到有两个标记，并且它们都标记为主标记且不具有标记名称。因此，您必须使用 ORDER 1 或 ORDER 2 来设置该表的顺序。

第二件事情是，将代码包装在 TRY 结构中以防止任何错误，例如，在打开表时出现的问题或者可能存在于另一个记录的代码中的错误。

第三个问题是，该代码不检查用户的菜单选择所源自的面板的提示，而只检查栏提示。这是因为我出于性能原因而决定进行 SEEK，并且所使用的标记是 UPPER(TYPE + ABBREV)。由于这是一个小表，因此您或许可以将面板提示放到 EXPANDED 列中，并使用 LOCATE FOR TYPE = “M” AND ABBREV = toParameter.MenuItem AND EXPANDED = toParameter.UserTyped 来确保找到确切的记录，而不会产生什么后果。

到本期截止时间为止，Microsoft 尚未决定在默认情况下是否有这样一个“标准的”MENUHIT 记录将存在于智能感知表中。如果没有，则他们可能会提供一种添加此类记录的简单方式，例如，通过解决方案示例添加。（解决方案示例是用于展示各种 VFP 功能的示例，并且可以通过任务窗格管理器轻松地访问。）

下面讨论最后一个 MENUHIT 问题：如果 DATA memo 字段中的代码具有任何编译错误，您将不会获得错误信息 — VFP 将简单地忽略该代码并使用默认行为。当然，这可能是令人讨厌的，因为您可能无法完全确定代码为什么没有执行您期望的操作。

返回页首

它有什么好处呢？

对，这样我们就可以挂钩到 VFP 菜单项中。我们可以使用该机制做什么呢？

我所想到的第一件事情就是替换“New Property”和“New Method”对话框。因为我们现在能够保留自定义属性和方法的大小写以进行显示（请参阅我的 2004 年 6 月刊 FoxTalk 2.0 专栏“MemberData and Custom Property Editors”），所以我宁愿让 VFP 使用我输入到“New Property”或“New Method”对话框中的大小写，以避免启动 MemberData 编辑器并在其中更改大小写的额外步骤。而且，由于我必须单击“Add”按钮来添加新的属性或方法，然后单击“Close”按钮来关闭对话框，因此这总是让我感到苦恼。因为我通常一次只添加一个属性或方法，所以希望看到既能添加成员又能关闭对话框的按钮。

由于 MENUHIT 方法现在允许我们捕获“Form”和“Class”菜单中的“New Property”和“New Method”项，因此我们应当能够创建完全按照我们所希望的方式操作的替换对话框。图 1 显示了这样一个对话框，它具有下列功能：

•	它可以自动更新 _MemberData 属性（如果需要，则添加该属性），因此将使用为新成员输入的大小写（甚至还将使用为访问和分配方法输入的大小写 — 如果也创建它们的话），并且该成员将显示在“Favorites”选项卡上（如果在对话框中启用了该选项）。
•	它是非模式对话框。这意味着，您可以使其保持打开状态，添加一些属性或方法，切换到其他界面元素，返回以及添加更多的成员。
•	它是可停靠的：请尝试通过“Properties”窗口来停靠它。这非常棒！
•	它的大小可以调整，并且可以将它的大小和位置保存到资源 (FOXUSER) 文件中。
•	它具有一个“Add & Close”按钮，能够通过一次单击执行这两项任务。
•	属性的默认值会基于该属性的数据类型自动设置为某个值（如果您使用匈牙利表示法）。例如，lTest 是逻辑类型，因此默认值为 .F.。对于 nTest，默认值为 0。
•	它隐藏而不是禁用不适用的控件。由于这个对话框同时用于类设计器和窗体设计器中的“New Property”和“New Method”，因此对于给定实例，某些选项可能不适用。
•	当您输入名称而不是单击“Add”或“Add & Close”时，它将拒绝接受无效名称。
•	“Add”按钮仅在您输入名称时启用。

我们将不会考察构成 NewPropertyDialog.APP 的代码。它并不复杂；在核心部分，它调用在类设计器或窗体设计器中编辑的对象的 AddProperty 和 WriteMethod 方法，以便添加新的属性或方法。这两个方法都接受 VFP 9 中的两个新参数：可见性（1 代表公用，2 代表受保护，3 代表隐藏）以及新属性或方法的说明。

要使用替换对话框，只须“执行”NewPropertyDialog.APP 以便在智能感知表中注册它。它会添加前面讨论的 MENUHIT 记录以及两个在 DATA 中具有相同代码的记录（一个用于“New Property”，另一个用于“New Method”），以便使用 NewPropertyDialog 类。在该代码中，“<path>”表示系统中 NewPropertyDialog.APP 的路径（该应用程序在运行时自动插入正确的路径）。

lparameters toParameter
local llReturn, ;
  llMethod, ;
  llClass
try
  llMethod = toParameter.MenuItem  = 'New Method'
  llClass  = toParameter.UserTyped = 'Class'
  release _oNewProperty
  public _oNewProperty
  _oNewProperty = newobject('NewPropertyDialog', ;
    'NewProperty.vcx', ;
    'NewPropertyDialog.app', llMethod, llClass)
  _oNewProperty.Show()
  llReturn = .T.
catch
endtry
return llReturn

现在，当您从“Form”或“Class”菜单中选择“New Property”或“New Method”时，您将获得新的对话框而不是原有的那个。

返回页首

MENUCONTEXT

除了挂钩到 VFP 系统菜单中的选择以外，您还可以捕获系统快捷菜单，例如，当您右键单击“Properties”窗口时显示的那个快捷菜单。这是使用与 MENUHIT 相同的机制完成的，不同之处在于，智能感知表中的 ABBREV 字段包含“MENUCONTEXT”而不是“MENUHIT”。

与 MENUHIT 一样，MENUCONTEXT 记录的代码应当接受一个对象参数。在这种情况下，有三个需要注意的属性：Item — 显示在快捷菜单中的提示数组；ValueType — 具有与在 MENUHIT 中相同的用途；MenuItem — 快捷菜单的 ID。

MenuItem 的一些值为：对应于“Command”窗口中的快捷菜单的“24446”，对应于 Project Manager 的快捷菜单的“24447”，以及对应于“Properties”窗口的快捷菜单的“24456”。我是如何发现这些值的？我用只显示 toParameter.MenuItem 值的代码创建了一个 MENUCONTEXT 记录，然后右键单击各个位置。与 MENUHIT 一样，您应当将 ValueType 设置为“V”或“L”，并且返回 .T. 以禁止原生行为（显示快捷菜单）。

MENUCONTEXT 的使用不像 MENUHIT 那么容易，这有多种原因。首先，更改 Item 数组的内容不会更改菜单的显示。例如，下面的代码似乎不会对快捷菜单产生任何作用：

lparameters toParameter
toParameter.Items[1] = 'My Bar'

类似地，以下代码也不会在菜单中产生新栏：

lparameters toParameter
lnItems = alen(toParameter.Items) + 1
dimension toParameter.Items[lnItems]
toParameter.Items[lnItems] = 'My Bar'

其次，当某个栏被选定时，没有办法更改所发生的事情。例如，您可能希望“Command”窗口快捷菜单的“Properties”栏显示您的对话框而不是原生对话框。问题在于，参数对象的属性中没有一个指定当菜单项被选择时应该执行的操作 — 该内容被内置到菜单本身中。

因此，看起来我们更改菜单的唯一方式就是使用我们自己的快捷菜单，并随后禁止原生行为。但是，该方法有一个新问题：由于您必须用自己的菜单替换整个菜单，因此当您的一些菜单项被选择时，您如何告诉 VFP 使用原生行为？在撰写本文之际，似乎没有任何能够完成该任务的办法，因此我怀疑 MENUCONTEXT 将只在极少数情况下使用。

返回页首

替换 Project Manager 快捷菜单

即使存在上述问题，我们还是要尝试一个示例。在我的 2000 年 5 月刊 FoxTalk 文章“Zip it, Zip it Good”中，我介绍了一个能够将所有基于表的文件（例如，VCX、SCX 和 FRX 文件）打包到一个项目中的实用工具，以及另一个能够将某个项目中引用的所有文件压缩到一个 ZIP 文件中的实用工具。在该文章中，这些实用工具是从特定于项目的项目挂钩所显示的工具栏中调用的。让我们改而将它们放到将供任何项目使用的快捷菜单中。

MENUCONTEXT 具有与 MENUHIT 相同的潜在冲突问题，因此我们将使用相同的解决方案：一个简单地委托给特定快捷菜单的另一个记录的“标准”记录。实际上，该标准记录的代码与 MENUHIT 记录的代码完全相同（运行 StandardMenuContext.PRG 来创建 MENUCONTEXT 记录）。但是，我们不是将栏提示放到处理程序记录的 ABBREV 字段中，而是放置菜单 ID。（您可能希望将菜单用途 — 例如“命令窗口”— 放到 EXPANDED 字段中，以表明该记录的用途。）

在创建 MENUCONTEXT 记录之后，我用 TYPE = “M”、ABBREV = "24447"（Project Manager 的快捷菜单的 ID）和 DATA 中的以下代码创建了一个记录：

lparameters toParameter
local loMenu
loMenu = newobject('_ShortcutMenu', ;
  home() + 'ffc\_menu.vcx')
loMenu.AddMenuBar('\< loMenu.ShowMenu() plain?) ?{CTRL+J}? ?keyboard ; \

上述代码使用 FFC（FoxPro 基础类）_ShortcutMenu 类来提供快捷菜单。我在 1999 年 2 月刊 FoxTalk 文章“A Last Look at the FFC”中讨论了该类。运行 ProjectMenu.PRG 以便在智能感知表中创建该记录。

当您右键单击 Project Manager 时，新的自定义菜单将显示三个栏（请参见图 2）：Pack Project — 它用当前项目文件的名称调用 PACKPROJ.PRG；Zip Project — 它用当前项目文件的名称调用 ZIPPROJ.PRG；Project Info — 它使用 KEYBOARD 命令来调用“Project”菜单中的“Project Info”对话框。（后一个功能说明，您可以在原生快捷菜单中再现某个栏的功能 — 前提是存在它所调用的系统菜单功能。）

返回页首

小结

通过新的 MENUHIT 和 MENUCONTEXT 功能，较之以前，我们可以更紧密地挂钩到 VFP IDE 中。除了我在本文中介绍的用法以外，我还可以发现“Edit Property/Method”对话框以及“File”菜单中的“New”、“Import”和“Export”功能的替换方法。我肯定您能够想出用不同于 VFP 9 中的方法实现的 IDE 功能；请让我知道您对于这一出色的新功能都有哪些想法。

下载 409HENNIG.ZIP

有关 FoxTalk 和 Pinnacle Publishing 的详细信息，请访问它们位于 http://www.pinpub.com/ 的 Web 站点。

注：这不是 Microsoft Corporation Web 站点。Microsoft 对该 Web 站点的内容不承担责任。

本文是从 FoxTalk 2004 年 9 月刊转载的。版权所有 2004，Pinnacle Publishing, Inc.（除非另行说明）。保留所有权利。FoxTalk 是 Pinnacle Publishing, Inc. 独立发行的产品。未经 Pinnacle Publishing, Inc. 事先同意，不得以任何形式使用或复制本文的任何部分（评论文章中的简短引用除外）。要联系 Pinnacle Publishing, Inc.，请致电 1-800-788-1900。

转到原英文页面

VFP9为类的属性和方法提供了扩展的元数据属性。通过这个新的扩展模型，现在你可以增强类的属性和方法的功能，允许你对设计时功能进行增强，如：

• 指定一个自定义的属性编辑器。
• 把一个属性、事件或方法添加到新的'Favorites'属性窗口标签。
• 控件自定义方法或属性在属性窗口和智能感应窗口中的显示。
• 扩展用户自定义属性

(待续)

纯真IP数据库格式详解(转载)

摘要
网络上的IP数据库以纯真版的最为流行，LumaQQ也采用了纯真版IP数据库做为IP查询功能的基础。不过关于其格式的文档却非常之少，后来终于在网上找到了一份文档，得以了解其内幕，不过那份文档寥寥数语，也是颇为耐心才读明白。在这里我重写一份，以此做为LumaQQ开发者文档的一部分，我想还是必要的。本文详细介绍了纯真IP数据库的格式，并且给出了一些Demo以供参考。

Luma, 清华大学
修改日期： 2005/01/14

Note: 在此感谢纯真IP数据库作者金狐和那唯一一份文档的作者。

修改历史:
2005-01-14 修改了原来一些表达不清和错误的地方

自从有了IP数据库这种东西，QQ外挂的显示IP功能也随之而生，本人见识颇窄，是否还有其他应用不得而知，不过，IP数据库确实是个不错的东西。如今网络上最流行的IP数据库我想应该是纯真版的（说错了也不要扁我），迄今为止其IP记录条数已经接近30000，对于有些IP甚至能精确到楼层，不亦快哉。2004年4、5月间，正逢LumaQQ破土动工，为了加上这个人人都喜欢，但是好像人人都不知道为什么喜欢的显IP功能，我也采用了纯真版IP数据库，它的优点是记录多，查询速度快，它只用一个文件QQWry.dat就包含了所有记录，方便嵌入到其他程序中，也方便升级。

基本结构

QQWry.dat文件在结构上分为3块：文件头，记录区，索引区。一般我们要查找IP时，先在索引区查找记录偏移，然后再到记录区读出信息。由于记录区的记录是不定长的，所以直接在记录区中搜索是不可能的。由于记录数比较多，如果我们遍历索引区也会是有点慢的，一般来说，我们可以用二分查找法搜索索引区，其速度比遍历索引区快若干数量级。图1是QQWry.dat的文件结构图。

图1. QQWry.dat文件结构

要注意的是，QQWry.dat里面全部采用了little-endian字节序

一. 了解文件头

QQWry.dat的文件头只有8个字节，其结构非常简单，首四个字节是第一条索引的绝对偏移，后四个字节是最后一条索引的绝对偏移。

二. 了解记录区

每条IP记录都由国家和地区名组成，国家地区在这里并不是太确切，因为可能会查出来“清华大学计算机系”之类的，这里清华大学就成了国家名了，所以这个国家地区名和IP数据库制作的时候有关系。所以记录的格式有点像QName，有一个全局部分和局部部分组成，我们这里还是沿用国家名和地区名的说法。

于是我们想象着一条记录的格式应该是: [IP地址][国家名][地区名]，当然，这个没有什么问题，但是这只是最简单的情况。很显然，国家名和地区名可能会有很多的重复，如果每条记录都保存一个完整的名称拷贝是非常不理想的，所以我们就需要重定向以节省空间。所以为了得到一个国家名或者地区名，我们就有了两个可能：第一就是直接的字符串表示的国家名，第二就是一个4字节的结构，第一个字节表明了重定向的模式，后面3个字节是国家名或者地区名的实际偏移位置。对于国家名来说，情况还可能更复杂些，因为这样的重定向最多可能有两次。

那么什么是重定向模式？根据上面所说，一条记录的格式是[IP地址][国家记录][地区记录]，如果国家记录是重定向的话，那么地区记录是有可能没有的，于是就有了两种情况，我管他叫做模式1和模式2。我们对这些格式的情况举图说明：

图2. IP记录的最简单形式

图2表示了最简单的IP记录格式，我想没有什么可以解释的

图3. 重定向模式1

图3演示了重定向模式1的情况。我们看到在模式1的情况下，地区记录也跟着国家记录走了，在IP地址之后只剩下了国家记录的4字节，后面3个字节构成了一个指针，指向了实际的国家名，然后又跟着地址名。模式1的标识字节是0x01。

图4. 重定向模式2

图4演示了重定向模式2的情况。我们看到了在模式2的情况下（其标识字节是0x02），地区记录没有跟着国家记录走，因此在国家记录之后4个字节之后还是有地区记录。我想你已经明白了模式1和模式2的区别，即：模式1的国家记录后面不会再有地区记录，模式2的国家记录后会有地区记录。下面我们来看一下更复杂的情况。

图5. 混和情况1

图5演示了当国家记录为模式1的时候可能出现的更复杂情况，在这种情况下，重定向指向的位置仍然是个重定向，不过第二次重定向为模式2。大家不用担心，没有模式3了，这个重定向也最多只有两次，并且如果发生了第二次重定向，则其一定为模式2，而且这种情况只会发生在国家记录上，对于地区记录，模式1和模式2是一样的，地区记录也不会发生2次重定向。不过，这个图还可以更复杂，如图7：

图6. 混和情况2

图6是模式1下最复杂的混和情况，不过我想应该也很好理解，只不过地区记录也来重定向而已，有一点我要提醒你，如果重定向的地址是0，则表示未知的地区名。

所以我们总结如下：一条IP记录由[IP地址][国家记录][地区记录]组成，对于国家记录，可以有三种表示方式：字符串形式，重定向模式1和重定向模式2。对于地区记录，可以有两种表示方式：字符串形式和重定向，另外有一条规则：重定向模式1的国家记录后不能跟地区记录。按照这个总结，在这些方式中合理组合，就构成了IP记录的所有可能情况。

设计的理由

在我们继续去了解索引区的结构之前，我们先来了解一下为何记录区的结构要如此设计。我想你可能想到了答案：字符串重用。没错，在这种结构下，对于一个国家名和地区名，我只需要保存其一次就可以了。我们举例说明，为了表示方便，我们用小写字母代表IP记录，C表示国家名，A表示地区名：

1. 有两条记录a(C1, A1), b(C2, A2)，如果C1 = C2, A1 = A2，那么我们就可以使用图3显示的结构来实现重用
2. 有三条记录a(C1, A1), b(C2, A2), c(C3, A3)，如果C1 = C2, A2 = A3，现在我们想存储记录b，那么我们可以用图6的结构来实现重用
3. 有两条记录a(C1, A1), b(C2, A2)，如果C1 = C2，现在我们想存储记录b，那么我们可以采用模式2表示C2，用字符串表示A2

你可以举出更多的情况，你也会发现在这种结构下，不同的字符串只需要存储一次。

了解索引区

在"了解文件头"部分，我们说明了文件头实际上是两个指针，分别指向了第一条索引和最后一条索引的绝对偏移。如图8所示：

图8. 文件头指向索引区图示

实在是很简单，不是吗？从文件头你就可以定位到索引区，然后你就可以开始搜索IP了！每条索引长度为7个字节，前4个字节是起始IP地址，后三个字节就指向了IP记录。这里有些概念需要说明一下，什么是起始IP，那么有没有结束IP？ 假设有这么一条记录：166.111.0.0 - 166.111.255.255，那么166.111.0.0就是起始IP，166.111.255.255就是结束IP，结束IP就是IP记录中的那头4个字节，这下你应该就清楚了吧。于是乎，每条索引配合一条记录，构成了一个IP范围，如果你要查找166.111.138.138所在的位置，你就会发现166.111.138.138落在了166.111.0.0 - 166.111.255.255 这个范围内，那么你就可以顺着这条索引去读取国家和地区名了。那么我们给出一个最详细的图解吧：

图9. 文件详细结构

现在一切都清楚了是不是？也许还有一点你不清楚，QQWry.dat的版本信息存在哪里呢？ 答案是：最后一条IP记录实际上就是版本信息，最后一条记录显示出来就是这样：255.255.255.0 255.255.255.255 纯真网络 2004年6月25日IP数据。OK，到现在你应该全部清楚了。

Demo

下一步：我给出一个读取IP记录的程序片断，此片断摘录自LumaQQ源文件edu.tsinghua.lumaqq.IPSeeker.java，如果你有兴趣，可以下载源代码详细看看。

	/**
	 * 给定一个ip国家地区记录的偏移，返回一个IPLocation结构
	 * @param offset 国家记录的起始偏移
	 * @return IPLocation对象
	 */
	private IPLocation getIPLocation(long offset) {
		try {
			// 跳过4字节ip
			ipFile.seek(offset + 4);
			// 读取第一个字节判断是否标志字节
			byte b = ipFile.readByte();
			if(b == REDIRECT_MODE_1) {
				// 读取国家偏移
				long countryOffset = readLong3();
				// 跳转至偏移处
				ipFile.seek(countryOffset);
				// 再检查一次标志字节，因为这个时候这个地方仍然可能是个重定向
				b = ipFile.readByte();
				if(b == REDIRECT_MODE_2) {
					loc.country = readString(readLong3());
					ipFile.seek(countryOffset + 4);
				} else
					loc.country = readString(countryOffset);
				// 读取地区标志
				loc.area = readArea(ipFile.getFilePointer());
			} else if(b == REDIRECT_MODE_2) {
				loc.country = readString(readLong3());
				loc.area = readArea(offset + 8);
			} else {
				loc.country = readString(ipFile.getFilePointer() - 1);
				loc.area = readArea(ipFile.getFilePointer());
			}
			return loc;
		} catch (IOException e) {
			return null;
		}
	}	

	/**
	 * 从offset偏移开始解析后面的字节，读出一个地区名
	 * @param offset 地区记录的起始偏移
	 * @return 地区名字符串
	 * @throws IOException 地区名字符串
	 */
	private String readArea(long offset) throws IOException {
		ipFile.seek(offset);
		byte b = ipFile.readByte();
		if(b == REDIRECT_MODE_1 || b == REDIRECT_MODE_2) {
			long areaOffset = readLong3(offset + 1);
			if(areaOffset == 0)
				return LumaQQ.getString("unknown.area");
			else
				return readString(areaOffset);
		} else
			return readString(offset);
	}

	/**
	 * 从offset位置读取3个字节为一个long，因为java为big-endian格式，所以没办法
	 * 用了这么一个函数来做转换
	 * @param offset 整数的起始偏移
	 * @return 读取的long值，返回-1表示读取文件失败
	 */
	private long readLong3(long offset) {
		long ret = 0;
		try {
			ipFile.seek(offset);
			ipFile.readFully(b3);
			ret |= (b3[0] & 0xFF);
			ret |= ((b3[1] << 8) & 0xFF00);
			ret |= ((b3[2] << 16) & 0xFF0000);
			return ret;
		} catch (IOException e) {
			return -1;
		}
	}	
	
	/**
	 * 从当前位置读取3个字节转换成long
	 * @return 读取的long值，返回-1表示读取文件失败
	 */
	private long readLong3() {
		long ret = 0;
		try {
			ipFile.readFully(b3);
			ret |= (b3[0] & 0xFF);
			ret |= ((b3[1] << 8) & 0xFF00);
			ret |= ((b3[2] << 16) & 0xFF0000);
			return ret;
		} catch (IOException e) {
			return -1;
		}
	}

	/**
	 * 从offset偏移处读取一个以0结束的字符串
	 * @param offset 字符串起始偏移
	 * @return 读取的字符串，出错返回空字符串
	 */
	private String readString(long offset) {
		try {
			ipFile.seek(offset);
			int i;
			for(i = 0, buf[i] = ipFile.readByte(); buf[i] != 0; buf[++i] = ipFile.readByte());
			if(i != 0) 
			    return Utils.getString(buf, 0, i, "GBK");
		} catch (IOException e) {			
		    log.error(e.getMessage());
		}
		return "";
	}

代码并不复杂，getIPLocation是主要方法，它检查国家记录格式，并针对字符串形式，模式1，模式2采用不同的代码，readArea则相对简单，因为只有字符串和重定向两种情况需要处理。

总结

纯真IP数据库的结构使得查找IP简单迅速，不过你想要编辑它却是比较麻烦的，我想应该需要专门的工具来生成QQWry.dat文件，由于其文件格式的限制，你要直接添加IP记录就不容易了。不过，能查到IP已经很开心了，希望纯真记录越来越多～。

XML Web Service 基础

http://www.microsoft.com/china/MSDN/library/WebServices/WebServices/UnderstandingSOAP.mspx

VFP集成开发环境(IDE)中的秘籍

第一部分

译者感想：感觉得到了一本武功秘籍

Cathy Pountney

在VFP中你可以使用不同的方法做相同的事情。有多少次你与其它的开发者在碰面时你会问“嗨！你是怎样做的这个？”。在这个系列的文章中，Cathy Pountney将揭露一些使用集成开发环境工作的方法，特别是那些不明显或没有写入帮助文档的方法。你将从这里学到一些不同的方法，这些方法有助于你提高生产率。即使是富有经验的开发者，也会从这里学到一些新的东西。

在这个由两个部分组成的系列文章的第一部分，我将揭露一些隐藏在VFP中的秘密。我将讨论各种设计器，几个控件，属性列表，文档视图，查找对话框，智能感应，一些工具以及VFP内置的有用的东西。在第二部分我将展示命令窗口和一些命令以及其它一些鲜为人知的秘密。

报表设计器

当然，你应该知道我将启动我最喜欢的设计器，报表设计器。

对象之间的跳转

在VFP8中，你可以方便地使用TAB键在控件之间跳转，使用TAB跳转到下一个软件，使用SHIFT＋TAB跳转到上一个控件。 在VFP8以前的版本中你必须先使用CTRL＋TAB来切换到TAB模式，然后才能使用TAB和CTRL＋TAB来在对象之间跳转。

编辑已存在的标签

选中要编辑的标签，按CTRL＋E，这时便进入标签的编辑模式。

表单设计器

VFP中使用容器控件有一些窍门

进入容器

使用容器对象有时会比较困难，比如页框。但是，你可以通过在对象上按住ctrl再单击来快速编辑容器中的对象。这样你可以绕地容器直接编辑其中的控件。

当人在容器中嵌套容器时，你可以使用CTRL＋SHIF＋CLICK来进入深层。比如，你在一个页框的页面中有一个选项按钮组，你可以将光标置于命令按钮上，然后按ctrl+shif+click，直接通过页面，通过选项按钮组，进入选项按钮。

列表框和组合框控件

当"\"符号用于列表框或组合框时，它具有特殊的含义，详细说明见表1

不知道你在文本框中输入日期时是不是感到不方便？反正我是，我经常会把"mm-dd-yy"输成"yy-mm-dd",经常会看到“无效的日期”的提示。当你把程序交付给用户使用时，这种不方便一定会影响用户对程序的评价。这个烦人问题困扰我很长时间了，今天无意中查看VFP的示例，在其中发现了一个示例，可以很好的解决这个问题，现在把他写下来，与狐友们分享。

Vfp版本:9.0正式版

操作系统:windows 2000 专业版

在这个示例中使用了VFP自带的类,这个类位于 home()+’ffc\_datetime.vcx’中，类名为_olecalendae

新建一个数据表 test.dbf,,具有两个字段　姓名 c(10) ,生日 d()

随便添加一个记录,

新建一表单:如图

将数据表tese.dbf添加到数据环境中。

上边的文本框与“姓名”字段绑，下边的文本框与“生日”字段绑定。

代码：

运行表单

点击“日期选择”按钮会出现下面的效果。

现在可以选择日期，选择后关闭小窗口，生日文本中框中的日期值会变成你选择的日期。

注意：数据表中一定要有记录。

现在我把代码贴出来，供VFP初学者参考。

总共做了四道题，一道根本没用代码，直接用数学知识解出来，另外三道是用代码做的。

1、求使1+(1+2)+(1+2+3)+....+(1+2+3+...+n)之和不大于1000的最大自然数n

我的代码是这样

clear
LOCAL m
LOCAL n
LOCAL s
s=0
m=0
n=0
DO WHILE .t.
   m=m+1
   n=n+m
   s=s+n
   ?m
   ??n
   ??s
   IF s>1000
      EXIT
   ENDIF
ENDDO
?m-1

2、求35000以内能同时被3和7整除的整数的个数

CLEAR
LOCAL i
LOCAL n
i=0
n=0
DO WHILE i<=35000
   i=i+1
   IF MOD(i,3)=0 AND MOD(i,7)=0
      n=n+1
   ENDIF
ENDDO
?n
3、1张1元钞票，将它分成1分、2分和5分硬币，每种方案至少11枚硬币组合，请问有多少种方案？

LOCAL a
a=0
LOCAL b
b=0
LOCAL c
c=0
LOCAL n
n=0
LOCAL sum1
sum=0
LOCAL sum2
sum2=0
DO WHILE .t.
   b=0
   c=0
   a=a+1
   IF a=100
      EXIT
   ENDIF
   DO WHILE .t.
      c=0
      b=b+1
      IF b=100
         EXIT
      ENDIF
      DO WHILE .t.     
         c=c+1
         IF c=20
            EXIT
         ENDIF
         sum1=a+2*b+5*c
         sum2=a+b+c
         IF sum1=100 AND sum2>=11
         n=n+1
         ENDIF
       ENDDO
   ENDDO
ENDDO
?n       
第三道题的代码太烦琐了，时间关系，将就了。  

介绍

详细信息

适用于

介绍

VFP中包含一个称作“beautify”的工具。这个工具通过提供调整代码缩进和格式的选项使你的代码更易读。你可以在“Beautify Options”对话框中对这些选项进行全局设置。这些选项每次在你在一个代码块中运行美化工具时被应用。但有时你可能希望这些选项设置对某些代码不起作用。这时你可以使用“美化指示”。

美化指示(Beautify directives)是放在代码中的特殊格式的注释。你可以在代码块中使用美化工具美化你的代码，当美化工具遇到“美化指示”时它将执行特定的动作。

详细信息

美化工具可以调整关键字的格式。关键字是VFP编程语言中所有保留的单词或短语。例如，MODIFY就是一个关键字。你可以通过调整代码块中关键字的格式使代码块更易读，使代码块中的元素更容易区分。但是，这种调节有时会产生意外的效果。虽然VFP是一个大小写不敏感语言，但你在VFP中使用的某些工具可能是大小敏感的。例如，Windows API中的函数在VFP中必须使用大小写敏感的方式声明和调用。因此，当你在VFP中使用了与VFP关键字相同Windows API函数名时就会发生由于美化引起的问题。

一个VFP关键字与Windows API 函数名相同的例子是VFP中的ShowWindow属性。当美化工具遇到VFP关键字时，它会按照“Beautify Option”对话框中的设置来调整关键字的格式。为了成功调用Windows API函数ShowWinow，VFP代码必须明确使用pascal格式。VFP的ShowWindow属性可以使用任何你想使用的格式，因为VFP大小定不敏感的。如果关键字ShowWindow出现在代码块中时，VFP美化工具并不能知道这个关键是VFP中的ShowWindow属性还是Windows API函数名。如果ShowWindow　是一个Windows API函数名，美化工具调整了代码格式，这时会导致VFP代码运行发生错误。

在VFP9以前的版本中没有简单的方法防止美化工具的这种错误调整。　VFP9引进了美化指示来解决这种问题。

• *#beautify keyword_nochange
• *#beautify

当VFP中的一个关键字被包装到一个美化指示时，美化工具将不改变这个关键字。

说明　这些“指示”采用注释的方式。以“*”号开头，“*”是vfp中整行注释的默认符号。这种注释格式对于“指示”的工作必须的。这种注释格式虽然只有VFP9和更高版本的美化工具可以识别，但含有这种注释的代码也能在比VFP9更低的版本中编译。

下列示例如何在VFP9和更高版本中使用美化指示。

1. 启动VFP9.0

2. 在Tools菜单中，点击Beautify.这时会打开Beautify Options 对话框。
   
   
   说明　如果Tools菜单中的Beautify不可用，按CTRL+F2组合键打开命令窗口，并使命令窗口得到焦点。然后，再次点击Tools菜单中的Beautify。
    

3. 在Capitalization区，点击Keywords 列表中UPPERCASE。
   

4. 点击Run，关闭Beautify Options对话框。

5. 在命令窗口中执行下列语句打开新的编辑窗口。
    

   MODIFY COMMAND BeautifyTest

6. 拷贝下列代码行，然后粘贴到那个新的编辑窗口。
    

   *------- <BLOCK 1> * *#beautify keyword_nochange #DEFINE SW_MINIMIZE 6 DECLARE INTEGER ShowWindow IN WIN32API ; INTEGER nHWND, ; INTEGER nCmdShow ShowWindow(_VFP.HWND, SW_MINIMIZE) *#beautify * *------- </BLOCK 1> *------- <BLOCK 2> * #DEFINE SW_MINIMIZE 6 DECLARE INTEGER ShowWindow IN WIN32API ; INTEGER nHWND, ; INTEGER nCmdShow ShowWindow(_VFP.HWND, SW_MINIMIZE) * *------- </BLOCK 2

7. 运行美化工具。点击Tools 菜单上的Beautify选项，然后点击Run。

这个示例代码分成独立的两块。两个代码块的不同在于第一个代码块中有美化指示。第一个代码块中的ShowWindow 关键字不改变。在美化工具运行过程中，当它遇到*#beautify keyword_nochange指示时它会跳过而不改变ShowWindow关键字。

第二块没有包含美化指示，因些Block2中的ShowWindow关键会被改变成大写。这种改变会使这个代码块无效。为了检验一下，请保存并运行那些代码，在Block2代码块中的DECLARE行将会发生错误：

Error 1754: Cannot find entry point sHOWWINDOW in the DLL.

说明　美化指示没有包含在VFP9的文档中。

适用于

• Microsoft Visual FoxPro 9.0 Professional Edition
   

我就捉摸着没有有一种专门挂QQ的软件，占用内存要很小。于是在GOOGLE中用关键字“QQ挂级器”搜索。这一搜使我得到了意外的收获，一款叫MyIm的软件正符合我的要求。对我来说他最大的特点就是占用内存小，用她挂上成十个QQ占用内存不到2M。但她最大的特点不在于此。

爽吧？哈哈，现在我不用对同学说“SORRY！”，可以做个“好人”啦。

软件下载地址http://www.myim.cn/