---

■スレッドリストへ戻る■ 全部 1- 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 最新50

monazilla

28 ：デフォルトの名無しさん ：2001/02/11(日) 02:46

とりあえずこれを実装してまえ

2chログ巡回ツール「ギコナビ」作ってみました。
123 名前：>122投稿日：2001/02/02(金) 01:15
エラー処理がないけど、とりあえずこんなんでいいのかな？
T2chDownloaderさえ誰かがまともに実装してくれれば
その他のコンポ、フロントエンド（UI部分）なんてすぐでっち上げられるよ。

type
// 基本クラス
T2chObject = class(TComponent)
protected
　FItems: TList;
//　function GetItems(Index: Integer): T2chObject;
protected
　property Url: String;
　property Caption: String; // 見出し
　procedure Realod; // ダウンロード開始
　property Count: Integer;
//　property Items[Index: Integer]: T2chObject read GetItems;
published
　property OnReload: TNotifyEvent; // ダウンロード開始
　property OnReloaded: TNotifyEvent; // ダウンロード終了
end;

// 2ch全体
T2chNet = class(T2chObject)
public
　property Items[Index: Integer]: T2chBoard read GetItems;
end;

// 板リスト
T2chBoard = class(T2chObject)
public
　property Items[Index: Integer]: T2chThread read GetItems;
　property Category:
end;

// スレリスト
T2chThread = class(T2chObject)
public
　property Items[Index: Integer]: T2chThread read GetItems;
end;

// レスリスト(たぶんflyweight)
T2chResponse = class(T2chObject)
public
　property No: Integer; // 番号
　property Email: String; // メアド
　property DateTime: TDateTime; // 書込日時
　property Lines: TStrings; // 本文
end;

// ダウンローダ
T2chDownloader = class(T2chObject)
private
　FQueue: TObjectQueue; // スタックのがいいかも??
public
　property Online: Boolean;
　property CacheDirectory: String; // ローカルキャッシュ
　procedure Request(Target: T2chObject);
　procedure Cancel(Target: T2chObject);
end;

316KB

---

新着レスの表示

---

スレッドリストへ戻る 全部 前100 次100 最新50

0ch BBS 2004-10-30