| 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 |