说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

在程序中获取网络资源信息-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
在程序中获取网络资源信息-Delphi资料

充分利用局域网中的共享资源,无疑将减少用户的硬件和软件投资。在我们的程序中,常常会需要列举局域网络中的共享资源,如在MIDAS多层应用程序中可能要选择上层应用程序所在的服务器的名称、在打印模块中选择可用的网络打印机、在应用程序中选择其它机器上的共享文件等。

以一个MIDAS三层数据库应用程序为例子,我们可以用DELPHI制作一个客户端应用程序和一个中间层业务处理程序,由中间层业务处理程序向数据库存取数据,再将结果反馈到客户端。当客户端应用程序与中间层程序和数据库服务程序不在一台机器上时,需要指定中间层程序和数据库服务程序所在的服务器的名称。

在DELPHI程序中,我们可以通过WIN API来列举局域网络中的服务器名称、用户计算机名称、用户共享目录和文件、共享打印机等资源,这些API由文件MPR.DLL提供。

下面以WIN9X的对等网络为例子,列举“网络邻居”中的工作组名称、用户计算机名称、共享目录和文件、共享打印机等资源。

一、列举“网络邻居”中的工作组名称

在“网络邻居”中,打开“整个网络”,可以看到网络中的所有工作组的名称。在DELPHI程序中,可以用API函数WNetOpenEnum和WNetEnumResource来列举“网络邻居”中的工作组名称。

下面是两个API函数的简介,具体请参见DELPHI帮助文件。

//WNetOpenEnum用于获取一个网络资源句柄,作为WNetEnumResource列举网络资源的依据,其函数原型如下:

function WNetOpenEnum(

dwScope

//网络范围

RESOURCE_CONNECTED(已连接机器)

RESOURCE_GLOBALNET(所有机器)

RESOURCE_REMEMBERED(已记忆的机器)

dwType

//资源类型

RESOURCETYPE_ANY(所有资源)

RESOURCETYPE_DISK(文件资源)

RESOURCETYPE_PRINT(打印资源)

dwUsage//资源用途

0(所有资源)

RESOURCEUSAGE_CONNECTABLE(所有可连接资源)

RESOURCEUSAGE_CONTAINER(所有container资源)仅在dwScope为RESOURCE_GLOBALNET是有效

: DWORD;

lpNetResource: PNetResource;//NetResource类型指针,其内存表示网络资源的层次

为NIL时表示最上层,仅在dwScope为RESOURCE_GLOBALNET时有效

其它情况时应为NIL

var lphEnum: THandle//返回网络资源句柄,是WNetEnumResource进一步列举网络资源的依据): DWORD; stdcall;返回值NO_ERROR表示执行成功,否则应用GetLastError获取错误信息

//WNetEnumResource用于列出当前网络中可用的资源,包括文件资源和打印资源,其函数原型如下:

function WNetEnumResource(

hEnum: THandle;//WNetEnumResource进一步列举网络资源的依据

通常由WNetOpenEnum取得var lpcCount: DWORD;//要取得资源的数目,$FFFFFFFF表示列出所有资源,返回值为实际资源数目lpBuffer: Pointer;//接收结果的缓冲区的指针,一般是NetResource类型的数组

var lpBufferSize: DWORD//接收结果的缓冲区大小(Byte)

): DWORD; stdcall;

返回值为NO_ERROR(执行成功)或ERROR_NO_MORE_ITEMS(资源列举完毕),否则应用GetLastError获取

错误信息。

要列举网络中的工作组信息,首先要获取网络中的网络类型,再获取每一种类型网络中包含的工作组的名称。

1、获取网络类型信息

局域网中可以是由多种类型的网络组成,如由Microsoft、Novell等类型的网络组成。用API  函数WNetOpenEnum和WNetEnumResource可以获取网络类型信息。

(1)用WNetOpenEnum函数返回一个句柄,作为WNetEnumResource列举网络资源的依据。我们的目标是列举“整个网络”的工作组名称,因而网络范围为RESOURCE_GLOBALNET(所有机器)、资源类型为RESOURCETYPE_DISK(文件资源)、资源用途为RESOURCEUSAGE_CONTAINER(所有container资源)、

网络层次为最高层(NIL),这样可以得到一个句柄,以便进一步列举网络资源。具体的程序段如下:

{ Res : DWORD; lphEnum : THandle; }

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

Nil

lphEnum);

If Res <> NO_ERROR Then exit;//执行失败

(2)用API函数WNetEnumResource可以获取网络类型信息,此时要用到上面获取的句柄lphEnum,

可以获取一个NetResource类型的数组,每个NetResource元素即为一种网络类型信息。

具体的请参见以下程序段及注释信息。

type

TNetResourceArray = ^TNetResource;//网络类型的数组

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWORD;

lphEnum : THandle;

p : TNetResourceArray;

i

j : SmallInt;

NetworkTypeList : TList;

begin

......

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);//获取网络类型信息

If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕

or (Res <> NO_ERROR )//执行失败

Then Exit;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//记录各个网络类型的信息

Begin

NetworkTypeList.Add(p);

Inc(P);

End;

......

end;

2、获取工作组信息

在获取网络类型信息后,可以根据此信息获取此类型网络中的服务器(工作组)信息。

在WNetOpenEnum函数中,将参数lpNetResource指定为一种网络类型信息,可以获取一个句柄,在WNetEnumResource中利用这个句柄,可以获取一个NetResource类型的数组,每个NetResource元素的lpRemoteName部分即为一个工作组名称(如MyWorkGroup”)。

具体的请参见以下程序段及注释信息。

//列出一个网络类型中的所有工作组名称

NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息

//获取某个网络类型的文件资源的句柄,NetResource为网络类型信息,lphEnum为返回句柄

Res := WNetOpenEnum(RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

If Res <> NO_ERROR Then break;//执行失败

While true Do//列举一个网络类型的所有工作组的信息

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取一个网络类型的文件资源信息,

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕

or (Res <> NO_ERROR) //执行失败

then break;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//列举各个工作组的信息

Begin

List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称

Inc(P);

End;

End;

3、获取工作组信息的完全源代码

//列举出整个网络中的工作组名称,返回值为TRUE表示执行成功,

//参数List中返回服务器(工作组)的名称

Function GetServerList( var List : TStringList ) : Boolean;

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWORD;

lphEnum : THandle;

p : TNetResourceArray;

i

j : SmallInt;

NetworkTypeList : TList;

Begin

Result := False;

NetworkTypeList := TList.Create;

List.Clear;

//获取整个网络中的文件资源的句柄,lphEnum为返回名柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

Nil

lphEnum);

If Res <> NO_ERROR Then exit;//Raise Exception(Res);//执行失败

//获取整个网络中的网络类型信息

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If ( Res = ERROR_NO_MORE_ITEMS )//资源列举完毕

or (Res <> NO_ERROR )//执行失败

Then Exit;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//记录各个网络类型的信息

Begin

NetworkTypeList.Add(p);

Inc(P);

End;

//WNetCloseEnum关闭一个列举句柄

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then exit;

For J := 0 To NetworkTypeList.Count-1 Do //列出各个网络类型中的所有工作组名称

Begin//列出一个网络类型中的所有工作组名称

NetResource := TNetResource(NetworkTypeList.Items[J]^);//网络类型信息

//获取某个网络类型的文件资源的句柄,NetResource为网络类型信息,lphEnum为返回名柄

Res := WNetOpenEnum(RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

If Res <> NO_ERROR Then break;//执行失败

While true Do//列举一个网络类型的所有工作组的信息

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取一个网络类型的文件资源信息,

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If ( Res = ERROR_NO_MORE_ITEMS ) //资源列举完毕

or (Res <> NO_ERROR) //执行失败

then break;

P := TNetResourceArray(Buf);

For I := 0 To Count - 1 Do//列举各个工作组的信息

Begin

List.Add( StrPAS( P^.lpRemoteName ));//取得一个工作组的名称

Inc(P);

End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then break;//执行失败

End;

Result := True;

FreeMem(Buf);

NetworkTypeList.Destroy;

End;

二、列举一个工作组中的计算机名称

在WNetOpenEnum函数中,将参数lpNetResource中的lpRemoteName部分指定为一个工作组的名称(如“MyWorkGroup”),可以获取一个句柄,在WNetEnumResource中利用这个句柄,可以获取一个NetResource类型的数组,每个NetResource元素的lpRemoteName部分即为一个计算机名称(如“\\wangfajun”)。

具体的请参见以下程序段及注释信息。

NetResource.lpRemoteName := @GroupName[1];//指定工作组名称

NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//显示类型为服务器(工作组)

NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;

NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息

//获取指定工作组的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

获取计算机名称的完全程序源代码如下:

//列举出指定工作组GroupName中的计算机名称,返回值为TRUE表示执行成功,

//参数List中返回计算机名称

Function GetUsers( GroupName : string; var List : TStringList ) : Boolean;

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWord;

Ind : Integer;

lphEnum : THandle;

Temp : TNetResourceArray;

Begin

Result := False;

List.Clear;

FillChar(NetResource

SizeOf(NetResource)

0);//初始化网络层次信息

NetResource.lpRemoteName := @GroupName[1];//指定工作组名称

NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;//类型为服务器(工作组)

NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;

NetResource.dwScope := RESOURCETYPE_DISK;//列举文件资源信息

//获取指定工作组的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_DISK

RESOURCEUSAGE_CONTAINER

@NetResource

lphEnum);

If Res <> NO_ERROR Then Exit; //执行失败

While True Do//列举指定工作组的网络资源

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取计算机名称

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕

If (Res <> NO_ERROR) then Exit;//执行失败

Temp := TNetResourceArray(Buf);

For Ind := 0 to Count - 1 do//列举工作组的计算机名称

Begin

//获取工作组的计算机名称,+2表示删除"\\",如\\wangfajun=>wangfajun

List.Add(Temp^.lpRemoteName + 2);

Inc(Temp);

End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then exit;//执行失败

Result := True;

FreeMem(Buf);

End;

三、列举一个计算机中的共享资源

在WNetOpenEnum函数中,将参数lpNetResource中的lpRemoteName部分指定为一个计算机的名称(如“\\wangfajun”),可以获取一个句柄,在WNetEnumResource中利用这个句柄,可以获取一个NetResource类型的数组,每个NetResource元素的lpRemoteName部分即为计算机中的共享资源名称(可以是共享目录和文件名称、共享打印机名称等,如“\\wangfajun\共享文件”)。

具体的请参见以下程序段及注释信息。

NetResource.lpRemoteName := @UserName[1];//指定计算机名称

//获取指定计算机的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_ANY

RESOURCEUSAGE_CONNECTABLE

@NetResource

lphEnum);

获取计算机名称的完全程序源代码如下:

//列举出指定计算机UserName中的共享资源名称,返回值为TRUE表示执行成功,

//参数List中返回共享资源名称

Function GetUserResource( UserName : string ; var List : TStringList ) : Boolean;

Var

NetResource : TNetResource;

Buf : Pointer;

Count

BufSize

Res : DWord;

Ind : Integer;

lphEnum : THandle;

Temp : TNetResourceArray;

Begin

Result := False;

List.Clear;

FillChar(NetResource

SizeOf(NetResource)

0);//初始化网络层次信息

NetResource.lpRemoteName := @UserName[1];//指定计算机名称

//获取指定计算机的网络资源句柄

Res := WNetOpenEnum( RESOURCE_GLOBALNET

RESOURCETYPE_ANY

RESOURCEUSAGE_CONNECTABLE

@NetResource

lphEnum);

If Res <> NO_ERROR Then exit;//执行失败

While True Do//列举指定工作组的网络资源

Begin

Count := $FFFFFFFF;//不限资源数目

BufSize := 8192;//缓冲区大小设置为8K

GetMem(Buf

BufSize);//申请内存,用于获取工作组信息

//获取指定计算机的网络资源名称

Res := WNetEnumResource(lphEnum

Count

Pointer(Buf)

BufSize);

If Res = ERROR_NO_MORE_ITEMS Then break;//资源列举完毕

If (Res <> NO_ERROR) then Exit;//执行失败

Temp := TNetResourceArray(Buf);

For Ind := 0 to Count - 1 do

Begin

//获取指定计算机中的共享资源名称,+2表示删除"\\",

//如\\wangfajun=>wangfajun

List.Add(Temp^.lpRemoteName + 2);

Inc(Temp);

End;

End;

Res := WNetCloseEnum(lphEnum);//关闭一次列举

If Res <> NO_ERROR Then exit;//执行失败

Result := True;

FreeMem(Buf);

End;

以上程序在PWIN98+DELPHI3.0下调试通过。

ASP.NET如何用C#代码检测手机浏览器 使用C#读取上传的Excel文件 新版本SQL Helper类 C#使用iTextsharp生成PDF 在.NET里用iTextSharp库生成PDF文档 用itextsharp将ASP.NET页面导出到PDF中 什么是JQuery-JQuery API jQuery入门指南-JQuery API jQuery的核心部分-JQuery API $(elements)-JQuery API $(expr, context)-JQuery API $(fn) -JQuery API $(html) -JQuery API $.extend(prop) -JQuery API $.noConflict() -JQuery API each(fn)-JQuery API eq(pos)-JQuery API get(num)-JQuery API get()-JQuery API gt(pos)-JQuery API index(subject)-JQuery API length-JQuery API lt(pos)-JQuery API size()-JQuery API CSS-JQuery API css(key, value)-JQuery API css(name)-JQuery API css(properties)-JQuery API height(val) -JQuery API height()-JQuery API width(val)-JQuery API 贴子为什么掉到第二页上再UP就回不到第一页去了?见龟!——千山一刀 ^^^^^^^^^如何配置sybase的clinet端????^^^^^^^^^^^^^^^^^^^^ 进程与线程 在win2000系统下,构建asp+sql的web站点,但在web页中无法显示出小数点前的零? 如何配置sybase的clinet端? 关于webbrowser。 TO:riolee(随风) 关于directshow的 开始菜单中的运行找不到 请问各位谁能提供 CString 里有一个operator LPCTSTR,难道这个LPCTSTR也可以被重载,它不是操作符啊,也不在可被重载的范围中啊? 请问到何处用蚂蚁下载photoshop6.01软件 在UPDATE的时候,如何返回受影响的记录个数?[Oracle8i] 请问各位谁能提供jpeg文件格式的中文说明??????????????????? [question]tmd的,有人惹我,怎么办 Windows CE, Windows NT Embedded等嵌入式操作系统和相关开发工具在上海如何购买??? mobile web application 里的softkey到底是怎么回事呀 [心情不好]砂粉阿 告他[我好伤心] 将2进制(16位)转为16进制(4位),怎么做? 请教!( VC.NET 里面怎么使用 MSFlexGrid ? JAVA的版本问题 哪儿有C#单独的编译器下载啊 ASP新手提问! 有谁知道在DELPHI中得到包括硬盘、多媒体、主板等信息? 请问小新,以及其它delphi高手一个简单问题,我从网上下载了一个报表控件,请问该如何使用? 一个关于TWinSocketStream的问题 scjp考题一道!!!!!!!! 小弟初学,如何从CString 转化到 int .thanks a lot. 我要学习数据结构,算法,离散数学..... [不爽阿]今天圣诞,有人惹我 关于临时表的共享问题? 是不是我的问题太难了,没有人回答? 请举例说明:接口是怎样实现多重继承的? 听说最近由于IT行业不景气,程序员的工资缩水了?是真的么? 这样写有什么不对?? delphi的dll库返回后调用程序出错!加了一行无关代码却正常!求教各位大狭! 塔尼包姆出了不1本计算机结构的书,还有1本MICROSOFT的 Microsoft Windows 用户界面开发 请问是否很好 Access初学者问一 再次请教一个sql排序问题,一定给分。 请问:程序中对WM_PAINT,WM_CTLCOLOR,WM_ERASEBKGND三个消息处理的顺序是怎样的? 这个月生意只有上个月的1/5,怎么回事? 我女朋友说最爱她的人不是我,这意味着什么? 工资里导入上月数据怎么实现 谁有复读王(fyfdw2001)的注册码? 经过一段时间的努力,我做出一套电话语音邮件系统,可以用电话和手机来收发EMAIL,有意者请与我联系 xuyaoliang@263.net 请救救我吧!有谁能告诉我中程的分数怎么查! 如何解决数据窗口显示照片(此照片在数据库的一个字段里)的问题? 请问如何获取硬盘和光驱的型号信息 谁有复读王(fyfdw2001)的注册码??????? n_up的问题。如何在另一列插入计算字段? 有没有深圳的mm,一起过圣诞好吗? 根据经纬度计算日出时间如题,我能提供的数据只是,中国国内任意一个城市的经度和纬度.例如广州(东经113.48、北纬23.6)以及日期,例如2009-01-09要求能计算出当地当天的日出、正午、日落时 在括号内填上恰当的成语或合适的诗句夏日炎炎,( ),我们到玄武湖风景区游玩,那里的荷花开了,真是( ),( ).泛舟湖上,让人( ).“六月的天,孩子的脸.”忽然间,“( ),( .)”大雨倾盆 371,429,516反别除以A后所得余数相同,则A=? 1除以21表示两个数( ),还可以表示( ) 在括号里填上恰当的成语,古诗名我很喜欢旅游,每到一处总是免不了感慨一番.登上长城我( )的想起了( ),( ),( )等成语;乘舟漾起西湖,我不禁想起了( )的诗句;来到海边,我( )地想 用一个字概括《皇帝的新装》中心事件 自由时差有两个紧后工作时该怎么计算?自由时差=紧后工作的最早开始时间-当前工作的最迟完成时间.那么当有两个紧后工作,且紧后工作的最早开始时间不同时,是按照大的最早开始时间计算, 在括号里填上恰当的成语或古诗句⒉我很喜欢旅游,每到一处总免不了感慨一番.登上长城我__地想起了____、____、____等成语;乘舟荡漾西湖,我不禁想起____、___ 皇帝的新装 以_____为中心,以_____为线索,以_____为顺序? 时标网络计划怎样才能计算出最迟开始时间和最迟完成时间以及总时差时标图怎样才能计算出最迟开始时间和最迟完成时间以及总时差?2二级建造师z103030习题集多项选择题第12题答案与解析: 纬度和经度都为0度的是什么洋 皇帝的新装的中心意思 某工程双代号网络计划中A工作的持续时间为5天,总时差为8天,自由时差为4天.如果A工作实际进度拖延12天则会影响工程计划工期( )天 本初子午线以东的经线为 ,以西的经线为 .东西经度最大值为 .迟到的纬度是 .南.北纬度的最大值为 ,分别位于 和 . 皇帝的新装的中心句是? 求解双代号网络计划工作C的最迟完成时间和工作C的总时差.求详解3:工作C的最迟完成时间为(). A.0 B.3 C.5 D.11 4:工作C的总时差为(). A.0 B.3 C.5 D.8 生活中有没有类似《皇帝的新装》的闹剧呢? 皇帝的新装的中心思想是什么? 用成语表示下列句子的意思,成语呀1.痛苦伤心得像要死了2.名次排在前面的,很优秀3.喜悦非常,觉得超过所希望的4.容不得怀疑、猜测5.一点好处都没有 皇帝的新装感悟,要联系生活实际 56.96.148被某数除,余数相同,且不为零,求284被这个自然数的余数 与学习有关的诗句,和俗语. 皇帝的新装让我们联想到什么“真实的生活”现象?说说你的看法安徒生说:“最奇妙的童话都是从真实的生活中产生的.” 57,59,148被某自然数除,余数相同,且除数比余数大14,求除数和余数 我国跨经度最广的省区,最南的省区,最北的省区,最西的省区,最东的省区,邻国最多的省区,邻省最多的省区,面积最大的省区,长江和黄河都流经的省区,长江的上游和中游都流经的省区?【有点多 地理算时差的怎么算求时差和经度的计算公式,写在下面 请问《皇帝的新装》中反映生活的主要方式是什么?麻烦大家快一点 填上动物的名称,组成成语抱头( )窜 叶公好( ) 悬崖勒( ) 地理时差怎么算 皇帝的新装 这个故事在现实生活中有类似的情况吗简要分析急 一又4/5乘(一又3/5+2.5)-0.65除以二又1/6=多少 ?要过程 关于地理时差计算每隔经度15°就一个时区,而跨过日界线就加或减一天,那么东八区和西八区相差多少个时区?(按照越过日界线计算),那东八区八月八日晚上8点,西八区是几月几日几点? 0°经线以西为——,越向西经度越,以东为 ,越向东经度越 .经线又称 ,经线... 课本是湖南教育出版社对时区的理解,比如一架飞机10月1日从武汉(东8区)飞往美国旧金山(西8区),途径14个小时,求到目的地时,当地时间是: 我就是看书上写的,有一点儿不明白:假设日本是5月5日中午12点,美国是5月4日晚上8点,问是从日本飞美国辛苦还是美国飞回日本辛苦..它的解释是,因为从日本飞往美国,“一天”的时间少于24小 皇帝的新装告诉我们: 地理时区计算请问有哪位知道我们地理上的时区时怎么样计算的呢? 如图,圆心为北极点,阴影表示夜半球.此时,全球同属一天,问M点的经度是多少?请附带你的解题思路和过程,M点为甲东边第三条经线与纬线圈的交点 皇帝的新装 位于东十二区的轮船于5月4日10时向东行驶入西十二区,这时船上的时间是( ).A、5月4日10时B、5月5日10时C、5月3日10时D、5月4日11时 填成语猜谜语.( )针引线 ( )上添花 ( )冠禽兽 ( )月披星 ( )颜薄命( )言巧语 ( )苦连天 ( )目了然 ( )东击西 ( )天动地( )马奔腾 ( )喻户晓 在经纬网的地图上经线指什么方向,纬线指什么方向 初中地理有关时区的内容 填成语,猜谜语1.焉不详 能自已 弓之鸟 心向背不旋踵 一而足 戚与共2.少离多 眉焦急 泻千里 水思源缄其口 步穿杨 盘狼籍3.起彼伏 径通幽 争朝夕 接不暇作之合 行下效 征无战 请问在有经纬网的地图上,根据经纬网辨方向,经线指示什么方向?纬线指示什么方向?黄土高原的生态环境十分脆弱,制约其农业发展的最关键因素请问是什么和什么 68.5+31.5除以(0.29+0.41) 如何简算? 填成语 猜谜语 1、填成语 猜谜语先把成语填完整,再把所填的字按顺序连起来作谜面,打一动物.( )针引线 ( )上添花 ( )冠禽兽( )月坡星 ( )颜薄命 ( )言巧语( )苦连天 ( ) 皇帝的新装(人物的性格特点)大臣(官员):皇帝:小孩:骗子:要简洁明了! 90除以29= 猜谜填成语1不考虑中间( ) 2总共五句话( ) 3火车上演戏( )4骑兵踩地雷( ) 5单口说相声( ) 6一个巴掌打不响( )7走遍千家串万户( )8邮筒堵塞了( ) 9孩子玩跷跷板( )10桃花 皇帝的新装人物特点 用动物名填空,组成成语老(?)破车 老(?)生珠 瘦(?)博士 猜谜语,填成语八分之七 皇帝的新装中 各个人物的性格特点具体一点 填上动物名称,组成成语:( )章( )姿( )骧( )视 英语翻译他已下定决心去外国求学 (pursue) 皇帝的新装 各个人物的性格特点 地球分为多少个时区,中国跟英国时差多少? 智猜谜语.根据前面的古诗,在括号里填上恰当的成语:谁知盘中餐,粒粒皆辛苦 皇帝的新装里人物的性格特点 皇帝:两个骗子:老大臣:百姓:
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn