■スレッドリストへ戻る■ 全部 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;


317KB
新着レスの表示

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

0ch BBS 2004-10-30