07 2012 档案

摘要:1.WSAstartup (连接WinSocket库)原型如下: Int WSAStartup ( Word WVersionregusested, LPWSADATA LPWSAData ); 在delphi中定义如下: function WSAStartup(wVersionRequired: word; var WSData: TWSAData): Integer; stdcall;应用程序在使用Winsock API之前必须调用此函数,只有当此函数返回(表示应用程序与Winsock库成功建立起连接),应用程序才可以调用其它WindowsSockets DLL 中的函数.---... 阅读全文
posted @ 2012-07-19 16:44 梦断难寻 阅读(2539) 评论(0) 推荐(0) 编辑
摘要:代码清单:以下程序同时扮演了客户端与服务端.添加一个button,两个Edit,一个ClientSocket,一个ServerSocket.-------------------------------------------------------------------------------------------------------------------------------------------------------unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, Syst 阅读全文
posted @ 2012-07-16 00:19 梦断难寻 阅读(4761) 评论(0) 推荐(0) 编辑
摘要:function gethostbyname(name: PAnsiChar): PHostEnt; stdcall;// 通过域名或者主机命返回IP地址. 传进去的参数是一个域名或者主机名.返回值是一个Hostent指针结构.(如果传进去的是一个空字符串,那么返回的是本机的主机名与IP地址)function gethostname(name: PAnsiChar; len: Integer): Integer; stdcall;// 得到本机主机名或者域名.有两个参数,一个是用来存放主机名或者域名的变量,一个是缓冲区的大小.PHostEnt在delphi定义如下typePHostEnt = 阅读全文
posted @ 2012-07-15 23:51 梦断难寻 阅读(9553) 评论(0) 推荐(1) 编辑
摘要:implementationtype Add = function(I : Integer):Integer; //声明一个方法类型,真心觉得delphi中的类型太多太多了,需要学习的路还很长.//--------------------------------------------------------------------------------------------------------------------function Addx(I : Integer): Integer; //声明一个和上面方法类型相同参数的函数。 begin Result := I * 2; end 阅读全文
posted @ 2012-07-08 16:24 梦断难寻 阅读(400) 评论(0) 推荐(0) 编辑
摘要:Procdure //过程,没有返回值 比如, Procedure ShowName(Str : String);Function //函数,有返回值。 比如, Function ShowName(Str : String): String;如果把函数或者过程定义在 implementation 区域中, 那么该函数或者过程只能在本单元被访问。如果把函数或者过程定义在 interface 区域中,那么该函数即可被别的单元访问。 但是,必须在uses后面。 阅读全文
posted @ 2012-07-08 15:31 梦断难寻 阅读(352) 评论(0) 推荐(0) 编辑
摘要:TMyForm = class private FName : String; FAge : Integer; protected procedure ShowName;virtual; // 将要被覆盖的虚方法。 end; TMyForm2 = class(TMyForm) Procedure ShowName;override; // 覆盖; end; TMyForm3 = class(TMyForm2) procedure ShowName;override;final; // 最终覆盖,再往下就无法覆盖了。Final指令字的作用就让方法无法继续覆盖。 end; One = class. 阅读全文
posted @ 2012-07-06 15:31 梦断难寻 阅读(377) 评论(0) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { 阅读全文
posted @ 2012-07-04 14:11 梦断难寻 阅读(360) 评论(0) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); pr 阅读全文
posted @ 2012-07-03 18:27 梦断难寻 阅读(494) 评论(0) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; Button5: TButton; procedure 阅读全文
posted @ 2012-07-03 13:52 梦断难寻 阅读(420) 评论(0) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.OleCtnrs;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; procedure Button1Click(Sender: T 阅读全文
posted @ 2012-07-02 22:48 梦断难寻 阅读(1214) 评论(0) 推荐(0) 编辑
摘要:Delphi的方法类型有:1.静态方法 (Static) 默认类型,可以省略关键字2.虚拟方法 (Virtual)3.动态方法 (Dynamic)4.消息方法 (Message)5.抽象法方 (Abstract)=======================================================1)静态方法[static]静态方法类似于通常的过程和函数,编译器在编译时就已指定了输出该方法的对象实例。静态方法的主要优点是调用速度快。eg:type TAnimal = class(TObject) procedure Sound; procedure Sleep; ... 阅读全文
posted @ 2012-07-02 22:02 梦断难寻 阅读(1283) 评论(0) 推荐(0) 编辑
摘要:unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click( 阅读全文
posted @ 2012-07-02 21:37 梦断难寻 阅读(1380) 评论(0) 推荐(0) 编辑
摘要:与类相关的保留字Type // 用该保留字声明类TMyForm = Class (TObject) // Class代表定义的是类 ,括号内代表继承,也可以不写。写了TMyForm就是TObject的子类,继承了TObject的所有属性与方法end; //必须使用end;结尾{成员可见性} private // 不可见 protected //派生类可见。 public //可见。 published //可见。用于运行时信息。 automated //可见。用于兼容。end; 阅读全文
posted @ 2012-07-02 20:34 梦断难寻 阅读(646) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示