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

网络和通讯编程-Delphi资料

HTML文档下载 WORD文档下载 PDF文档下载
网络和通讯编程-Delphi资料

一个串口通讯的问题?

Serial Port Communications?

I want to build a simple electrical controller which receives input from a

sensor through a comm port and either turns a power source(s) on or off

based upon this signal. I want this controller to be software in nature.

How do I communicate through the port and is it possible to discern changes

in voltage.

If not

what kind of signal must be input.

When you want to write and read only binary signals you can use the printer

parallel port. For that purpose the Port command is useful. In the below an

example of some D1 code used for bidirectional 2 wire bus communication (I2C).

BaseAddress is $278

$378 or $3BC

depending on the LPT port used for

communication.

There is a 'but'. In D1 the port function was available but not documented. In

D2 and D3 it seems to have disappeared entirely (Please somebody correct me if

this is wrong).

We are using the parallel printer port with attached a small interface card

with some I/O buffering for control of RF modules. Could somebody indicate

whether the Port function still exist or what the alternative could be ?

regards

Hans Brekelmans

PROCEDURE SetIICline(Terminal: IICterminalTypes; High: Boolean);

Var Count : Word;

CtrlAddress: word;

Begin { set iic line }

CtrlAddress:=BaseAddress+2;

Case Terminal of

SCL : if High then Port[CtrlAddress]:=$08 else Port[CtrlAddress]:=$00;

SDA : if NOT High then Port[BaseAddress]:=$80 else Port[BaseAddress]:=$00;

END;

For Count := 1 to ClockDelay do;

End; {SetIICline}

FUNCTION GetIICline(Terminal: IICterminalTypes): Boolean;

const SDA_IN=$80; { SDA: 25 pin #11

status

NOT BUSY

bit 7 }

SCL_IN=$08; { SCL: 25 pin #15

status

NOT Error

bit 3 }

var Count : Word;

ReadAddress: word;

Begin

ReadAddress:=BaseAddress+1;

CASE Terminal OF

SCL: GetIICline:=((Port[ReadAddress] AND SCL_IN) = SCL_IN);

SDA: GetIICline:=((Port[ReadAddress] AND SDA_IN) = SDA_IN); { read sda

pin }

END;

For Count := 1 to ClockDelay do;

End;

得到本机IP地址?

How about using winsockets?

This code is untested and ugly.

program get_ip;

uses

winsock

sysutils;

VAR

ch : ARRAY[1..32] OF Char;

i : Integer;

WSData: TWSAData;

MyHost: PHostEnt;

begin

IF WSAstartup(2

wsdata)<>0 THEN

BEGIN

Writeln('can''t start Winsock: Error '

WSAGetLastError);

Halt(2);

END;

try

IF getHostName(@ch[1]

32)<>0 THEN

BEGIN

Writeln('getHostName failed');

Halt(3);

END;

except

Writeln('getHostName failed');

halt(3);

end;

MyHost:=GetHostByName(@ch[1]);

IF MyHost=NIL THEN

BEGIN

Writeln(GetHostName('+StrPas(@ch[1])+') failed : Error

'+IntToStr(WSAGetLastError));

Halt(4);

END

ELSE

BEGIN

Write('address ');

FOR i:=1 TO 4 DO

BEGIN

Write(Ord(MyHost.h_addr^[i-1]));

IF i<4 THEN

write('.')

ELSE

writeln;

END;

END;

end.

任何动态改变/添加网络设置中的 TCP/IP 的 DNS 地址

例如,把 DNS Server的地址添加为192.0.0.1和192.1.1.0,可调用:

SetTCPIPDNSAddresses('192.0.0.1 192.1.1.0') ;

// 各地址之间用一个空格隔开

1. SetTCPIPDNSAddresses 定义如下:

procedure SetTCPIPDNSAddresses( sIPs : string );

begin

//

// if using Windows NT

//

SaveStringToRegistry_LOCAL_MACHINE(

'SYSTEM\CurrentControlSet' +

'\Services\Tcpip\Parameters'

'NameServer'

sIPs );

//

// if using Windows 95

//

SaveStringToRegistry_LOCAL_MACHINE(

'SYSTEM\CurrentControlSet' +

'\Services\VxD\MSTCP'

'NameServer'

sIPs );

end;

2. 其中 SaveStringToRegistry_LOCAL_MACHINE 定义:

uses Registry;

procedure SaveStringToRegistry_LOCAL_MACHINE(

sKey

sItem

sVal : string );

var

reg : TRegIniFile;

begin

reg := TRegIniFile.Create( '' );

reg.RootKey := HKEY_LOCAL_MACHINE;

reg.WriteString( sKey

sItem

sVal + #0 );

reg.Free;

end;

如何在程序中动态取得Win95/98的网络邻居中的工作组及计算机名?

可参考下面代码,或许有所帮助:

procedure GetDomainList(TV:TTreeView);

var

a : Integer;

ErrCode : Integer;

NetRes : Array[0..1023] of TNetResource;

EnumHandle : THandle;

EnumEntries : DWord;

BufferSize : DWord;

s : string;

itm : TTreeNode;

begin

{ Start here }

try

With NetRes[0] do begin

dwScope :=RESOURCE_GLOBALNET;

dwType :=RESOURCETYPE_ANY;

dwDisplayType :=RESOURCEDISPLAYTYPE_DOMAIN;

dwUsage :=RESOURCEUSAGE_CONTAINER;

lpLocalName :=NIL;

lpRemoteName :=NIL;

lpComment :=NIL;

lpProvider :=NIL;

end;

{ get net root }

ErrCode:=WNetOpenEnum(

RESOURCE_GLOBALNET

RESOURCETYPE_ANY

RESOURCEUSAGE_CONTAINER

@NetRes[0]

EnumHandle

);

If ErrCode=NO_ERROR then begin

EnumEntries:=1;

BufferSize:=SizeOf(NetRes);

ErrCode:=WNetEnumResource(

EnumHandle

EnumEntries

@NetRes[0]

BufferSize

);

WNetCloseEnum(EnumHandle);

ErrCode:=WNetOpenEnum(

RESOURCE_GLOBALNET

RESOURCETYPE_ANY

RESOURCEUSAGE_CONTAINER

@NetRes[0]

EnumHandle

);

EnumEntries:=1024;

BufferSize:=SizeOf(NetRes);

ErrCode:=WNetEnumResource(

EnumHandle

EnumEntries

@NetRes[0]

BufferSize

);

IF ErrCode=No_Error then with TV do try

a:=0;

Items.BeginUpDate;

Items.Clear;

Itm:=Items.Add(TV.Selected

string(NetRes[0].lpProvider));

Itm.ImageIndex:=0;

Itm.SelectedIndex:=0;

{ get domains }

下面的一个单元定义了一个组件. TNetworkBrowser

可以枚举hierachical树上所有

的网络资源. 实际上浏览是要花费很长时间的

这您可以通过在WINDOWS资源管理器

中打开"整个网络" 来比较一下. 如果你设置SCOPE属性 为nsContext

你就可以看到

和网络邻居中一样的机器列表.

unit NetBrwsr;

interface

uses

Windows

Messages

SysUtils

Classes

Graphics

Controls

Forms

Dialogs;

type

TNetScope = (nsConnected

nsGlobal

nsRemembered

nsContext);

TNetResourceType = (nrAny

nrDisk

nrPrint);

TNetDisplay = (ndDomain

ndGeneric

ndServer

ndShare

ndFile

ndGroup

ndNetwork

ndRoot

ndShareAdmin

ndDirectory

ndTree

ndNDSContainer);

TNetUsage = set of (nuConnectable

nuContainer);

TNetworkItems = class;

TNetworkItem = class

private

FScope: TNetScope;

FResourceType: TNetResourceType;

FDisplay: TNetDisplay;

FUsage: TNetUsage;

FLocalName: string;

FRemoteName: string;

FComment: string;

FProvider: string;

FSubItems: TNetworkItems;

public

constructor Create;

destructor Destroy; override;

property Scope: TNetScope read FScope;

property ResourceType: TNetResourceType read FResourceType;

property Display: TNetDisplay read FDisplay;

property Usage: TNetUsage read FUsage;

property LocalName: string read FLocalName;

property RemoteName: string read FRemoteName;

property Comment: string read FComment;

property Provider: string read FProvider;

property SubItems: TNetworkItems read FSubItems;

end;

TNetworkItems = class

private

FList: TList;

procedure SetItem(Index: Integer; Value: TNetworkItem);

function GetItem(Index: Integer): TNetworkItem;

function GetCount: Integer;

public

constructor Create;

destructor Destroy; override;

procedure Clear;

procedure Add(Item: TNetworkItem);

procedure Delete(Index: Integer);

property Items[Index: Integer]: TNetworkItem read GetItem write

SetItem; default;

property Count: Integer read GetCount;

end;

TNetworkBrowser = class(TComponent)

private

FItems: TNetworkItems;

FScope: TNetScope;

FResourceType: TNetResourceType;

FUsage: TNetUsage;

FActive: Boolean;

procedure Refresh;

procedure SetActive(Value: Boolean);

procedure SetScope(Value: TNetScope);

procedure SetResourceType(Value: TNetResourceType);

procedure SetUsage(Value: TNetUsage);

procedure EnumerateNet(NetItems: TNetworkItems; lpnr: PNetResource);

protected

public

constructor Create(AOwner: TComponent); override;

destructor Destroy; override;

procedure Open;

procedure Close;

property Items: TNetworkItems read FItems;

published

property Scope: TNetScope read FScope write SetScope default nsGlobal;

property ResourceType: TNetResourceType read FResourceType

write SetResourceType default nrAny;

property Usage: TNetUsage read FUsage write SetUsage default [];

property Active: Boolean read FActive write SetActive default False;

end;

implementation

type

PNetResourceArray = ^TNetResourceArray;

TNetResourceArray = array[0..0] of TNetResource;

{ TNetworkItem }

constructor TNetworkItem.Create;

begin

inherited;

FSubItems := TNetworkItems.Create;

end;

destructor TNetworkItem.Destroy;

begin

if FSubItems <> nil then

FSubItems.Free;

inherited;

end;

{ TNetworkItems }

constructor TNetworkItems.Create;

begin

inherited;

FList := TList.Create;

end;

destructor TNetworkItems.Destroy;

begin

Clear;

if FList <> nil then

FList.Free;

inherited;

end;

procedure TNetworkItems.SetItem(Index: Integer; Value: TNetworkItem);

begin

if (FList.Items[Index] <> nil) and (FList.Items[Index] <> Value) then

TNetworkItem(FList.Items[Index]).Free;

FList.Items[Index] := Value;

end;

function TNetworkItems.GetItem(Index: Integer): TNetworkItem;

begin

Result := TNetworkItem(FList.Items[Index]);

end;

procedure TNetworkItems.Clear;

begin

while Count > 0 do

Delete(0);

end;

procedure TNetworkItems.Add(Item: TNetworkItem);

begin

FList.Add(Item);

end;

procedure TNetworkItems.Delete(Index: Integer);

begin

if FList.Items[Index] <> nil then

TNetworkItem(FList.Items[Index]).Free;

FList.Delete(Index);

end;

function TNetworkItems.GetCount: Integer;

begin

if FList <> nil then

Result := FList.Count

else

Result := 0;

end;

{ TNetworkBrowser }

constructor TNetworkBrowser.Create(AOwner: TComponent);

begin

inherited Create(AOwner);

FItems := TNetworkItems.Create;

FScope := nsGlobal;

FResourceType := nrAny;

FUsage := [];

end;

destructor TNetworkBrowser.Destroy;

begin

if FItems <> nil then

FItems.Free;

inherited;

end;

procedure TNetworkBrowser.EnumerateNet(NetItems: TNetworkItems; lpnr:

PNetResource);

var

dwResult

dwResultEnum: Integer;

hEnum: THandle;

cbBuffer

cEntries

i: Integer;

nrArray: PNetResourceArray;

NewItem: TNetworkItem;

dwScope

dwType

dwUsage: Integer;

begin

cbBuffer := 16384;

cEntries := $FFFFFFFF;

case FScope of

nsConnected: dwScope := RESOURCE_CONNECTED;

nsGlobal: dwScope := RESOURCE_GLOBALNET;

nsRemembered: dwScope := RESOURCE_REMEMBERED;

nsContext: dwScope := RESOURCE_CONTEXT;

else

dwScope := RESOURCE_GLOBALNET;

end;

case FResourceType of

nrAny: dwType := RESOURCETYPE_ANY;

nrDisk: dwType := RESOURCETYPE_DISK;

nrPrint: dwType := RESOURCETYPE_PRINT;

else

dwType := RESOURCETYPE_ANY;

end;

dwUsage := 0;

if nuConnectable in FUsage then

dwUsage := dwUsage or RESOURCEUSAGE_CONNECTABLE;

if nuContainer in FUsage then

dwUsage := dwUsage or RESOURCEUSAGE_CONTAINER;

dwResult := WNetOpenEnum(dwScope

dwType

dwUsage

lpnr

hEnum);

if dwResult <> NO_ERROR then Exit;

GetMem(nrArray

cbBuffer);

repeat

dwResultEnum := WNetEnumResource(hEnum

cEntries

nrArray

cbBuffer);

if dwResultEnum = NO_ERROR then

for i := 0 to cEntries-1 do

begin

NewItem := TNetworkItem.Create;

case nrArray[i].dwScope of

RESOURCE_CONNECTED: NewItem.FScope := nsConnected;

RESOURCE_GLOBALNET: NewItem.FScope := nsGlobal;

RESOURCE_REMEMBERED: NewItem.FScope := nsRemembered;

RESOURCE_CONTEXT: NewItem.FScope := nsContext;

else

NewItem.FScope := nsGlobal;

end;

case nrArray[i].dwType of

RESOURCETYPE_ANY: NewItem.FResourceType := nrAny;

RESOURCETYPE_DISK: NewItem.FResourceType := nrDisk;

RESOURCETYPE_PRINT: NewItem.FResourceType := nrPrint;

else

NewItem.FResourceType := nrAny;

end;

case nrArray[i].dwDisplayType of

RESOURCEDISPLAYTYPE_GENERIC: NewItem.FDisplay := ndGeneric;

RESOURCEDISPLAYTYPE_DOMAIN: NewItem.FDisplay := ndDomain;

RESOURCEDISPLAYTYPE_SERVER: NewItem.FDisplay := ndServer;

RESOURCEDISPLAYTYPE_SHARE: NewItem.FDisplay := ndShare;

RESOURCEDISPLAYTYPE_FILE: NewItem.FDisplay := ndFile;

RESOURCEDISPLAYTYPE_GROUP: NewItem.FDisplay := ndGroup;

RESOURCEDISPLAYTYPE_NETWORK: NewItem.FDisplay := ndNetwork;

RESOURCEDISPLAYTYPE_ROOT: NewItem.FDisplay := ndRoot;

RESOURCEDISPLAYTYPE_SHAREADMIN: NewItem.FDisplay :=

ndShareAdmin;

RESOURCEDISPLAYTYPE_DIRECTORY: NewItem.FDisplay :=

ndDirectory;

RESOURCEDISPLAYTYPE_TREE: NewItem.FDisplay := ndTree;

RESOURCEDISPLAYTYPE_NDSCONTAINER: NewItem.FDisplay :=

ndNDSContainer;

else

NewItem.FDisplay := ndGeneric;

end;

NewItem.FUsage := [];

if nrArray[i].dwUsage and RESOURCEUSAGE_CONNECTABLE <> 0 then

Include(NewItem.FUsage

nuConnectable);

if nrArray[i].dwUsage and RESOURCEUSAGE_CONTAINER <> 0 then

Include(NewItem.FUsage

nuContainer);

NewItem.FLocalName := StrPas(nrArray[i].lpLocalName);

NewItem.FRemoteName := StrPas(nrArray[i].lpRemoteName);

NewItem.FComment := StrPas(nrArray[i].lpComment);

NewItem.FProvider := StrPas(nrArray[i].lpProvider);

NetItems.Add(NewItem);

// if container

call recursively

if (nuContainer in NewItem.FUsage) and (FScope <> nsContext) then

EnumerateNet(NewItem.FSubItems

@nrArray[i])

end;

until dwResultEnum = ERROR_NO_MORE_ITEMS;

FreeMem(nrArray);

WNetCloseEnum(hEnum);

end;

procedure TNetworkBrowser.Refresh;

begin

FItems.Clear;

if FActive then

EnumerateNet(FItems

nil);

end;

procedure TNetworkBrowser.SetActive(Value: Boolean);

begin

if Value <> FActive then

begin

FActive := Value;

Refresh;

end;

end;

procedure TNetworkBrowser.SetScope(Value: TNetScope);

begin

if Value <> FScope then

begin

FScope := Value;

Refresh;

end;

end;

procedure TNetworkBrowser.SetResourceType(Value: TNetResourceType);

begin

if Value <> FResourceType then

begin

FResourceType := Value;

Refresh;

end;

end;

procedure TNetworkBrowser.SetUsage(Value: TNetUsage);

begin

if Value <> FUsage then

begin

FUsage := Value;

Refresh;

end;

end;

procedure TNetworkBrowser.Open;

begin

Active := True;

end;

procedure TNetworkBrowser.Close;

begin

Active := False;

end;

end.

两家巨头相继放弃移动广告,移动广告形势堪忧? 应用洗牌,还能免费多久?Google推出iPad版Quickoffice 2012末日APP推荐 求生自救必备! Windows8上网利器 不卡死的IE10浏览器 为何Java程序员学习Clojure有优势? 我们是如何阅读代码的? “热水冷却”技术将主导美国国防部数据中心改造 程序员想玩转大数据:需要知晓的12种工具 2012年谷歌应用商店增长迅速 但苹果最赚钱 Apple微软Google都在竞购一家创业公司 违反新条款?苹果强行下架AppShopper 2012移动开发教程盘点:最棒的国外游戏开发站 重思JavaScript的好与坏 细数那些 NeXT 留给 OS X 的遗产 一张图让你知道大数据的生态系统 Camera360开放SDK:拍照和滤镜一行代码搞定 一周消息树:计算机将拥有五感 人类面临威胁? 通晓数学的人就可以当程序员吗? 360发布企业版4.0 可自定义软件白名单 不要总是依赖机器 MongoDB扩展彰显分片功夫 Dell与HP的OpenStack的战略:渠道对抗SLA 路况电台王雷:未来车载系统会是Android的天下 移动周报:2012移动开发工具系列盘点 谷歌不愿错失机会 Android或不再成它人独享 黑客文化:Facebook公布2012年Hackathon大赛顶级“黑客作品” 中国移动音乐开放平台正式对外开放 GitLab 4.0发布 更好地支持PostgreSQL 傻瓜式移动应用开发平台:专访摩讯创始人赵健 日本DeNA进军中国智能电视,与海信战略合作 扎克伯格不仅为Poke编码,而且还“献声” Wordament:首款支持Xbox Live成就的iPhone游戏 资源文件的问题,MYBMP1 IS NOT FOUND 有关WINAMP 的问题? 处理字符串以修改数据库 开机显示the secondry IDE channel no 80 cable …… <input type=file name=pic>如何取值,如何设置初始值???? 么样判断一个客户机是否能够连上服务器上数据库,在线等待 在RAVE中如何加上总页数和当前页数? 有缺邮箱用的吗>?现在有了哦,穷人快来啊。。哈哈,我也是其中一个。 请问一个 应用程序登陆SQl Server 时密码的问题? 菜鸟提问! Outlook Express邮件丢失 非典嚣张的日子里的北京(希望惊起大家对SARS的关注)!!! 问一个简单的概念性问题,分却很多.......还可加哦 一个数据映射错误 关于进程通讯的问题 问一个简单的概念性问题,分却很多.......还可加哦 哪里可以找到关于OA方面的资料?越多越好,100分送上 高手请进,怎么监测到一个文件将被覆盖 请问如何屏蔽F1查看帮助的功能? 高手请进,怎么监测到一个文件将被覆盖 能提供解码器么? 在tdi中,怎样获取封包ip头? 神啊!救救我吧!!!!(在线等待) 我看SARS危机 求助 我该怎么办??? 管理登陆问题解决?? 一个简单的问题,如何对字符串进行减操作? 谁用过struts,进来交流一下! 请大侠看看俺的小程序,哪里错了(关于不规则图形填充) delphi查询问题(急需) 急求:从硬盘安装windowsxp时电脑出显不能安装,找不到eula!如何解决? 系统分析员VS博士 C#连接Oracle? 关于<BASE> 那里有WebDB下载啊. 在ListCtrl里加类似Combo Box的东西,能实现吗? windows2000下vb的一个小问题~~ 如何把当前路径加入查找路径中?立即给分! 对选用不同的纸张大小,在预览中能看出效果吗? 请问怎么在PB6.0中实现Foxpro(*.dbf)的数据导入,到ASA库中 j2me里怎么才能实现图象的滤镜效果?waiting... CDbSet m_dbSet(NULL)在哪一步才能得到一个CDatabase对象的错针? 新手提问:“镜象”是什么意思 求教,如何配置使性能达到最佳,详情见文 怎样在广域网中提高传屏响应速度?帮帮忙!急啊. 在文件钩子当中如何判断是打开文件操作,还是创建文件操作 怎样在applet程序中显示一幅jpeg图片?该图片存在于c:\image\下。 去年12月是谁发的帖子“做项目经理难么” 关于图层拖拽的问题 我有一块硬盘,迈托4.3G,开格式化分时说错误设备或0磁道损坏,后来fdisk分区,启动无效 “协议草案”的英语是“draft agreement”还是“agreement draft”?为什么? "截距相等"用看符号吗 contract什么意思 怎样区别agreement和contract? 两直线平行是截距相等么 胡椒粉加水进入眼睛会怎样 我想问问招远金矿和山东黄金集团哪个好些? 氧化性Al3+>Mg2+>Na+,则元素金属性顺序? 如何检验正庚烷溶剂是否合格我们用正庚烷做去渍溶剂 山东招远金矿因开采造成的生态破坏 1摩尔C17H18最多与几摩尔氢气发生反应 正庚烷在70摄氏度的密度,比热容,粘度,导热率 金矿在招远的分布 这个物质最多能和几摩尔氢气发生反应?生成什么?为什么? 电子分析天平可以检测什么项目? 招远金矿事故我最大的难题就是看不到你,得不到你的消息我烦的不行 第二个问是什么意思,截距表示什么. 云母屏风烛影深指的是什么时间 如何证明π是圆周率? 二次函数的截距是什么意思?怎么算还有公式啥的,求详细解释!谢谢! 云母屏风烛影深,长河渐落晓星沉.的意思是什么? 在图书馆前站着的那些人是谁?Who are the persons ____ ____ standing in front of the library? 云母屏风烛影深的意思是什么? 苗苗按比例描摹油画(秋千)已知原画长83cm,宽66cm,她画的画长是16.6cm,她选用的比例尺是多少请例出算式 accord,pact,treaty,compact的用法与区别如题,不要到网上copy别人写的那些没有用东西.如果有用我也就不发贴了.下面我再发一下此4个同意词各自的英文注解,都出至Longman当代词典第5版.accord---a formal ‘云母屏风烛影深,长河渐落晓星沉.的意思是什么 大豆异黄酮是从黄豆还是蚕豆中提取的?含雌激素较多的食物有哪些? 想做离子色谱 不知道样品怎么处理 能做吗 什么能够快速产生大量二氧化碳或者能大量消耗氧气?或者说,能起到灭火作用?最好是材料低价,反应迅速,效果明显的,试验成功后可再增加赏金~ 用钡餐检查出胃里面有一个阴影是怎么回事 有人用上海精科的万分之一电子分析天平么?效果怎么样我先买了一个沈阳龙腾的,计监局来检了一次不合格,换了一台,还是不合格,10g的砝码称出来9.9983g.计监局的说需要重新选个品牌,谢谢( 什么东西能与吗柠檬酸生成大量的CO2要经济点的写出公式 秋千如何画,请发铅笔稿. 听人讲.中药也会有重金属成份? C6H4CNSCH3用重铬酸钾氧化产物是什么?CN和SCH3在苯环上是相邻的能把CN氧化成氨氮吗? 固相萃取和液相色谱的关系固相萃取跟液相色谱有什么关系?固相萃取重点是什么啊,在什么方面重要点?想买一台仪器该考虑哪些呢? 降解中药材重金属含量的方法 云母屏风烛影深,长河渐落晓星沉的意思简单一点,越简单越好,不要太简单加上:云母屏风烛影深,深的意思,长河渐落晓星沉,长河的意思和沉的意思 国内哪家的色谱四氢呋喃质量好? 第3小题,为什么 |b|0呢,还是x>=0呢,为什么 品种 莲的美食和药用 莲的名胜古迹 莲的诗文、故事、传说 I have to assume beyond any doubts that. ..这个that引导的是宾语从句还是同位语从句 为什么. 截距相等是否在符号上也要一样?比如都是正才相等,一正一负不算相等? 云母屏风烛影深,长河渐落晓星沉.的意思要句意,不要故事要这两句的句意,别的什么都不要 数学中何谓纵截距 李阳在家中吃饭时对厨房里的一瓶醋产生了兴趣,他很想知道醋的密度,于是找到了如下器材:小铁块(密度已知为ρ铁)、细线、弹簧测力计和一只足够深的水杯,他利用学过的知识,测出了醋 云母屏风烛影深 长河渐落晓星沉是什么意思 什么是自然界的蝴蝶效应 云母特性有哪些? 什么是水体富氧 山东招远怎么样 云母的特点有哪些? assume位于句子开头,引导that从句时,用什么形式 山东招远的金矿有哪些能具体的说 招远 金矿的名字 人大代表建议的写作格式 试证曲面√x+√y+√z=√a(a>0)上任何点处的切平面在各坐标轴上的截距之和等于a "agreement"和"contract"有什么异同点?I don't need MAYBE,by the way.我再自己多查查. H3AlO3,CH3COOH,C6H5OH,H2CO3,HCO3-酸性排列顺序,还有其水溶液的盐碱性排列顺序.什么什么盐类水解啦之类的,总是记不住.求大神简便的记忆方法,求理解. 过点(0,3),且在两坐标轴上截距之和等于5的直线方程是? 落实大气防治行动计划 京津冀区域治霾揭秘张曙光“学术”路:读博士不愿写论监控全世界的美国政府公信力受质疑哈士奇模仿婴儿爬行萌翻网友【组图】奥巴马医改核心举措漏洞频出接受国会质美田纳西州海军基地2名士兵遭枪击受伤肯尼迪家族亲戚杀人案将重审 72年还女子看上弟弟嫁给哥哥 遭家暴虐待起诉国考报名结束 最热职位“七千挑一”胡万林涉非法行医致死案:学员各交万元永康两家企业排污被当地镇政府责令停产中国军工产业向全球进军 开始与西方竞美媒称土购中国导弹或是把特洛伊木马塞德国就默克尔手机或被美监听一事召见美美国情报机构被爆监听35名国际政要电俄要求美与“俄机构在美招募间谍”指控习仲勋在洛阳:要求管好部队纪律(组图广州公务员2012年人均工资加补助为专家:我国在售5大类17种转基因生物美方称无迹象显示两美国人遭绑架是恐怖中国画家潘义奎获艺术界\"诺贝尔\"春运结束后铁路仍将开行部分临客列车 不再顺畅的日美关系新疆于田7.3级地震 地震局启动Ⅲ级安徽省气象台发布暴雪蓝色预警澳门地产业内人士:澳门房地产高回报时调查显示韩国人对日本首相安倍晋三好感云南巧家一男子微博造谣 涉寻衅滋事被春节,一群人的痛和怕新疆紧急部署于田地震救援工作李克强同匈牙利总理欧尔班举行会谈中国女子冰壶苦战险胜美国 喜获两连胜全城找寻 石家庄路不拾遗“紫衣大妈”李克强同匈牙利总理欧尔班举行会谈时强大陆川籍迁台作家郭嗣汾10日病逝 享云南梁河县人民检察院:作风转变从大厅湖南永兴回应“偷发万元年终奖”一事不徐继敏:四川依法治省强调增强群众的法搭建孵化平台 打造八十余个四川独特文变形金刚中国大展在蓉热展 专家教你变老城里钙奶汤圆种类多 市民购买需注意澳大利亚南岸工会纪念“达尔弗拉姆事件
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘