.ics-Dateien

[meister0815]

Hallöchen zusammen,

Kennt jemand eine fertige Unit oder Komponente, um ics-Dateien (iCalendar) auslesen und bearbeiten zu können?
Ansonsten müsste ich die Dateien selbst parsen, was für mich ziemlich Unterkante/Oberlippe meiner Programmierfähigkeiten wäre...

Gruß, Meister0815

[Hitman]

Ungetestet: http://sourceforge.net/projects/delphiical/" onclick="window.open(this.href);return false;

[meister0815]

Ungetestet: http://sourceforge.net/projects/delphiical/" onclick="window.open(this.href);return false;

Danke für den Hinweis, ich habe versucht die Unit zu kompilieren (musste dazu "windows" aus uses entfernen), und es tritt genau ein Fehler auf:

aDate := StrToDate(s,DateFrmat) (wobei DateFrmat : TFormatSettings;) bringt den Fehler "wrong number of parameters. Habe auch gegooglet und herausgefunden, dass StrToDate normalerweise nur den String als Parameter hat. Das Format des Strings ist allerdings in dieser function sehr wichtig!

Hat jemand eine Idee, wie ich das lösen könnte?

Hier nochmal die ganze Function:

Code: Alles auswählen

function TiCalPackage.convertDate(iCalDate:String): TDateTime;
Var
  s,t : String;
  aDate : TDateTime;
begin
 //Convert the date
  s := iCalDate;
  MatStringDelete2End(s,'T');
  insert('\',s,5);
  insert('\',s,8);
 //Convert the Time
  t := iCalDate;
  if pos(t,'T') <> 0 then Begin
    MatStringDeleteUp2(t,'T');
    insert('-',t,3);
    insert('-',t,6);
  end
  Else
    t := '';
  if t <> '' then
    aDate := StrToDate(s,DateFrmat.ShortDateFormat,'/') + StrToTime(t,DateFrmat.ShortTimeFormat)
  else
    aDate := StrToDate(s,DateFrmat.ShortDateFormat) + Time;
  Result := aDate;
end;

[shokwave]

Du kannst vorher, mit

Code: Alles auswählen

ShortDateFormat:='yyyy-mm-dd';
  DateSeparator:='-';

das gewünschte Format festlegen.

[meister0815]

Du kannst vorher, mit

Code: Alles auswählen

ShortDateFormat:='yyyy-mm-dd';
  DateSeparator:='-';

das gewünschte Format festlegen.

Mache ich ja, funktioniert aber nicht (selbst wenn ich das format direkt als String eingebe) da StrToDate nur einen einzigen Parameter erwartet/akzeptiert. Oder ist das bei dir anders? Also ohne "windows"-unit? Mehr Parameter funktionieren bei mir jedenfalls nicht.

PS: Habe irgendwo mal was von "parameter overloading" gehört, vielleicht klappt es damit? Ich weiß aber nicht, wie das geht...

[Teekeks]

Schreibe das von shockwave geschriebene am Anfang, und dann kannst du den 2. Parameter weglassen.

[meister0815]

Danke für eure Antworten. Leider fühle ich mich irgendwie unverstanden, oder ich verstehe euch nicht... sorry, wenn ich mich unklar ausgedrückt habe.

Vielleicht probiert ihr es einfach mal selbst, indem ihr folgendes ausprobiert (ohne windows in uses):

Code: Alles auswählen

procedure test;
var
  str: String;
  aDate: TDateTime;
  strFormat: TFormatSettings;
begin
  str:='2010/11/08';
  strFormat.ShortDateFormat:='yyyy/mm/dd';
  strFormat.DateSeparator:='/';
  aDate:= strToDate(str, strFormat);
  ShowMessage(DateToStr(aDate));
end;

Dann seht ihr den Fehler, und versteht hoffentlich, was ich meine...

[shokwave]

Code: Alles auswählen

var
  str: String;
  aDate: TDateTime;
begin
  str:='2010/11/08';
  ShortDateFormat:='yyyy/mm/dd';
  DateSeparator:='/';
  aDate:= StrToDate(str);
  ShowMessage(DateToStr(aDate));
end;

Wahrscheinlich hatte ich mich nicht klar genug ausgedrückt. StrToDate/DateToStr hat nur einen Parameter, deshalb musst du vor dem Aufruf der Funktionen das gewünschte Format setzten (einmal im OnCreate reicht).

[Hitman]

Probiers mal mit StrToDateTime - davon gibts eine überladene Version, der du die FormatSettings übergeben kannst.

Edit: geht sogar noch einfacher, nämlich ganz ohne extra FormatSettings:
aDate:= strToDate(str, 'yyyy/mm/dd', '/');

[shokwave]

Du hast Recht, für StrToDate kann man Format und Seperator in die Parameter packen. Bei DateToStr muss man FormatSettings nehmen.

Ist schon ein wenig inkonsistent die Geschichte...

[meister0815]

Probiers mal mit StrToDateTime - davon gibts eine überladene Version, der du die FormatSettings übergeben kannst.

Edit: geht sogar noch einfacher, nämlich ganz ohne extra FormatSettings:
aDate:= strToDate(str, 'yyyy/mm/dd', '/');

So läufts eben bei mir nicht! Bist Du sicher, dass du "Windows" aus Uses entfernt hast? Ob das wohl ein Plattform-Unterschied ist? Ich verwende jedenfalls die neuste Lazarus-Version vom SVG.

[Hitman]

Also bei mir kompilierts ... siehe Anhang. Ist aber nur äußerst notdürftig geflickt, die ganze Unit hat anscheinend recht viel Verbesserungsbedarf