Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/ItemDownload.pas

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

revision 1.14 by yoffy, Thu Nov 20 15:16:01 2003 UTC revision 1.15 by yoffy, Fri Nov 21 03:15:25 2003 UTC
# Line 1145  var Line 1145  var
1145          Res: TResRec;          Res: TResRec;
1146          NewRes: Integer;          NewRes: Integer;
1147  begin  begin
         if Trim(Content) = '' then  
                 Exit;  
1148          FileName := ThreadItem.GetThreadFileName;          FileName := ThreadItem.GetThreadFileName;
         GikoSys.ForceDirectoriesEx(ExtractFilePath(FileName));  
1149    
1150  //      Cnt := 0;          if not ThreadItem.IsBoardPlugInAvailable then begin
1151          Body := TStringList.Create;                  if Trim(Content) = '' then
1152          try                          Exit;
1153  //              if FileExists(FileName) and (ResponseCode = 206) then begin                  GikoSys.ForceDirectoriesEx(ExtractFilePath(FileName));
1154                  if FileExists(FileName) and (State = gdsDiffComplete) then begin  
1155  //                      Body.Text := Content;          //      Cnt := 0;
1156  //                      if Body.Count > 0 then                  Body := TStringList.Create;
1157  //                              Body.Delete(0);                  try
1158  //                      Content := Body.Text;          //              if FileExists(FileName) and (ResponseCode = 206) then begin
1159                          Body.LoadFromFile(FileName);                          if FileExists(FileName) and (State = gdsDiffComplete) then begin
1160                          OldCnt := Body.Count;          //                      Body.Text := Content;
1161                          Body.Text := Body.Text + Content;          //                      if Body.Count > 0 then
1162                          Body.SaveToFile(FileName);          //                              Body.Delete(0);
1163                          NewRes := Body.Count - OldCnt;          //                      Content := Body.Text;
1164                          Cnt := Body.Count;                                  Body.LoadFromFile(FileName);
1165                  end else begin                                  OldCnt := Body.Count;
1166                          Body.Text := Content;                                  Body.Text := Body.Text + Content;
1167  //                      if Body.Count > 0 then                                  Body.SaveToFile(FileName);
1168  //                              Body.Delete(0);                                  NewRes := Body.Count - OldCnt;
1169                          Body.SaveToFile(FileName);                                  Cnt := Body.Count;
1170                            end else begin
1171                                    Body.Text := Content;
1172            //                      if Body.Count > 0 then
1173            //                              Body.Delete(0);
1174                                    Body.SaveToFile(FileName);
1175    
1176                          if ThreadItem.Title = '' then begin                                  if ThreadItem.Title = '' then begin
1177                                  Res := GikoSys.DivideStrLine(Body[0]);                                          Res := GikoSys.DivideStrLine(Body[0]);
1178                                  ThreadItem.Title := Res.FTitle;                                          ThreadItem.Title := Res.FTitle;
1179                                    end;
1180                                    ThreadItem.Size := 0;
1181                                    //ThreadItem.Count := 0;
1182                                    ThreadItem.AllResCount := 0;
1183                                    ThreadItem.NewResCount := 0;
1184                                    OldCnt := 0;
1185                                    NewRes := Body.Count;
1186                                    Cnt := Body.Count;
1187                          end;                          end;
                         ThreadItem.Size := 0;  
                         //ThreadItem.Count := 0;  
                         ThreadItem.AllResCount := 0;  
                         ThreadItem.NewResCount := 0;  
                         OldCnt := 0;  
                         NewRes := Body.Count;  
1188                          Cnt := Body.Count;                          Cnt := Body.Count;
1189                    finally
1190                            Body.Free;
1191                  end;                  end;
1192                  Cnt := Body.Count;                  ThreadItem.Size := ThreadItem.Size + ContentLength;
1193          finally                  ThreadItem.LastModified := LastModified;
1194                  Body.Free;                  ThreadItem.Count := Cnt;
1195                    ThreadItem.AllResCount := Cnt;
1196                    ThreadItem.NewResCount := NewRes;
1197                    ThreadItem.NewReceive := OldCnt + 1;
1198          end;          end;
1199          ThreadItem.RoundDate := Now;  
         ThreadItem.Size := ThreadItem.Size + ContentLength;  
         ThreadItem.LastModified := LastModified;  
         ThreadItem.Count := Cnt;  
         ThreadItem.AllResCount := Cnt;  
         ThreadItem.NewResCount := NewRes;  
1200          ThreadItem.IsLogFile := True;          ThreadItem.IsLogFile := True;
1201          ThreadItem.NewReceive := OldCnt + 1;          ThreadItem.RoundDate := Now;
1202          ThreadItem.UnRead := True;          ThreadItem.UnRead := True;
1203          ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead + 1;          ThreadItem.ParentBoard.UnRead := ThreadItem.ParentBoard.UnRead + 1;
1204  //      if ThreadItem.RoundNo = 6 then  //      if ThreadItem.RoundNo = 6 then

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

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