Delphi和C语言混合编程在处理工程地质资料中的应用

计算机时代２０１０年第４期　・４ｌ　・　Ｄｅｌｐｈｉ和Ｃ语言混合编程在处理工程地质资料中的应用　戴峻’，刘海军　，翟波　（１．煤炭科学研究总院沈阳研究院，辽宁抚顺１１３００１；２．辽宁石油化工大学）　摘要：详细描述了利用Ｄｅｌｐｈｉ和ｃ语言混合编程处理工程与地质资料的思想和程序设计方法，并以ＳＥＧ一２格式为例，　介绍了这种方法的具体应用。　关键词：Ｄｅｌｐｈｉ；ＳＥＧ．２格式；动态链接库；工程和地质资料处理　Ａｐｐｌｉｃａｔｉｏｎ　ｏｆ　Ｄｅｌｐｈｉ　ａｎｄ　Ｃ　Ｍｉｘｅｄ　Ｐｒｏｇｒａｍｍｉｎｇ　ｉｎ　Ｐｒｏｃｅｓｓｉｎｇ　Ｅｎｇｉｎｅｅｒｉｎｇ　ａｎｄ　Ｇｅｏｌｏｇｉｃａｌ　Ｄａｔａ　ＤＡＩ　Ｊｕｎ　，ＬＩＵ　Ｈａｉ－ｊｕｎ２，ＺＨＡＩ　Ｂｏ　（Ｊ．Ｓｈｅｎｙａｎｇ　Ｂｒａｎｃｈ　ｏｆ　Ｃｈｉｎａ　Ｃｏａｌ　Ｒｅｓｅａｒｃｈ　Ｉｎｓｔｉｔｕｔｅ，Ｆｕｓｈｕｎ，Ｌｉａｏｎｉｎｇ　１１３００１，Ｃｈｉｎａ；２．Ｌｉａｏｎｉｎｇ　Ｓｈｉｈｕａ　Ｕｎｉｖｅｒｓｉｔｙ）　Ａｂｓｔｒａｃｔ：Ｔｈｅ　ｉｄｅａ　ａｎｄ　ｐｒｏｇｒａｍｍｉｎｇ　ｍｅｔｈｏｄ　ｏｆ　ｐｒｏｃｅｓｓｉｎｇ　ｅｎｇｉｎｅｅｒｉｎｇ　ａｎｄ　ｇｅｏｌｏｇｉｃａｌ　ｄａｔａ　ｂｙ　Ｄｅｌｐｈｉ　ａｎｄ　Ｃ　ｍｉｘｅｄ　ｐｒｏｇｒａｍｍｉｎｇ　ａｒｅ　ｄｅｓｃｒｉｂｅｄ　ｉｎ　ｄｅｔａｉｌ，ａｎｄ　ｔａｋｉｎｇ　ＳＥＧ一２　ｆｏｒｍａｔ　ａｓ　ａｎ　ｅｘａｍｐｌｅ，ｔｈｅ　ｓｐｅｃｉｆｉｃ　ａｐｐｌｉｃａｔｉｏｎ　ｏｆ　ｔｈｉｓ　ｍｅｔｈｏｄ　ｉｓ　ｉｎｔｒｏｄｕｃｅｄ．　Ｋｅｙ　ｗｏｒｄｓ：Ｄｅｌｐｈｉ；ＳＥＧ一２　ｆｏｒｍａｔ；ＤＬＬ；ｅｎｇｉｎｅｅｒｉｎｇ　ａｎｄ　ｇｅｏｌｏｇｉｃａｌ　ｄａｔａ　ｐｒｏｃｅｓｓｉｎｇ　０引言　科技飞速发展的今天，数字化的地震仪、地质雷达等现代　１．１文件描述块　每一个ＳＥＧ一２格式文件都有文件描述块。文件描述块对　包括文件的格式标识、版本号、　化仪器和设备的出现结束了模拟记录的历史。目前，各厂家生　整个文件进行了综述性的描述，采集时间、前方增益、炮点间隔、首桩号、尾桩号、备　产的仪器对数据记录都有一套标准的存贮方式和处理软件。　采集日期、道头指针等内容。　国内不少科研单位花巨资从国外引进仪器或设备，而由于经费　注、道数、文件描述块中的第０—１字节存放数据为３ａ５５Ｈ的一个十六　紧张，却没有购得相应的处理软件，所以很多单位和科研院所　都非常需要一套通用的数据处理软件。　进制正数，这表明文件的存储方式是低字节在前，高字节在　Ｄｅｌｐｈｉ作为第四代编程语言，具有简单、高效、功能强大等　后。第２—３字节存放了９９０５Ｈ，这是此文件采用ＳＥＧ标准的版　特点，但由于工程和地质资料一般数据量很大，计算非常复杂，　本号。第４—５字节存放了一个无符号的整型量Ｍ，一般Ｍ＝道　Ｄｅｌｐｈｉ在底层计算方面与Ｃ语言相比还是有一定的差距。所　头指针尺寸＝道数　４。第６—７字节的无符号整型量，表明了此　以，我们需要使用Ｃ语言来编写计算方面的模块，而使用Ｄｅｌｐｈｉ　文件的道数。第８字节存放的是０１Ｈ或０２Ｈ，用于说明串结束　　来编写人机交互的图形界面。众所周之，数据处理软件首先要　符存放于第９字节还是分别存放于第９和第ｌ０字节。第ｌｌ，４—３ｌ字节　考虑数据结构，有了数据结构，才可以对数据进行处理。那么　ｌ２，ｌ３字节存放换行符的尺寸及换行符的类型。第ｌ３ｌ＋Ｍ）字节　现有的数据格式主要有哪些呢？以地震仪为例，美国ＳＥＧ曾推　为ＳＥＧ～２的保留字节，用于以后扩充内容。第３２一（此　荐过诸如ＳＥＧ—Ｄ，ＳＥＧ—Ｙ等格式，在１９８７年ｌ０月又推出　为道头的指针，每一个指针为一个４字节的无符号长整型量，ＳＥＧ一２标准。按有关规定，从１９８７年ｌ０月以后出厂的数字化　处Ｍ由第４—５字节决定。第３２＋Ｍ字节直至字节内容为Ｏ都为　Ｉ字符串，这些字符串选择性包括ＴＲＡＣＥ　ＳＯＲＴ＜ｓｏｒｔ　地震仪器及有关设备，无论以何种方式采集的数据，都应以此　ＡＳＣＩｈｏｄ＞，ＵＮＩＴＳ＜ｌｉｎｅａｒ　ｕｎｉｔ　ｓｙｓｔｅｍ＞，ＮＯＴＥ＜ｔｅｘｔ＞，ＰＲＯ—　标准存贮数据。所以，目前大部分仪器采用ＳＥＧ—Ｙ、ＳＥＧ—Ｄ和　ｍｅｔＳＥＧ一２格式存储数据。本文以使用Ｄｅｌｐｈｉ调用ＶＣ生成的动态　ＣＥＳＳＩＮＧ　ＴＩＭＥ＜ｖａｌｕｅ＞，ＰＲＯＣＥＳＳＩＮＧＤＡＴＥ＜ｖａｌｕｅ＞，　链接库（ＤＬＬ）来实现ＳＥＧ一２格式数据文件描述块字符串读取　为例，简要介绍一下这种方式在工程和地质数据处理方面的应　用。　ＯＢＳＥＲＶＥＲ＜ｎａｍｅ＞，ＪＯＢＩＤ＿＜ｃｈａｒａｃｔｅｒ　ｓｔｒｉｎｇ＞，ＩＮＳＴＲＵ－　ＭＥＮＴ＜ｍａｎｕｆａｃｔｕｒｅｒ　ｎａｍｅ＞＜ｍｏｄｅｌ　ｎｕｍｂｅｒ／ｎａｍｅ＞＜ｓｅｒｉａｌ　ｎｕｍｂｅｒ＞，ＧＥＮＥＲＡＬＣＯＮＳＴＡＮＴ＿＜ｖａｌｕｅ＞，ＣＯＭＰＡＮＹ＜　１　ＳＥＧ一２格式　根据ｓＥＧ官方网站上关于ｓＥＧ一２格式的英文介绍，我们在　ｎａｍｅ＞，ＣＬｍＮＴ＜ｎａｍｅ＞，ＡＣＱＵＩＳＩＴＩＯＮ＿ＴＩＭＥ＜ｖａｌｕｅ＞等重　要内容，这些内容一般以空格键或者换行符隔开，如图２所示。　４０　０ｌ　０４　ＯＯ　ｌＢ　００　５《５２聚｝　歌　２０　。。，ＴＲ　．　这里参照官方格式对其先做一个简要的解读。　ｚ　，．．，　　Ｉｆ　Ｉ　Ｉ．．．．．．Ｉ　Ｉ　　Ｉ２２’’ｕ０　ｕｕ　ｕｕ　Ｏ　Ｏ０　Ｄ０　ＥＴＥＲｇ’’，Ｊ　图１　ＳＥＧ一２格式数据结构　图２由ＷｉｎＨｅｘ显示出的ＳＥＧ一２文件描述块ＡＳＣＩＩ字符串　２道头块和数据块　从图ｌ可以看出，一个ＳＥＧ一２格式文件包括一个文件描述　１．般ＳＥＧ一２文件包含Ｎ个道头块和与之匹配的相应数据　块和若干个道头块和数据块。　一

・４２・　Ｃｏｍｐｕｔｅｒ　Ｅｒａ　Ｎｏ．４　２０１０　∞０　∞　∞蛇¨　／／数据文件描述块ＡＳＣＩＩ字符串变量　块。道头块一般包括道头标识，道尺寸，数据块长度，每道样点　∞　雌轮　ｓｔｄｎｇ［１　００］；　数，数据段格式码，途径文件名，道号，采样率，延迟时间，低截，　砖　ｃｈａｒ　ｄｓｃｒｐｔ∞　ｄ　ｒｅａｄｆｉｌｅ（），，读取文件函数　测线号，炮点位置，检波器位置，叠加次数，作图幅度等内容。∞”　　们　ｖｏｉ（ＦＩＬＥ　ｆｓｅｇ２；　∞　∞　道头块的第０一ｌ字节为一个十六进制无符号整型量　＿∞牾蚰∞　４４２２Ｈ作为道头标识。第２－３字节为道头尺寸，是一个无符号　∞∞　曲　ｆｓｅｇ２＝ｆｏｐｅｎＣ．＼＼ｄａｔａ＿ｓｅｇ２．ｓｇｙ”，”ｒｂ”）：　ｎ∞∞　的整型量。第４—７字节为数据段长度，为样点数／道　４字节。　∞ｌ兰ｉ“描　第８一ｌｌ字节为每道样点数，是一个无符号的长整型量。第ｌ２　ｆｒｅａｄ（＆ｓｅｇ２一ｈｄ３２，３２，１，ｆｓｅｇ２）；　ｆｒｅａｄ（ｔｒａｃｅｐｏｉｎｔｅｒ，４，ｓｅｇ２＿ｈｄ３２．ｔｒａｃｅｎｕｍ，ｆｓｅｇ２）；　ｆｒｅａｄ（＆ｓｔｒｉｎｇｌｅｎｇｔｈ，２，１，ｆｓｅｇ２）；　，，读取数据文件描述块ＡＳＣＩＩ字符串　ｕｎｓｉｇｎｅｄ　ｓｈｏｒｔ　ｉｎｔ　Ｉ．０：　∞　字节为数据段存储数据的格式码，１Ｈ表示ｌ６位整数，２Ｈ表示　“躬　３２位整数，３Ｈ表示２０位浮点数，４Ｈ表示３２位浮点数，５Ｈ表示　∞“蛆　驰　６４位浮点数。第ｌ３—３１字节为ＳＥＧ保留内容，以备扩充。第　ｗｈ．１ｅ（Ｏ！＝ｓｔ—ｎｇＩｅｎｇｔｈ）　３２字节直至字节内容为０，均为ＡＳＣＩＩ字符串，由于篇幅所限，　此处不一一描述。每道紧跟道头后的是数据段，具体数据内容　如柏　由此段读出。图３所示为由ＷｉｎＨｅｘ显示出的ＳＥＧ一２道头块　ＡＳＣＩＩ字符串。　ＲＡＣＥ丑…ＤＥＬ髓０　４５　５４　５２　５９　２０　３ｉ　２Ｅ　３７　３３　６ｓ　２Ｂ　３Ｏ　３Ｏ　３６　００　１Ｅ￡】　ｒ　１．７３ｅ＋Ｏ０￣　ｉ　００　５２　４５　４３雌５　４９　５６　４ｓ　５２　５Ｆ　４ｃ　４Ｆ　４３　４１　５４，辱霉　．ＲＥ蜡ＥＩＶＥＲ＿Ｌ０ｅＡ￣Ｉ　哇Ｆ　４Ｅ　２０　３１　２Ｅ　３７　３３　６５　２　）Ｏ工８，屯Ｕ　５３　ｃ｝Ｎ　ｌ。７３ｅ＋００６．．霹　４ｉ　４Ｄ　ｓＯ　４ｅ　ｓ　５Ｆ　４９《Ｅ　５　ＡｓｃＩＩ字符串—ｎ　Ｉｃ　２０　３０　ｈＭｐ啦．ＩＮＴＥＲＶＡＬｆＧ　２Ｅ　３０　３０　３４　００　１Ｂ　Ｏ０　ｓ３　４　；３　４５　５ｉ　５５　００４　。．ｓＨｃｒｒ　ｇＥ　ｉＩ　４５　４Ｅ　４３　４５　５Ｆ｛Ｅ　５５｛Ｄ　４２｛ｓ　ｓ２　２０　３　３３　３６　ＯＯ　Ｅ　Ｅ　瑭姻ＥＲ　４　６．　ｉＥ　０Ｏ　５３　４Ｆ　５５　５２唾３唾５　５Ｆ　４ｃ唾Ｆ　４３　４１　５４　４９　４Ｆ　．．Ｓ０Ｕ蹙ＣＥ＿ＬＯ　汀１０　４Ｅ　２０　３３＝２　２２Ｅｌ’３０　３　２　３７　３５　６５　２Ｂ　３ｏ　３０　３６　００　００　００　Ｎ　２　０２７Ｓ　＋—叻６．　．　图３由ＷｉｎＨｅｘ显示出的ＳＥＧ一２道头块ＡＳＣＩＩ字符串　２　ＶＣ＋＋建立动态链接库（ＤＬＬ）　打开Ｖｃ＋＋，新建一个ＭＦＣ　ＡｐｐＷｉｚａｒｄ（ｄｌ１）工程，命名为　Ｓｅｇ２。建立ｃ，Ｃ＋＋Ｈｅａｄｅｒ　Ｆｉｌｅ，命名为Ｓｅｇ２＿Ｒｅａｄ．ｈ。建立　ｃ＼Ｃ＋＋Ｓｏｕｒｃｅ　Ｆｉｌｅ，命名为Ｓｅｇ２＿Ｒｅａｄ．ｃｐｐ。两个文件的代码　及解释如下。　在Ｓｅｇ２＿Ｒｅａｄ－ｂ文件中键入：　ｅｘｔｅｒｎ”Ｃ”—．ｄｅｃｌｓｐｅｃ（ｄｌｌｅｘｐ０ｒｔ）ｃｈａｒ　ｏｕｔｐｕｔｓｔｒｉｎｇ０；　，／向调用程序声明可被调用的函数　在Ｓｅｇ２＿Ｒｅａｄ．ｃｐｐ文件中键入：　＃ｉｎｃｌｕｄｅ”ＳｔｄＡｆｘ．ｈ”　＃ｉｎｃｌｕｄｅ”ｓｅｇ２＿ｒｅａｄ．ｈ”　＃ｉｎｃｌｕｄｅ＜ｓｔｄｉｏ．ｈ＞　ｕｎｓｉｇｎｅｄ　ｓｈｏｒｔ　ｉｎｔ　ｓｔｒｉｎｇｌｅｎｇｔｈ；／，数据文件描述块结构体变量　ｓｔｒｕｃｔ　ｓｅｇ２ｈｄ３２　＿｛ｓｈｏｒｔ　ｂｌｏｃｋｉｄ；　ｓｈｏｒｔ　ｒｅｖｎｕｍ；　ｕｎｓｉｇｎｅｄ　ｓｈｏｒｔ　ｐｏｉｎｔｅｒｂｙｔｅｃｏｕｎｔ；　ｕｎｓｉｇｎｅｄ　ｓｈｏｒｔ　ｔｒａｃｅｎｕｍ；　ｃｈａｒ　ｓｔｒｉｎｇｔｅｒｍｃｏｕｎｔ；　ｃｈａｒ　ｓｔｒｉｎｇｔｅｒｍｌ：　ｃｈａｒ　ｓｔｒｉｎｇｔｅｒｍ２；　ｃｈａｒ　ｌｉｎｅｔｅｒｍｃｏｕｎｔ；　ｃｈａｒ　ｌｉｎｅｔｅｒｍｌ：　ｃｈａｒ　ｌｉｎｅｔｅｒｍ２；　ｃｈａｒ　ｒｅｓｅｒｖｅｄ［１　８】：　）ｓｅｇｌ２＿ｈｄ３２；　ｕｎｓｉｇｎｅｄ　ｉｎｔ　ｔｒａｃｅｐｏｉｎｔｅｒ［１００］；　｛ｕｎｓｉｇｎｅｄ　ｓｈｏｒｔ　ｉｎｔ＿ｉ＝１：　ｗｈ＿ｌｅ（ｊ＜＝（ｓｔ　ｒｉｎｇＩｅｎｇｔｈ一２））　（ｆｒｅａｄ（＆ｄｓｃｒｐｔｓｔｒｉｎｇ［ｉ］，１，１，ｆｓｅｇ２）；　ｊ寸｝１：　ｉ＝ｉ＋ｌ；　｝　ｆｒｅａｄ（＆ｓｔｒｉｎｇｌｅｎｇｔｈ，２，１，ｆｓｅｇ２）；　）　ｆｃｌｏｓｅ（ｆｓｅｇ２）；　）／，可被调用的函数　ｅｘｔｅｒｎ”Ｃ”—ｄｅｃｌｓｐｅｃ（ｄ¨ｅｘｐｏｒｔ）ｃｈａｒ　ｏｕｔｐｕｔｓｔｒｉｎｇ（）　｛ｒｅａｄ＿ｆｉｌｅ０；　ｒｅｔｕｒｎ　ｄｓｃｒｐｔｓｔｒｉｎｇ；Ｈ－￣ＡＳＣＩＩ字符串数据指针　）　。　将数据文件ｄａｔａ—ｓｅｇ２．ｓｇｙ放置于工程目录下，点击执行，　在工程目录Ｄｅｂｕｇ下生成了Ｓｅｇ２．ＤＬＬ。我们将在下一步使　用它。　３　Ｄｅｌｐｈｉ调用动态链接库（ＤＬＬ）中的函数　在Ｄｅｌｐｈｉ中新建工程Ｓｅｇ２＿Ｒｅａｄ，布置面板如图４所示。　由于篇幅有限，我们使用隐式调用。　ＳＥＧ　２蹙筻据文伴描述块事簿审：　输出ＡＳＣＩ￣串　图４．Ｄｅｌｐｈｉ面板布置　新建一个单元，命名为ｏｐｓｔｒｉｎｇ．ｐａｓ，分别在ｉｎｔｅｒｆａｃｅ和　ｉｍｐｌｅｍｅｎｔａｔｉｏｎ下键入以下代码：　ｉｎｔｅｒｆａｃｅ　ｆｕｎｃｔｉｏｎ　ｏｕｔｐｕｔｓｔｒｉｎｇ（）：ｐｃｈａｒ；ｓｔｄｃａｌｌ；　ｉｍｐｌｅｍｅｎｔａｔｉｏｎ　ｆｕｎｃｔｉｏｎ｝ｏｕｔｐｕｔｓｔｒｉｎｇ；ｅｘｔｅｒｎａｌ。ｓｅｇ２．ＤＬＬ‘ｎａｍｅ’ｏｕｔｐｕｔｓｔｒｉｎｇ。：　｜｜讽入ＤＬＬ　在Ｓｅｇ２＿Ｒｅａｄ．ｐａｓ的ｉｍｐｌｉｍｅｎｔａｔｉｏｎ下键入以下代码：　ＵＳｅＳ　ｏｐｓｔｒｉｎｇ；　ｐｒｏｃｅｄｕｒｅ　ＴＦｏｒｍ１．Ｂｕｔｔｏｎ１ＣＩｉｃｋ（Ｓｅｎｄｅｒ：ＴＯｂｊｅｃｔ）；　（下转第４５页１　盯　

计算机时代２０１０年第４期　ｆ　ｎａｍｅ＝ｄｏｃｕｍｅｎｔ．ｆｏｒｍ１．ｎａｍｅ．ｖａｌｕｅ；　ｄａｔｅ＝ｄｏｃｕｍｅｎｔ．ｆｏｒｍ１．ｄａｔｅ．ｖａｌｕｅ；　・４５・　ｉｆ（ｃｈｋｓｐｃ（ｎａｍｅ）＝＝ＯＩＩｆｕｃＣｈｅｃｋＬｅｎｇｔｈ（ｎａｍｅ）＜４）　｛ａｌｅｒｔ（”请填写您的姓名，姓名由１到４个字符组成。“）：　ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｎａｍｅ．ｆｏｃｕｓ（）；ｒｅｔｕｒｎ　ｆａｌｓｅ；　）　ｐｗｄ＝ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｐｗｄ．ｖａｌｕｅ；　ｊｆ（ｃｈｋｓｐｃ（ｄａｔｅ）＝＝ＯＩＩｃｈｋｄａｔｅ（ｄａｔｅ）＝＝Ｏ）　｛ａｌｅｒｔ（”请填写您的订货日期，格式如２０１０－１—８。”）　；ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｄａｔｅ．ｆｏｃｕｓ（）；ｒｅｔｕｒｎ　ｆａｌｓｅ；　）　）　＜，ｓｃｒｉｐｔ＞　ｉｆ（ｆｕｃＣｈｅｃｋＬｅｎｇｔｈ（ｐｗｄ）＜６１１ｆｕｃＣｈｅｃｋＬｅｎｇｔｈ（ｐｗｄ）＞　１２１１ｆｕｃＰＷＤｃｈｋ（ｐｗｄ）＝＝０）　｛ａｌｅｒｔ（”密码由６到１２￣－：字母或数字组成。”）　ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｐｗｄ．ｆｏｃｕｓ（）；ｒｅｔｕｒｎ　ｆａｌｓｅ；　）　ｅｍａｉｌ＝ｄｏｃｕｍｅｎｔ．ｆｏｒｍ１．ｅｍａｉｌ．ｖａｌｕｅ；　３结束语　本文提出了一种基于ＪａｖａＳｃｒｉｐｔ的验证表单数据的通用方　案，并给出了相应的验证程序代码。该方案可以对用户信息进　行详细验证。该方案将验证机制对应在一个外部脚本文件　Ｃｌｉｅｎｔ　Ｅｖｅｎｔ　Ｈａｎｄｌｅｒｓ．ｊｓ中，通过调用这个文件实现代码复　用。该方案能够在多种环境下应用，其主要技术特点有：①跨　ｉｆ（（ｃｈｋｓｐｃ（ｅｍａｉｌ）＝＝Ｏ）Ｉ１（ｃｈｋｅｍａｉｌ（ｅｍａｉｌ）＝＝０）１Ｉ　（ｆｕｃＣｈｅｃｋＬｅｎｇｔｈ（ｅｍａｉｌ）＞４０））　（ａｌｅｒｔ（”请填写正确的ｅ－ｍａｉｌ地址。”）：　ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｅｍａｉｌ．ｆｏｃｕｓ（）；ｒｅｔｕｒｎ　ｆａｌｓｅ；　）　ｐｏｓｔｃｏｄｅ＝ｄｏｃｕｍｅｎｔ．ｆｏｒｍ１．ｐｏｓｔｃｏｄｅ．ｖａｌｕｅ；　平台、跨浏览器运行；②适合多种表单网页动态验证数据。应　用范例和实际运行表明，该方案简洁实用，较好地满足了通用　性的应用需求。　参考文献：　ｉｆ（ｃｈｋｓｐｃ（ｐｏｓｔｃｏｄｅ）＝＝０１１（ｆｕｃＣｈｅｃｋＬｅｎｇｔｈ（ｐｏｓｔｃｏｄｅ）＞１　５）　ｌＩｆｕｃＣｈｅｃｋＮＵＭ（ｐｏｓｔｃｏｄｅ）＝＝Ｏ）　｛ａｌｅｒｔ（”请您填写正确的邮政编码，它由数字组成。”）：　ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｐｏｓｔｃｏｄｅ．ｆｏｃｕｓ（）；ｒｅｔｕｒｎ　ｆａｌｓｅ；　）　ｕｓｅｐｈｏｎｅ＝ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｕｓｅｐｈｏｎｅ．ｖａｌｕｅ；　【１ｌＴｏｍＮｅｇｒｉｎｏ，Ｄｏｒｉ　Ｓｍｉｔｈ著，陈创瓯等译．ＪａｖａＳｃｒｉｐｔ基础赦程（第７　版）ｆＭ１．人民邮电出版社，２００９．　【２】Ｍｉｃｈａｅｌ　Ｍｏｎｃｕｒ著，王军译．ｄａｖａＳｃｒｉｐｔ入门经典（第４版）【Ｍ】．人民邮　电出版社．２００８．　【３】熊圣芬，贺智明，王俊．基于ＪａｖａＳｃｆｉｐｔ和ＤＯＭ的动态表单设计及教　据提交［Ｊ】．江西理工大学学报，２００９．２：３１￣３３　ｉｆ（ｕｓｅｐｈｏｎｅ＝＝”ｌ　Ｉｃｈｋｓｐｃ（ｕｓｅｐｈｏｎｅ）＝＝Ｏ　ｌ　ｌｆｕｃＣｈｅｃｋＬｅｎｇｔｈ　（ｕｓｅｐｈｏｎｅ）＞３ＯＩＩｆｕｃＣｈｅｃｋＴＥＬ（ｕｓｅｐｈｏｎｅ）＝＝Ｏ）　｛ａｌｅｒｔ（”您的常用电话号码填写有误。”）：　ｄｏｃｕｍｅｎｔ．ｆ０ｒｍ１．ｕｓｅｐｈｏｎｅ．ｆｏｃｕｓ（）；ｒｅｔｕｒｎ　ｆａｌｓｅ；　）　Ｉ４ｌ张彦芳，谢虹．基于ＪａｖａＳｃｒｉｐｔ的客户端表单验证【Ｊ】．生产一线，２００９：３３　【５ｌ徐卫英．《脚本语言与动态网页设计》谋程教学案例的设计【Ｊ】．苏州大　学学报，２０ｏ８・　２：７９—８　■　《上接第４２页）　ｂｅｇｉｎ　４结束语　本文详细介绍了使用Ｄｅｌｐｈｉ调用ＶＣ＋＋生成的动态链接库　（ＤＬＬ）来实现地质和工程数据文件描述块ＡＳＣＩＩ字符串读取　ｅｄｉｔ１．ｔｅｘｔ：＝ｏｕｔｐｕｔｓｔｒｉｎｇ０；／／调用动态链接库中的函数　ｅｎｄ；　的方法和步骤。只要稍作修改就可以通过这样的方法读取文　到工程目录下，点击运行，然后在运行窗口上单击“输出ＡＳＣＩＩ　件中其他所有的地质和工程数据资料，进行下一步的计算和处　字符串”按钮，文本框显示如图５所示。可见，与图２中ＷｉｎＨｅｘ　将前面已生成的Ｓｅｇ２．ＤＬＬ及数据文件ｄａｔａ＿ｓｅｇ２．ｓｇｙ拷贝　理工作。虽然，这里只以动态链接库封装数据读取函数的实　例，但是，Ｄｅｌｐｈｉ也可以通过这样的方式调用其他的函数。这　种方法不仅发挥了Ｃ语言底层编程计算大量地质和工程数据　速度快的优势，还利用了Ｄｅｌｐｈｉ简单、易学、易用的界面图形编　显示出的ＳＥＧ一２文件描述块ＡＳＣＩＩ字符串相符合。　ＳＥＧ　缓　据文件描述块字符串　程特点。　参考文献：　【１】牛江民．Ｄｅｌｐｈｉ７开发基础教程【Ｍ】．科学出版社，２００５．　ＩＴＰ￣ＣＬＳＯＲＴ　Ｅ０ＭＭ石　石　再疆一一一　一一～一　‘；；　褥磁　ｉ鸸竽符攀Ｉ　；　；　【２】肖庆航．Ｄｅｐｈｉ７数据　库开发教程【Ｍ】．清华大学出版社，２００４．　【３】侯俊杰．深入浅出ＭＦＣ［Ｍ］．华中科技大学出版社，２００１．　【４ｌ张慧龙，刘君宝．面波法的数据采集处理系统反其应用实例【Ｊ】西部探　矿工程．２００７．１２．　图５　Ｄｅｌｐｈｉ调用ｓｅｇ２．ＤＬＬ读出的ＳＥＧ一２文件描述块ＡｓＣⅡ字符串　至此，我们介绍了使用Ｄｅｌｐｈｉ调用ＶＣ生成的动态链接库　５】徐维秀，段卫星．表层结构调查资料的毅字化处理及应用【Ｊ】．物探化探　ＣＤＬＬ）来实现数据文件描述块ＡＳＣＩＩ字符串读取的步骤，这种　ｆ方法比纯Ｄｅｌｐｈｉ或Ｃ语言编程省时，省力。　计算技术，２００５．５．