Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Wie speichert Mozilla und Konsorten die Bookmarks?

  Alt 5. Mär 2004, 19:35
@MS: So mache ich es bisher:
Delphi-Quellcode:
function ExtractBookmarksFromFile(BookmarkFile: string): TStrings;
const
  BEGINLINK = 'http://';
  ENDLINK = '" ';
var
  F: TextFile;
  sl: TStringList;
  s: string;
  StartPos, EndPos: Cardinal;
begin
  result := nil;
  SetLastError(0);
  AssignFile(F, BookmarkFile);
{$I-}
  Reset(F);
{$I+}
  if IOResult = 0 then
  begin
    sl := TStringList.Create;
    try
      while not EOF(F) do
      begin
        readln(F, s);
        StartPos := Pos(BEGINLINK, s);
        EndPos := Pos(ENDLINK, s);
        s := copy(s, StartPos, EndPos - StartPos);
        if length(s) > 0 then
          sl.Add(s);
      end;
    finally
      result := sl;
      //FreeAndNil(sl);
    end;
  end;
end;
Wenn Mozilla die Bookmarks wirklich nur in dieser Datei verwaltet, dann geht das automatische Auslesen wirklich nur mit dem IE.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat