private
{ Private \90é\8c¾ }
FAbEnd: Boolean;
- FStack: TStack;
FTreeView: TTreeView;
FModified: boolean;
- procedure ReadNode(Node: IXMLNode);
+ procedure ReadNode(Node: IXMLNode; Stack: TStack; TreeView: TTreeView);
procedure AddSaveString(Node: TTreeNode; SaveList: TStringList);
public
{ Public \90é\8c¾ }
FavoriteDM: TFavoriteDM;
const
FAVORITE_LINK_NAME = '\83\8a\83\93\83N';
+ FAVORITE_FILE_NAME = 'Favorite.xml';
implementation
const
FAVORITE_ROOT_NAME = '\82¨\8bC\82É\93ü\82è';
- FAVORITE_FILE_NAME = 'Favorite.xml';
+
{$R *.dfm}
i: Integer;
FavFolder: TFavoriteFolder;
LinkExists: Boolean;
+ Stack: TStack;
begin
FABend := False;
LoadXMLDocument(FileName, XMLDoc);
XMLNode := XMLDoc.DocumentElement;
- FStack := TStack.Create;
+ Stack := TStack.Create;
try
- FStack.Push(Node);
+ Stack.Push(Node);
LinkExists := False;
if XMLNode.NodeName = 'favorite' then begin
for i := XMLNode.ChildNodes.Count - 1 downto 0 do begin
- ReadNode(XMLNode.ChildNodes[i]);
+ ReadNode(XMLNode.ChildNodes[i], Stack, FTreeView);
if (XMLNode.ChildNodes[i].NodeName = 'folder') and
(XMLNode.ChildNodes[i].Attributes['title'] = FAVORITE_LINK_NAME) then begin
LinkExists := True;
end;
finally
- FStack.Free;
+ Stack.Free;
XMLDoc.Free;
end;
except
end;
end;
-{
- FavFolder := TFavoriteFolder.Create;
- Node := FTreeView.Items.AddChildObjectFirst(nil, FAVORITE_ROOT_NAME, FavFolder);
- Node.ImageIndex := 12;
- Node.SelectedIndex := 13;
-
- FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
- if not FileExists(FileName) then
- Exit;
-
- FavSAXHandler.OnStartDocument := SAXStartDocument;
- FavSAXHandler.OnEndDocument := SAXEndDocument;
- FavSAXHandler.OnStartElement := SAXStartElement;
- FavSAXHandler.OnStartElement := SAXStartElement;
- FavSAXHandler.OnEndElement := SAXEndElement;
- FavSAXHandler.OnCharacters := SAXCharacters;
-
- FavSAXReader.Vendor := 'Keith Wood';
- FavSAXReader.URL := FileName;
- FavSAXReader.Parse;}
end;
-procedure TFavoriteDM.ReadNode(Node: IXMLNode);
+procedure TFavoriteDM.ReadNode(Node: IXMLNode; Stack: TStack; TreeView: TTreeView);
var
i: Integer;
threadItem : TThreadItem;
begin
if Node.NodeName = 'folder' then begin
- ParentNode := FStack.Peek;
+ CurrentNode := nil;
+ ParentNode := Stack.Peek;
if TObject(ParentNode.Data) is TFavoriteFolder then begin
FavFolder := TFavoriteFolder.Create;
- CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavFolder);
+ CurrentNode := TreeView.Items.AddChildObjectFirst(ParentNode, Node.Attributes['title'], FavFolder);
CurrentNode.ImageIndex := 14;
CurrentNode.SelectedIndex := 14;
- FStack.Push(CurrentNode);
+ Stack.Push(CurrentNode);
end;
for i := Node.ChildNodes.Count - 1 downto 0 do begin
- ReadNode(Node.ChildNodes[i]);
+ ReadNode(Node.ChildNodes[i], Stack, TreeView);
end;
- if TObject(ParentNode.Data) is TFavoriteFolder then
+ if CurrentNode <> nil then
CurrentNode.Expanded := Node.Attributes[ 'expanded' ] = 'true';
- if FStack.Count <> 0 then
- FStack.Pop;
+ if Stack.Count <> 0 then
+ Stack.Pop;
end else if Node.NodeName = 'favitem' then begin
try
- ParentNode := FStack.Peek;
+ ParentNode := Stack.Peek;
if TObject(ParentNode.Data) is TFavoriteFolder then begin
if Node.Attributes['favtype'] = 'board' then begin
FavBoard := nil;
FavBoard := TFavoriteBoardItem.Create(
Node.Attributes[ 'url' ], MojuUtils.UnSanitize(Node.Attributes[ 'title' ]), nil );
end;
- CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavBoard);
+ CurrentNode := TreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavBoard);
CurrentNode.ImageIndex := 15;
CurrentNode.SelectedIndex := 15;
end else if Node.Attributes['favtype'] = 'thread' then begin
FavThread := TFavoriteThreadItem.Create(
Node.Attributes[ 'url' ], UnSanitize(Node.Attributes[ 'title' ]), nil );
end;
- CurrentNode := FTreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavThread);
+ CurrentNode := TreeView.Items.AddChildObjectFirst(ParentNode, UnSanitize(Node.Attributes['title']), FavThread);
CurrentNode.ImageIndex := 16;
CurrentNode.SelectedIndex := 16;
end;
procedure TFavoriteDM.WriteFavorite;
var
- FileName, tmpFileName: string;
+ FileName, tmpFileName, bakFileName: string;
SaveList: TStringList;
-
+ Buffer: array[0..MAX_PATH] of Char; // \83o\83b\83t\83@
+ FileRep : Boolean;
begin
FavoriteDM.Modified := true;
FileName := GikoSys.GetConfigDir + FAVORITE_FILE_NAME;
- if FileExists(FileName) then begin
- tmpFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
- if FileExists(tmpFileName) then
- SysUtils.DeleteFile(tmpFileName); //SysUtils.\82ð\82Â\82¯\82È\82¢\82ÆWinAPI\82Æ\8bæ\95Ê\82Å\82«\82È\82¢\82Ì\82Å
- RenameFile(FileName, tmpFileName);
- end;
SaveList := TStringList.Create;
- try
- SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
- SaveList.Add('<favorite>');
- try
- AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
- except
- end;
- SaveList.Add('</favorite>');
- SaveList.SaveToFile(FileName);
- finally
- SaveList.Free;
- end;
+ tmpFileName := '';
+ // \8f\91\82«\8d\9e\82Ý\97p\88ê\8e\9e\83t\83@\83C\83\8b\8eæ\93¾
+ if GetTempFileName(PChar(GikoSys.GetConfigDir), PChar('fav'), 0, Buffer) <> 0 then begin
+ tmpFileName := Buffer;
+ try
+ try
+ SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
+ SaveList.Add('<favorite>');
+ AddSaveString(TreeView.Items.GetFirstNode.getFirstChild, SaveList);
+ SaveList.Add('</favorite>');
+ // \88ê\8e\9e\83t\83@\83C\83\8b\82Æ\82µ\82Ä\95Û\91¶
+ SaveList.SaveToFile(tmpFileName);
+ FileRep := True;
+ // \91O\82Ì\83t\83@\83C\83\8b\82ð\88Ú\93®\82·\82é
+ if FileExists(FileName) then begin
+ bakFileName := GikoSys.GetConfigDir + '~' + FAVORITE_FILE_NAME;
+ if FileExists(bakFileName) then begin
+ FileRep := SysUtils.DeleteFile(bakFileName); //SysUtils.\82ð\82Â\82¯\82È\82¢\82ÆWinAPI\82Æ\8bæ\95Ê\82Å\82«\82È\82¢\82Ì\82Å
+ end;
+ if FileRep then begin
+ FileRep := RenameFile(FileName, bakFileName);
+ end;
+ end;
+ // \90³\8bK\82Ì\83t\83@\83C\83\8b\96¼\82É\83\8a\83l\81[\83\80\82·\82é
+ if FileRep then begin
+ FileRep := RenameFile(tmpFileName, FileName);
+ end;
+ except
+ end;
+ finally
+ SaveList.Free;
+ end;
+ end;
end;
procedure TFavoriteDM.AddSaveString(Node: TTreeNode; SaveList: TStringList);
OSDN Git Service
