RealICQClient/Includes/ReadWindowsAddrBook/wabtest.pas

unit wabtest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, WindowsAddressBook;

type
  TForm1 = class(TForm)

    Button1: TButton;
    ListBox1: TListBox;
    Memo1: TMemo;
    Label1: TLabel;
    Label2: TLabel;
    Memo2: TMemo;
    wab: TWinAddressBook;
    procedure Button1Click(Sender: TObject);
    procedure ListBox1Click(Sender: TObject);
  private

  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
//   wab.setToDefaultAddressBook;
   wab.SetToDefaultAddressBook;
   wab.loadFile;
   listBox1.items.addStrings(wab.contacts);
end;

procedure TForm1.ListBox1Click(Sender: TObject);
begin
   wab.getPropertiesOf(listBox1.items[listbox1.itemIndex]);
   memo1.Lines.clear;
   memo1.Lines.Add(wab.Contacter.name);
   memo1.Lines.Add(wab.Contacter.Sex);
   memo1.Lines.Add(wab.Contacter.Nickname);
   memo1.Lines.Add(wab.Contacter.Birthday);
   memo1.Lines.Add(wab.Contacter.Mobile);
   memo1.Lines.Add(wab.Contacter.Email);
   memo1.Lines.Add(wab.Contacter.Company);
   memo1.Lines.Add(wab.Contacter.Job);
   memo1.Lines.Add(wab.Contacter.Profession);
   memo1.Lines.Add(wab.Contacter.Country);
   memo1.Lines.Add(wab.Contacter.WorkAddr1);
   memo1.Lines.Add(wab.Contacter.WorkAddr2);
   memo1.Lines.Add(wab.Contacter.WorkAddr3);
   memo1.Lines.Add(wab.Contacter.Remark);
   memo1.Lines.Add(wab.Contacter.PostalCode);
  // memo1.Lines.clear;

  // memo1.lines.addStrings(wab.properties);
   memo2.Lines.clear;
   memo2.lines.addStrings(wab.properties);
end;

end.