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