COM 接口

什么是接口？接口有什么作用？如何用接口？

    一系列的问题都会缠绕着你。如果你不想做分布式或是本地的应用程序调用的话，就不用看了；

    COM1/COM2等硬件接口，我们都不陌生；但是如果要将接口正真用的软件上，而且用好的话，并不一定很容易；让我们继续吧；
我们所谓的接口其实就是一些过程、函数、属性集；记住，接口不可以有字段的，如果你有这个想法的话，那么从现在开始就要认识是错误的，对接口的访问就是对它提供的方法、事件、属性的访问，而且，接口所提供的方法都是公开的，是全部的公开的，所以就不必要用Public了；
    在COM中，接口就是一切，一个组件就是一个接口集，用户只用通过接口才能和ＣＯＭ进行找交道；

最通用的接口
IUnKnown InterFace
如果和Com有关的话，一般用IUnKonow，否则用Interface;
说了这么多，还是看个例程吧；

由于时间关系，我只是匆匆忙忙的写了一下，没有时间整理，如果您觉的有用的话，可以自己整理一下，有什么不明白的地方，可以联系我；
没有加注释；
---------------------
unit Main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj,ActiveX,StdVCL;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
end;

  ILC = Interface(IUnknown)
  [’{4FFE6DDB-80B9-4E2D-A05F-5F3B35311ED7}’]
    procedure SetValue(NewValue:String);
    function GetValue:String;
end;

  TLC = Class(TInterfacedObject, ILC)
  public
    Value:String;
    procedure SetValue(NewValue:String);
    function GetValue:String;
    destructor Destroy;override;
  end;

var
  Form1: TForm1;
  IMyLC : ILC;

implementation

{$R *.dfm}

{ TLC }

destructor TLC.Destroy;
begin
  Application.MessageBox(’资源已经被完全释放’,’操作提示’,MB_OK + MB_ICONINFORMATION);
  inherited;
end;

function TLC.GetValue: String;
begin
  Result := Value;
  ShowMessage(Result);
end;

procedure TLC.SetValue(NewValue: String);
begin
  ////ShowMessage(NewValue);’
  /////NewValue := ’第一个COM例程’;
  Value := NewValue;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IMyLC.SetValue(’第一个COM例程’);
  IMyLC.GetValue;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
IMyLC := TLC.Create;
end;

end.