[gelöst] Problem mit Outlook OLE

[TheRealHades]

Hallo

ich versuche Termine aus dem Outlook-Kalender auszulesen. Das funktioniert auch alles soweit bis man Filter einsetzen will. Folgendes Programm verdeutlicht mein Problem:

Code: Alles auswählen

 
program Project1;
 
{$mode objfpc}{$H+}
 
uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this },
  comobj;
 
var
  Outlook : OleVariant;
  NameSpace : OleVariant;
  CalendarsRoot : OleVariant;
  OutlookCalendar : OleVariant;
  Appointments: OleVariant;
  app: OleVariant;
  filter: String;
 
begin
  Outlook:= CreateOleObject('Outlook.Application');
  NameSpace:= Outlook.GetNameSpace('MAPI');
  CalendarsRoot := NameSpace.GetDefaultFolder(9);
 
  Appointments:= CalendarsRoot.Items;
  filter:= '([START] >= "10/04/13 00:00")';
 
  Appointments.IncludeRecurrences:= true;
  Appointments:= Appointments.Restrict('([START] >= "10/04/13 00:00")');
  //Appointments:= Appointments.Restrict(filter);
  Appointments.Sort('start');
  app:= Appointments.GetFirst;
  Writeln(app.Subject);
  Writeln(app.Start);
 
  Readln;
  Outlook:= Unassigned;
end.  
 

Die Zeilen mit dem Restrict sind der Knackpunkt an dem ich mir bisher die Zähne ausgebissen habe. Wenn ich den String direkt angebe funktioniert alles bestens, bei Benutzung der "filter"-Variable bekomme ich hingegen eine AccessViolation.

Ich wäre für erste Ansätze sehr dankbar.

mfg Björn

[af0815]

string wird wird nicht über die OLE Schnittstelle gehen. Gib den Filter auch als OLEVariant an.

Ev. hilft das
http://stackoverflow.com/questions/9591 ... n-delphi-5
http://www.lazarusforum.de/viewtopic.php?f=10&t=6011

[TheRealHades]

Danke!!!

Hab mich 2 Tage damit rumgeärgert, in jedem Delphi Schnipsel was ich gefunden habe hatten die das mit String gemacht.

Vielen Dank nochmal für die schnelle Hilfe.