Delphi Example of a NotesView Dataset

procedure TMapForm.NotesButtonClick(Sender: TObject);
var
 NVI: Variant;
 ds: Dataset;
begin
 try
  { Create a new NotesViewInfo object.
    CreateOleObject is found in the 'ComObj' package }
  NVI := CreateOleObject('MapX.NotesViewInfo.4');

  { Change this to point to the appropriate server and
    database; a sample database is included on the MapX CD.
    Leave the Server field empty if accessing a local
    database }
  NVI.Server := '';
  NVI.Database := 'C:\Windows\Desktop\LotusNotes\Notesamp.nsf';

  NVI.View := 'NS View';

  ds := Map1.Datasets.Add(miDataSetNotesView, NVI, 'NotesDS', 'State', EmptyParam, EmptyParam, EmptyParam, EmptyParam);

  ds.Themes.Add(miThemeRanged, 'Value', 'NotesThematic', EmptyParam);
 except
  on E: EOleException do
   Application.MessageBox(PChar(E.Message), 'Error',
    MB_OK or MB_ICONERROR);
 end;
end;

谢谢