responseCode : Longint;
uri : TIdURI;
uriList : TStringList;
+ i : Integer;
begin
Result := dsError;
// EUC \82ð Shift_JIS \82É
FDat.Text := EUCtoSJIS( string( downResult ) );
+ // \82µ\82½\82ç\82Î JBBS \82Í\83`\83F\83b\83N\97p\82É\90æ\93ª\82Æ\8dÅ\8fI\8ds\82ª\93¯\82¶
+ i := FDat.Count - 1;
+ if i > 0 then // 1 \8cÂ\82¾\82Á\82½\82ç\8fã\89º\82à\82\82»\82à\96³\82¢\82©\82ç 0 \82Í\8aÜ\82Ü\82¸
+ if FDat[ 0 ] = FDat[ i ] then
+ FDat.Delete( i );
// \95Û\91¶
FDat.SaveToFile( FilePath );