Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/AddressHistory.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1.1.1 by hi_, Sat Aug 9 13:50:39 2003 UTC revision 1.8 by h677, Thu Mar 18 14:16:57 2004 UTC
# Line 4  interface Line 4  interface
4    
5  uses  uses
6          SysUtils, Classes, {SAX, SAXHelpers, SAXComps, SAXKW,}          SysUtils, Classes, {SAX, SAXHelpers, SAXComps, SAXKW,}
7          GikoSystem, XMLIntf, XMLDoc{, HttpApp};          GikoSystem, {XMLIntf, XMLDoc}{, HttpApp} GikoXMLDoc, YofUtils;
8    
9  type  type
10          TAddressHistoryDM = class(TDataModule)          TAddressHistoryDM = class(TDataModule)
                 procedure DataModuleCreate(Sender: TObject);  
11          private          private
12                  { Private 宣言 }                  { Private 宣言 }
13                  FReadCount: Integer;                  FReadCount: Integer;
# Line 34  const Line 33  const
33    
34  {$R *.dfm}  {$R *.dfm}
35    
 procedure TAddressHistoryDM.DataModuleCreate(Sender: TObject);  
 begin  
 //  
 end;  
   
36  procedure TAddressHistoryDM.ReadHistory(sl: TStrings; ReadCount: Integer);  procedure TAddressHistoryDM.ReadHistory(sl: TStrings; ReadCount: Integer);
37  var  var
38          FileName: string;          FileName: string;
# Line 48  var Line 42  var
42          i: Integer;          i: Integer;
43          s: string;          s: string;
44  begin  begin
45    
46          sl.Clear;          sl.Clear;
47          FReadCount := ReadCount;          FReadCount := ReadCount;
48    
49          FileName := GikoSys.GetConfigDir + ADDRESS_HISTORY_FILE_NAME;          FileName := GikoSys.GetConfigDir + ADDRESS_HISTORY_FILE_NAME;
50    
51          if FileExists(FileName) then begin          if FileExists(FileName) then begin
52                  XMLDoc := LoadXMLDocument(FileName);                  try
53                  XMLNode := XMLDoc.DocumentElement;              XMLDoc := IXMLDocument.Create;
54                            //XMLDoc := LoadXMLDocument(FileName);
55                  if XMLNode.NodeName = 'address' then begin              LoadXMLDocument(FileName, XMLDoc);
56                          for i := 0 to XMLNode.ChildNodes.Count - 1 do begin        try
57                                  HistoryNode := XMLNode.ChildNodes[i];          XMLNode := XMLDoc.DocumentElement;
58                                  if HistoryNode.NodeName = 'history' then begin  
59                                          if FReadCount >= sl.Count then begin          if XMLNode.NodeName = 'address' then begin
60                                                  s := Trim(HistoryNode.Attributes['url']);            for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
61                                                  if s <> '' then              HistoryNode := XMLNode.ChildNodes[i];
62                                                          sl.Add(s);              if HistoryNode.NodeName = 'history' then begin
63                                                          //sl.Add(HttpDecode(s));                if FReadCount >= sl.Count then begin
64                                          end;                  s := Trim(HistoryNode.Attributes['url']);
65                                  end;                  if s <> '' then
66                          end;                    sl.Add(s);
67                      //sl.Add(HttpDecode(s));
68                  end;
69                end;
70              end;
71            end;
72          finally
73            XMLDoc.Free;
74          end;
75                    except
76                  end;                  end;
77          end;          end;
78    
# Line 87  end; Line 91  end;
91  procedure TAddressHistoryDM.WriteHistory(sl: TStrings; WriteCount: Integer);  procedure TAddressHistoryDM.WriteHistory(sl: TStrings; WriteCount: Integer);
92  var  var
93          FileName: string;          FileName: string;
94  //      SaveList: TStringList;          SaveList: TStringList;
95          i: Integer;          i: Integer;
96          Count: Integer;          Count: Integer;
97    {
98          XMLDoc: IXMLDocument;          XMLDoc: IXMLDocument;
99          XMLNode: IXMLNode;          XMLNode: IXMLNode;
100          HistoryNode: IXMLNode;          HistoryNode: IXMLNode;
101    }
102  begin  begin
103          XMLDoc :=  NewXMLDocument;  {
104            XMLDoc :=       NewXMLDocument;
105          XMLDoc.Encoding := 'Shift_JIS';          XMLDoc.Encoding := 'Shift_JIS';
106          XMLDoc.StandAlone := 'yes';          XMLDoc.StandAlone := 'yes';
107          XMLNode := XMLDoc.AddChild('address');          XMLNode := XMLDoc.AddChild('address');
# Line 111  begin Line 117  begin
117                  HistoryNode.Attributes['url'] := Trim(sl[i]);                  HistoryNode.Attributes['url'] := Trim(sl[i]);
118          end;          end;
119          XMLDoc.SaveToFile(FileName);          XMLDoc.SaveToFile(FileName);
120    }
121  {       FileName := GikoSys.GetConfigDir + ADDRESS_HISTORY_FILE_NAME;          FileName := GikoSys.GetConfigDir + ADDRESS_HISTORY_FILE_NAME;
122          SaveList := TStringList.Create;          SaveList := TStringList.Create;
123          try          try
124                  if sl.Count > WriteCount then                  if sl.Count > WriteCount then
# Line 122  begin Line 128  begin
128                  SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');                  SaveList.Add('<?xml version="1.0" encoding="Shift_JIS" standalone="yes"?>');
129                  SaveList.Add('<address>');                  SaveList.Add('<address>');
130                  for i := 0 to Count - 1 do begin                  for i := 0 to Count - 1 do begin
131                          SaveList.Add('<history url="' + HttpEncode(Trim(sl[i])) + '"/>');                          SaveList.Add('<history url="' + HtmlEncode(Trim(sl[i])) + '"/>');
132                  end;                  end;
133                  SaveList.Add('</address>');                  SaveList.Add('</address>');
134                  SaveList.SaveToFile(FileName);                  SaveList.SaveToFile(FileName);
135          finally          finally
136                  SaveList.Free;                  SaveList.Free;
137          end;}          end;
138  end;  end;
139    
140  {procedure TAddressHistoryDM.SAXStartDocument(Sender: TObject);  {procedure TAddressHistoryDM.SAXStartDocument(Sender: TObject);

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.8

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26