Autor Beitrag
Baumunk
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 50

WinXP
Delphi 2005
BeitragVerfasst: Fr 06.06.08 19:32 
Hallo zusammen,

Ich muss eine abgleich Programm schreiben die Termine in Outlook mit unsere software abgleicht.
Ich schones code auschnitt gefunden, für .NET :
ausblenden C#-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
            outlook = new Microsoft.Office.Interop.Outlook.ApplicationClass();
                 CalendarMonitor monitor = new CalendarMonitor(outlook.Application.Session);
            monitor.AppointmentAdded +=
                new EventHandler<EventArgs<AppointmentItem>>(monitor_AppointmentAdded);
            monitor.AppointmentModified +=
                new EventHandler<EventArgs<AppointmentItem>>(monitor_AppointmentModified);
            monitor.AppointmentDeleting +=
                new EventHandler<CancelEventArgs<AppointmentItem>>(monitor_AppointmentDeleting);


der sich an Outlook eventst hängt
ausblenden C#-Quelltext
1:
2:
3:
4:
5:
6:
7:
  Items items = aCalendarFolder.Items;
  ((MAPIFolderEvents_12_Event)aCalendarFolder).BeforeItemMove +=
                    new MAPIFolderEvents_12_BeforeItemMoveEventHandler(Calendar_BeforeItemMove);
  items.ItemChange +=
    new ItemsEvents_ItemChangeEventHandler(CalendarItems_ItemChange);
  items.ItemAdd +=
    new ItemsEvents_ItemAddEventHandler(CalendarItems_ItemAdd);


Problemm ist, das bei mir muss es mit Native Delphi geschriben werden.
Es gint zwar beschreibung in c# davür
ausblenden C#-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
[TypeLibType(16)]
    [ComVisible(false)]
    public interface MAPIFolderEvents_12_Event
    {
        event MAPIFolderEvents_12_BeforeFolderMoveEventHandler BeforeFolderMove;
        event MAPIFolderEvents_12_BeforeItemMoveEventHandler BeforeItemMove;
    }

public delegate void MAPIFolderEvents_12_BeforeFolderMoveEventHandler(MAPIFolder MoveTo, ref bool Cancel);
public delegate void MAPIFolderEvents_12_BeforeItemMoveEventHandler(object Item, MAPIFolder MoveTo, ref bool Cancel);

wie ich die Delphi schreiben soll, keine ahnung, von allem events und
Ich finde nirgenwo beschreibung davon für Delphi. Kennt das jemand?

Für hinweis wäre verbunden.