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.3 by h677, Thu Sep 4 08:22:06 2003 UTC revision 1.3.2.1 by yoffy, Mon Apr 19 22:46:48 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} YofUtils;          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;
14    
15  //              procedure SAXStartDocument(Sender: TObject);  //              procedure SAXStartDocument(Sender: TObject);
16  //              procedure SAXEndDocument(Sender: TObject);  //              procedure SAXEndDocument(Sender: TObject);
# 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;
39          XMLDoc: IXMLDocument;          XMLDoc: IXMLDocument;
# Line 48  var Line 41  var
41          HistoryNode: IXMLNode;          HistoryNode: IXMLNode;
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    
# Line 58  begin Line 50  begin
50    
51          if FileExists(FileName) then begin          if FileExists(FileName) then begin
52                  try                  try
53                          XMLDoc := LoadXMLDocument(FileName);              XMLDoc := IXMLDocument.Create;
54                          XMLNode := XMLDoc.DocumentElement;                          //XMLDoc := LoadXMLDocument(FileName);
55                LoadXMLDocument(FileName, XMLDoc);
56                          if XMLNode.NodeName = 'address' then begin        try
57                                  for i := 0 to XMLNode.ChildNodes.Count - 1 do begin          XMLNode := XMLDoc.DocumentElement;
58                                          HistoryNode := XMLNode.ChildNodes[i];  
59                                          if HistoryNode.NodeName = 'history' then begin          if XMLNode.NodeName = 'address' then begin
60                                                  if FReadCount >= sl.Count then begin            for i := 0 to XMLNode.ChildNodes.Count - 1 do begin
61                                                          s := Trim(HistoryNode.Attributes['url']);              HistoryNode := XMLNode.ChildNodes[i];
62                                                          if s <> '' then              if HistoryNode.NodeName = 'history' then begin
63                                                                  sl.Add(s);                if FReadCount >= sl.Count then begin
64                                                                  //sl.Add(HttpDecode(s));                  s := Trim(HistoryNode.Attributes['url']);
65                                                  end;                  if s <> '' then
66                                          end;                    sl.Add(s);
67                                  end;                    //sl.Add(HttpDecode(s));
68                          end;                end;
69                end;
70              end;
71            end;
72          finally
73            XMLDoc.Free;
74          end;
75                  except                  except
76                  end;                  end;
77          end;          end;
78  }  
79  //      AddressSAXHandler.OnStartDocument := SAXStartDocument;  //      AddressSAXHandler.OnStartDocument := SAXStartDocument;
80  //      AddressSAXHandler.OnEndDocument := SAXEndDocument;  //      AddressSAXHandler.OnEndDocument := SAXEndDocument;
81  //      AddressSAXHandler.OnStartElement := SAXStartElement;  //      AddressSAXHandler.OnStartElement := SAXStartElement;
# Line 103  var Line 101  var
101  }  }
102  begin  begin
103  {  {
104          XMLDoc :=  NewXMLDocument;          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 130  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);

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.2.1

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