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 中的函数.---...
阅读全文
摘要:代码清单:以下程序同时扮演了客户端与服务端.添加一个button,两个Edit,一个ClientSocket,一个ServerSocket.-------------------------------------------------------------------------------------------------------------------------------------------------------unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, Syst
阅读全文
摘要:function gethostbyname(name: PAnsiChar): PHostEnt; stdcall;// 通过域名或者主机命返回IP地址. 传进去的参数是一个域名或者主机名.返回值是一个Hostent指针结构.(如果传进去的是一个空字符串,那么返回的是本机的主机名与IP地址)function gethostname(name: PAnsiChar; len: Integer): Integer; stdcall;// 得到本机主机名或者域名.有两个参数,一个是用来存放主机名或者域名的变量,一个是缓冲区的大小.PHostEnt在delphi定义如下typePHostEnt =
阅读全文
摘要:implementationtype Add = function(I : Integer):Integer; //声明一个方法类型,真心觉得delphi中的类型太多太多了,需要学习的路还很长.//--------------------------------------------------------------------------------------------------------------------function Addx(I : Integer): Integer; //声明一个和上面方法类型相同参数的函数。 begin Result := I * 2; end
阅读全文
摘要:Procdure //过程,没有返回值 比如, Procedure ShowName(Str : String);Function //函数,有返回值。 比如, Function ShowName(Str : String): String;如果把函数或者过程定义在 implementation 区域中, 那么该函数或者过程只能在本单元被访问。如果把函数或者过程定义在 interface 区域中,那么该函数即可被别的单元访问。 但是,必须在uses后面。
阅读全文
摘要: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.
阅读全文
摘要: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 {
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要: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
阅读全文
摘要:Delphi的方法类型有:1.静态方法 (Static) 默认类型,可以省略关键字2.虚拟方法 (Virtual)3.动态方法 (Dynamic)4.消息方法 (Message)5.抽象法方 (Abstract)=======================================================1)静态方法[static]静态方法类似于通常的过程和函数,编译器在编译时就已指定了输出该方法的对象实例。静态方法的主要优点是调用速度快。eg:type TAnimal = class(TObject) procedure Sound; procedure Sleep; ...
阅读全文
摘要: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(
阅读全文
摘要:与类相关的保留字Type // 用该保留字声明类TMyForm = Class (TObject) // Class代表定义的是类 ,括号内代表继承,也可以不写。写了TMyForm就是TObject的子类,继承了TObject的所有属性与方法end; //必须使用end;结尾{成员可见性} private // 不可见 protected //派生类可见。 public //可见。 published //可见。用于运行时信息。 automated //可见。用于兼容。end;
阅读全文