---

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

monazilla

475 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/01(木) 14:44

>>467のやり方がわかった。
type
　TNichBrowser = class(TWebBrowser)
　private
　　FOnCommandStateChange: TWebBrowserCommandStateChange;
　　FGoBackEnabled: Boolean;
　　FGoForwardEnabled: Boolean;
　public
　　constructor Create(AOwner: TComponent); override;
　　destructor Destroy; override;

　　procedure CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool);
　　property OnCommandStateChange: TWebBrowserCommandStateChange
　　 read FOnCommandStateChange write FOnCommandStateChange;
　　property GoBackEnabled: Boolean read FGoBackEnabled;
　　property GoForwardEnabled: Boolean read FGoForwardEnabled;
　published
　end;

---------------------
constructor TNichBrowser.Create(AOwner: TComponent);
begin
　inherited;
　inherited OnCommandStateChange := CommandStateChange;
end;

procedure TNichBrowser.CommandStateChange(Sender: TObject;
　Command: Integer; Enable: WordBool);
begin
　case Command of
　　//　GoForwardコマンドの実行許可
　　CSC_NAVIGATEFORWARD :
　　begin
　　　FGoForwardEnabled := Enable;
　　end;
　　//GoBackコマンドの実行許可
　　CSC_NAVIGATEBACK :
　　begin
　　　FGoBackEnabled := Enable;
　　end
　else

　end;

　if Assigned(FOnCommandStateChange) then
　　FOnCommandStateChange(Sender, Command, Enable);
end;
これでGoBackEnabled/GoForwardEnabledプロパティが
実装できる。

ところで
UIWebBrowserのヘルプに
>TWebBrowserを継承すると統合デバッガで不具合が生じます。
とあるが、普通にTWebBrowserを継承して使っているが
特に不具合は出ていない。デバッガをフルに使っていないからかな？
動的生成しているからかも。

476 ：デフォルトの名無しさん ：2001/03/01(木) 15:02

勉強になります。

477 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/01(木) 18:14

かちゅ〜しゃの作者さんも来てくれないかなあ。
ソース公開とかどうでもいいから。

478 ：デフォルトの名無しさん ：2001/03/01(木) 19:11

むこうのかちゅしゃスレ妙に荒れてるからなあ。
直リンして、作者さんといっしょに、厨房がついてこなけりゃいいけど。

479 ：書記さん ：2001/03/01(木) 22:16

かちゅーしゃスレでは、次回のバージョンアップが済んだら
参加したいな〜って感じの書き込みがあったよね。
ソースの公開はしなくても、ぜひ参加してほしいですよね。

480 ：turbotypeD@モナぢら ：2001/03/01(木) 23:01

そうそう。
かちゅーしゃってば分割ダウソと直読みをやってるよね。

最終的に表示するのはﾓﾅﾌﾟﾛﾗの方がちょっぴり遅いんだけど
かちゅしゃは読み込み時に途中から表示していってたんで
驚いた。

結構地道にコーディングしてたんろなー。

481 ：ふみもたたけし as 119 ：2001/03/02(金) 01:46

こんなのを作ってみた。
http://desktopgazou.hypermart.net/cgi/gazou/img20010301172929.jpg

とりあえずダウンロード部分を書く気はないので、
2ch抜きタグブラウザから作っていく予定。

ツリービュー・タブ・メニュから板一覧・スレ一覧・スレを
表示できる柔軟なUIにしたい。
推奨環境はAthlon1G、メモリ512MB以上だ(藁

ダウンロード・解析部分のクラスの仕様が固まったら
取り込みたいのでよろしくね > Dax & turbotypeD@モナぢら

2ch表示機能を取り込んだらソース・バイナリ公開するよ。

482 ：デフォルトの名無しさん ：2001/03/02(金) 07:03

おおお、かちょええ！！

483 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/02(金) 09:53

すげー。かっちょよすぎ。

ツールバーの画像ってどこから集めているんですか？
すごく標準っぽい画像
ｵﾚの使ってるBugBrowserってのにも
似たボタン画像が使われているのだが。

484 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/02(金) 09:56

ﾀﾞｳｿ部分は汎用的にまとめるのは難しいかもしれないけど
何をどうコーディングすればいいのかはわかっているので
データ構造などを決めてくれれば実装は
手伝いますぜ

485 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/02(金) 16:28

ﾀﾞｳｿのこと考えてると
マルチスレッドでどうしたらいいのかとか頭痛くなってきたよ。

486 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/02(金) 18:53

monazilla掲示板が逝ってるのでこっちに書かせてもらいます。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010302.lzh
今日もｱﾌﾟしたよ。

主な変更は。
キャッシュファイルとWeb上のファイルの日付とサイズが≒なら
キャッシュだけを読むようにしました。

他、UIは少しはましにしたっけな。
あとブラウザから開くPopupMenuもつけました。

スレやレスの解析も間違っていたみたいなのでましにしました。

すげｰ疲れた。

487 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/02(金) 18:57

かちゅのように差分ﾀﾞｳｿはしていないから遅いのは遅いですね。
欝だ............

488 ：かちゅ〜しゃ作者 ：2001/03/02(金) 22:38

はじめまして。
やっぱりプログラム板はいいなあ。
全部読めてないので、とりあえず今は足跡だけでお許しを。

489 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/03(土) 01:01

こんにちは、プログラム板には久しぶりですかね。
よろしく、教えてくださいな。

490 ：ふみもたたけし ：2001/03/03(土) 02:31

連番移動機能(index01.htm->index02.htm)というのを思いついた。
むちゃくちゃ便利であるような気もしたけど、エロサイトくらいにしか使えないか。

>ツールバーの画像ってどこから集めているんですか？
標準のボタンはVisual Studio Enterpriseに付いてる。
それ以外はIE, Office, DelphiIDEからキャプチャ。

>ﾀﾞｳｿ部分は汎用的にまとめるのは難しいかもしれないけど
難しいの？
Board2ch見る限りきれいにUIと分離してあるように思えるけど。

ダウンロード・キャッシュ部分をホットゾヌ使うように
改造しちゃおうかな。

>マルチスレッドでどうしたらいいのかとか頭痛くなってきたよ。
よく考えたらマルチスレッドなんていらない気がしてきた。
サーバに負荷かけすぎるからね。
一括更新チェックができればそれで十分。

491 ：デフォルトの名無しさん ：2001/03/03(土) 06:47

かちゅしゃ、作者ひきこみage?

492 ：ヒロユキ＠ギコナビ ：2001/03/03(土) 13:01

DelphiのTWebBrowserって初期化してくれなくて、コピペがうまく
いかないので、一番下（end.の前）にでも以下の行を追加しよう。
usesにActiveXを忘れずに。

initialization
  OleInitialize(nil);
finalization
  OleUninitialize;

493 ：ヒロユキ＠ギコナビ ：2001/03/03(土) 13:05

>>490
VS.NETのBata版入れたけど、１６色の画像しかなかった。
やっぱ、リソースから抜き出すのが手軽なのかな（怒られる？）

494 ：デフォルトの名無しさん ：2001/03/03(土) 15:20

Glyph画像集〜。DelphiTechより
http://community.borland.com/article/0,1410,25911,00.html
死ぬほどあります。ありすぎます。

495 ：ヒロユキ＠ギコナビ ：2001/03/03(土) 18:38

>>449
＞なぜかTAnimeでは開けないの
解決済みかもしれないけど。
アニメコントロールは、非圧縮のAVIじゃないとダメだったとおもう。

496 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/03(土) 19:12

どもども。
>>492 ヒロユキ氏

それは何処に書けばいいのですか？

497 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/03(土) 19:12

>>495 解決してないよ。
非圧縮のAVIに変換する方法がわからないもの。

498 ：ヒロユキ＠ギコナビ ：2001/03/03(土) 19:32

>>496
ギコナビでは、メインフォームのユニットの一番下に書いています。

>>497
無圧縮のほかに、音声も入っているとダメだったと思う。
僕はコレ使ってます。（複数BMP -> AVI）
http://www.vector.co.jp/soft/win95/art/se056311.html

499 ：ヒロユキ＠ギコナビ ：2001/03/03(土) 19:35

>>496
あっ、どっかのメソッドに書くのではないです。
メインフォームのユニットの一番下の「end.」の直前に書けばいいと思います。

500 ：フッサール少佐 ：2001/03/03(土) 23:05

最近は仕事が忙しくて更新もままならないんですけど、更新してみました。
インデックスはまだまだ構想中。意外と難しい。
http://www.geocities.co.jp/SiliconValley-Cupertino/1026/lzh/giko0303.lzh

501 ：デフォルトの名無しさん ：2001/03/04(日) 17:58

皆さんコード補完にどんなものを登録していますか？
便利そうなのがあったら教えてください。

僕はとりあえずこんなのしかありませんが...
[begin | begin/end]
begin
|
end;

[unit | unitの新規作成]
unit |;
interface
uses
Windows, Classes, SysUtils;
implementation
end.

502 ：デフォルトの名無しさん ：2001/03/04(日) 18:05

スレ違い。ごめんなさい。
お詫びAAのコメントをまとめてみました

[aa_unit_header | ユニットヘッダ の書き方]
(*
// 　∧ 　∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
//　（´∀｀）＜ |のソースだモナー
//　（　 　　） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
//　 ｜ ｜　|
//　（_＿）＿）
履歴
//*)
[aa_func_header | 関数ヘッダの書き方/アロエリーナ風]
////////////////////////////////////////////////////////////
{// 名前：|
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ
ｺｺｶﾗﾉｺｰﾄﾞﾊ:
ｸﾜｼｲｾﾂﾒｲﾊ:
ｲﾝｽｳﾊ:
ｺｳｼﾝ日ﾜ：　 2001/00/00
ﾎｶﾆ逝ｯﾄｸｺﾄﾊ ﾅｼ
聞いてくれてありがと　アロエリーナ♪
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　　　/
　　　　　　　　 ∧_∧
　　　Ψ　　　 （∀・ ）
　　　□　　　 （∩∩ノ）
//￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ }
[aa_func_header_mona|関数ヘッダの書き方/モナー風]
//
//　　∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
//　（´∀｀）＜ |
//　（　 　　） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
//　 ｜ ｜　|
//　（_＿）＿）
//

503 ：デフォルトの名無しさん ：2001/03/04(日) 19:25

>>502
最高にお節介だが、引数はインスウではなくヒキスウと呼ぶんでは。

504 ：デフォルトの名無しさん ：2001/03/04(日) 19:38

>>503
わざとでは？(藁

505 ：デフォルトの名無しさん ：2001/03/04(日) 22:38

なんでも隠語の２ちゃんは♪いつでもいいネタさがしてる♪

506 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/05(月) 10:28

眠い。

507 ：デフォルトの名無しさん ：2001/03/05(月) 10:48

バイナリも置いてくれよん。
Delphi持ってないよん。

508 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/05(月) 11:37

どなたかEZIPやUPXのexe圧縮(と呼ぶのか?)
かけておいてくださらないでしょうか。

509 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/05(月) 12:48

>>498
だって、圧縮AVIをBMPに展開する方法がそもそもわからない。
....手作業でキャプチャするのはいやだよ。つらいよ。なくよ。

510 ：デフォルトの名無しさん ：2001/03/05(月) 13:17

>>509
AviUtlあたりで、AVIを読み込んで、書き出すときに無圧縮にすれば
良いと思うけど。

511 ：ＳＡＧＥ ：2001/03/05(月) 13:47

AVI って IrfanView でバラせませんでしたっけか。＞509

512 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/05(月) 16:59

>>511
ありがとう。

513 ：デフォルトの名無しさん ：2001/03/05(月) 21:14

見圧縮のAVIアップしました。
さすがにサイズ大きいです。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monagiko_avi.lzh

514 ：書記さん ：2001/03/05(月) 22:54

Delphi持ってない人の為にバイナリアップしました。

OpenGiko
http://www.geocities.co.jp/SiliconValley-Oakland/9028/bin/opengiko.lzh

Monaplorer
http://www.geocities.co.jp/SiliconValley-Oakland/9028/bin/monaplorer.lzh

515 ：フッサール少佐 ：2001/03/05(月) 23:38

>>508
圧縮実行ファイルを作るならここらへんかな
http://jonathanclark.com/ezip/
http://www.entechtaiwan.com/aspack.htm

>>514
OpenGikoのヤツはboard.iniが無いと動きません。
ソースファイルからモッテくる必要あり。
当然だが、バージョンアップで前のと互換性が無いとか文句言うなよ。
そんなこと考えて作ってないし、だからこそソースのみなのだ。

516 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/06(火) 09:39

つか、ﾓﾅﾌﾟﾛﾗの方も
ユーザーが使うレベルの完成度に達してないよ(藁

そのあたりは今の所許容してくださいモナー

517 ：Dax ：2001/03/06(火) 10:36

Hotzonuあぷしました。
まだHTTPかキャッシュからファイルを取ってくるキノーしかないです。
スレッド対応にはしてみたんですがメモリリーキーです。
モナプロラの共通関数ぱくりまくってます。
http://www.geocities.co.jp/SiliconVallery-Oakland/9028/hotzonu0306.lzh

518 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/06(火) 11:18

バンバンパクってくらさい

ところで別スレのＤｅｌｐｈｉLifeゲムを
アプしたいのですが
よい2ch利用可能アプ板しりませんか？
monazilla.orgにｱﾌﾟするのも筋違いだし
ｱﾔｼそうな所にｱﾌﾟしても悪いし。

519 ：Dax ：2001/03/06(火) 11:41

URL、うそっぱちでした。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hotzonu0306.lzh

520 ：デフォルトの名無しさん ：2001/03/06(火) 11:58

>>518
> よい2ch利用可能アプ板しりませんか？
http://doripoke2.port5.com/cgi-bin/source.cgi
ここでどお？
あとはドル猫さんの
http://green.nttec.com/tech/
とか。

521 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/06(火) 17:57

>>520サンクス。

今日は各ペインを表示非表示出来るようにしたり
新しいタブで開くを作ったり
ageレスのカウントを表示してみたりしたけど
小変更なのでｱﾌﾟは見送り…

根本的(とは大げさなんだけど)に
ダウンロードクラスを作らなければ
ダウソ中のキャンセル処理やリロード処理がやりにくい事に
気が付きました。
ボド一覧(ひとつ)・スレ一覧(ひとつ)・レス一覧(複数)
についてマルチスレッドなダウソクラスを作ろうかな。

ｵﾚにそんなスキルがあるのかどうかﾄﾞｷﾄﾞｷしてますが
力ﾞ　ソ 八ﾞ ｯ 〒 ﾐ ﾏ フ、

522 ：デフォルトの名無しさん ：2001/03/06(火) 18:17

turbo type D さんって何歳？

523 ：デフォルトの名無しさん ：2001/03/06(火) 18:23

知ってどうする？

524 ：ふみもたたけし ：2001/03/06(火) 23:12

>517
今日の思いつき@いいかげん。

type
　TDownloadableObject=class
// メモリの効率化・コードの簡略化のためにUrlを二つに分けたほうがよい。
// obj.BaseUrl := 'http://foo/bar/baz/'; // この文字列は複数のインスタンスで使いまわされるはず
// // obj.FileName := 'dat/hoge.dat' // この部分だけインスタンス毎に異なる
// obj.FileName := '../index2.htm' // これもありうる
// obj.Url := 'http://foo/bar/baz/dat/hoge.dat'; // 分けたくなければ
　private
　　function GetUrl: String;
　　begin
　　　Result := BaseUrl + FileName;
　　end;
　public
　　property Url: String read GetUrl write SetUrl;
　　property BaseUrl: String read FBaseUrl write FBaseUrl;
　　property FileName: String read FFileName write FFileName;

// OnStartDownload, OnEndDownloadはイベントよりvirtualメソッドのほうが適切。
// downloader<->TDownloadableObject(しかし長いな)間の通信にはイベントは適さない
// downloadable<->アプリ間の通信にイベントを使うべき
　protected
　　procedure StartDownload; virtual;
　　procedure EndDownload; virtual;
　　// FLines[Index1..Index2]を差分ダウンロード
　　procedure Download(Sender: TObject; Index1, Index2: Integer);

// Downloaderではなくdownloadableが主体になるべきか？。
// ダウンロードのタイミングをdownloadableに制御させるとこんなことができるかも
// Memo1.Lies.Text(FormatDat(NichNet['PC等']['monazilla'].Lines));
　public
　　property Downloaded; // 既にダウンロード済み?
　　property Downloader;
　　procedure Download;
　end;

TDownloader.CreateDownloadableObjectの意図がわからない。
d := Downloader.CreateDownloadableObject;
d.OnXXX := YYY;
Downloader.Download(d)
Boards.Assign(d) // 一覧生成
のようにするってこと？

type
　TBoards = class(TDownloadableObject)
　protected
　　procedure EndDownload; override;
　　var
　　　title, url, category: String;
　　begin
　　 html_parser.lines.assign(lines);
　　　while html_parser.getboardinfo(title, url, category) do
　　　　items.add(category, title, url);
　　　if(Assigned(OnDownload))
　　　　OnDownload(Self); // アプリへ通知
　　end;
　end;
の方がシンプル。継承使うとまずいのかな？

525 ：デフォルトの名無しさん ：2001/03/07(水) 00:17

とりあえず２ちゃんねるの総通信時間、総ダウンロード文字数、
総書き込み回数・文字数をバージョン情報orスプラッシュで
ユーザーに見せつける機能は必須でしょう(藁

526 ：デフォルトの名無しさん ：2001/03/07(水) 01:29

>>525
いいねそれ(藁

527 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/07(水) 09:44

いくつか聞かれるとは...何の意図があるのだろう。
なんか怖いよ。
もしかして
「精神年齢低そー」とか思われてる？(TДT)

528 ：デフォルトの名無しさん ：2001/03/07(水) 14:46

>>527
太った男性は、好きですか？
とか聞かれるよりマシ(;´Д`)

529 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/07(水) 14:55

>>528
嫌すぎ！(;´Д`)
ﾁﾝｺ萎える

530 ：デフォルトの名無しさん ：2001/03/07(水) 15:36

で、実際のところ何歳？

531 ：デフォルトの名無しさん ：2001/03/07(水) 15:55

わーい、バイナリアップされてるー。
これで参加できるぞー。
使うだけだけどー。

532 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/07(水) 16:08

>>530
何歳がいいですか？

この際75歳って事にでもしましょうか。(藁

533 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/07(水) 16:14

75歳じゃﾁﾝｺ萎える感覚もわからんだろうな。
いや、そんな話どうでもいいよ。全く！

それよりダウンロードのやり方について考えてくれない？
全然思い浮かばない。

一般的なFTPソフトってどうやってダウソして
途中キャンセルとか実装してんだ？
簡単に概念だけ説明してくれる人キボンヨ

ダウンロードアイテムを作成して
それをリスト管理しているのかな。


あと、

太った男性は嫌いです。
ｵﾊﾟｲの大きい女性は好きです。
ﾊﾟｲﾊﾟｲの小こい女性も好きです。
・・・・・・・・・・・・・・・・・・・・・・・なーに言ってんだか。

534 ：デフォルトの名無しさん ：2001/03/07(水) 18:45

>>533
>一般的なFTPソフトってどうやってダウソして
>途中キャンセルとか実装してんだ？
HTTPにしろ、FTPにしろ、最終的にはsocketのreadになるはず。
そのsocketに対してタイムアウト付きでselectして、読み込み可能だった
ら（IPのバッファにデータが届いた）ら１バイト読み込む。タイムアウト
したらそのまま。そして、キャンセルフラグ（GUIのボタンが押されたら立てる）
が立ってるか、最後まで読み込んだら終了。
当然だが、GUIのメッセージ処理スレッドとダウンロードスレッドは別。
タイムアウトを１秒にすれば、１秒単位でキャンセルできる（キャンセル
ボタンを押した後、最大１秒待てばキャンセルされる）。

うまく説明できてないと思うけど、だいたいこんな感じ。

535 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/07(水) 19:20

＞当然だが、GUIのメッセージ処理スレッドとダウンロードスレッドは別。

この概念が頭になかったから
すごい頭がいたくなってきたよ。

でも何とかなるかも。

536 ：デフォルトの名無しさん ：2001/03/07(水) 20:14

スレッドは面倒だぞ。
データの整合性が乱れないように気をつけないと。

537 ：Dax ：2001/03/07(水) 22:08

>524
れびゅーThanx
TDownloader.CreateDownloadableObject は意味無しでした。
あと、スレッド系の処理の一部がテスト中のままでした。
DownloadableObjectを誤解してたかも。
わたしはこう考えてました。
これは UI アプリケーションのコード。

proc Button1Click;
begin
DownloadableObject.URL := '板一覧のURL';
Downloader.StartDownload ( DownloadableObject );
end;

proc OnEndDownload;
begin
Board.Parse( TDownloadableObject(Sender).Lines.Text );
ツリーなどにボード一覧をつくる処理
end;

んー、なんかイケてないですねー、
やっぱり板クラスなどは TDownloadableObject継承がスマートですね。
それから処理中断をどうやって実装しようか悩んでます。

538 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 11:13

>>536
うーん、そうだよね。
データの整合性という点では
スレ一覧でTNichBoardという1データに
リスト形式でTNichThreadデータを複数所有させていて

実際にブラウザで見る段階で新しいTNichThreadにAssignして
コピーしてから見るようにしている。

更に
昨日実装したんだけど
ブラウザの履歴データもTNichThreadをAssignでコピーして
保持しているんだ。

なぜそんな事をしているかというとスレ一覧が更新されたとき
コピー元のTNichThreadが破棄されてしまうから
ポインタで参照しておくわけにいかないの。

メモリ効率は悪いよなあ...メモリ食いが致命的にならなきゃいいけど。
その程度のメモリ使用はOKかなと考えてる。

Dax氏の言うように中断処理も難しいぜ。

539 ：デフォルトの名無しさん ：2001/03/08(木) 15:10

>>538
スレデータも板データもリファレンスカウンタで管理すれば？

540 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 16:48

>>539
それ知らない。どうやるの？

Max関数って使ってよい？

541 ：デフォルトの名無しさん ：2001/03/08(木) 16:55

>>540
Mathに含まれてるやつやね。
MonaUtilsに含ませとけばどうでせう。
http://green.jbbs.net/computer/bbs/read.cgi?BBS=479&KEY=983891233&END=100

542 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 17:05

書記さん、WinInetの続きです。
追加でpage9.htmlとpage14のものお願いします。

元ページのリンク先が飛び飛びなのは明らかに必要の無い
Tipsは無視してるから。
page9.htmlなんかも必要ないっつたら必要ないよね。
page10.htmlは不必要
page11.html/page13.html/page16.hemlは
monazillaには必要ないのでパスしてます。
page12.html/page15.htmlはいずれ必要

だれか書いてくれんかい？


//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page9.html
//より移植
//プロキシサーバーを使用する。
　hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_PROXY, 'proxy:8080', nil, 0 );
//プロキシサーバーを使用するがローカルアドレスには使用しない
　hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_PROXY, 'proxy:8080', '<local>', 0 );
-----------------------------------------------------------------------
//読み取りポイントを設定する
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page14.html
//より移植
procedure TForm1.Button1Click(Sender: TObject);
var
　hSession: HINTERNET;
　hService: HINTERNET;
　lpBuffer: array[0..1024+1] of Char;
　dwBytesRead: DWORD;
begin
//　hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_DIRECT, nil, nil, 0);
　hSession := InternetOpen( 'MyApp', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
　if Assigned( hSession ) then
　begin
　　hService := InternetOpenUrl( hSession, PChar(Edit1.Text), nil, 0, 0, 0);
　　if Assigned( hService ) then
　　begin
　　　InternetSetFilePointer( hService, 100, nil, FILE_BEGIN, 0);
　　　//↑最初のものにここが増えているだけ 100バイト目以降を読んでいます
　　　while true do
　　　begin
　　　　dwBytesRead := 1024;
　　　　InternetReadFile( hService, @lpBuffer, 1024, dwBytesRead );
　　　　if dwBytesRead = 0 then break;
　　　　lpBuffer[dwBytesRead] := #0;
　　　　Memo1.Lines.Add( lpBuffer );
　　　end; //while
　　end;
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

543 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 17:31

テスト

544 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 17:34

ｽﾏｿ差分ダウソテスト

545 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 17:38

>>540-541
Integerだけでいいので
よろしくたのみま

>>542
の差分ダウソ全然スピードがでなくてダメダメだ！

546 ：デフォルトの名無しさん ：2001/03/08(木) 17:57

>>540　リファレンスカウンタ
TNichThreadやTNichBoardに自分が何回参照されてるかのカウンタ
をつけておき、Assign（←Delphiをまったく知らないが文脈からDeepCopy
のことと推測した）するんじゃなくて、カウンタを1増やす。
で、オブジェクトが不要になったら破棄するんじゃなくて、カウンタを1減らす。
カウンタが0になったら、参照されてないってことだからオブジェクトに自殺させる。

Pascalにもポインタはあったと思うのでたぶんできると思う。

547 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 17:57

>>542　ｻﾝｸｽｺ

書記さん更新はやすぎだよ(藁

548 ：turbo type D@ﾓﾅﾁﾞﾗﾄﾞｯﾄｵﾙｸﾞ(ﾜﾗ ：2001/03/08(木) 18:05

>>546
はーー、そんな方法があるんだ！かしこいなー
誰が考えたんだ？

俺が知らんだけ？常識？

Assignはメンバーとか全部のコピーです。から
DeepCopyと同じかな。あまりしりませんが、

簡単なサンプルキボン.C++でもいいよぉ
どこかのwebペジに載ってないでせうか？

549 ：デフォルトの名無しさん ：2001/03/08(木) 18:54

>>548
VCLのソース参照(藁
グラフィックス系のオブジェクトは、参照カウンタもってて、
Assignしてもその時はコピーされなかったはず。

550 ：デフォルトの名無しさん ：2001/03/08(木) 19:09

>>545
いいだしっぺが実装かい！おそろしいスレだ…。
まあつけておいたけど。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/MonaUtils20010308.zip

しっかしTipsといいこのスレはためになるなぁ

551 ：デフォルトの名無しさん ：2001/03/08(木) 20:29

>538
TNichObjectのインスタンスの個数・寿命は
フォーム上のコンポーネントに「完全に」一致しているから、
TComponent.Tagがインスタンスの生成・廃棄の責任を持つようにしたら
いいんじゃない？
TreeView1.Tag = LongInt(TNichBoards.Create);
TNichBoards(TreeView1.Tag).Download;
とかね。

552 ：turbotypeD@モナぢら ：2001/03/09(金) 01:04

>>550サンクス
自分で参加してこそ、ためになるさ、きっと。

>>551
ｽﾏｿ、ちょっとそれは理解できない。
というか意味がわからない。ﾄﾞﾕｺﾄ？

リファレンスカウンタっていうのはつまるところ
ガーベージコレクションつ奴なんだね？
違った？

それにしてもそれをやると
かなりデータ構造やらの改造が必要になるので
ｵﾚ的には当面は先送りしたいと思います。

メモリ効率化よりも
きちんと動作するものを作らないといかんかなと。

553 ：turbo type D ：2001/03/09(金) 12:05

ｽﾝﾏｿﾝ頼みがありまする。

WinInetのﾀﾞｳｿ時間で
542のサブンダウソするコードpage14と
ここ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/document/wininetdel.html
のpage2/page3とのﾀﾞｳｿ時間の短縮の効果の
大まかな測定をどなたかやってはくださいませんか。

現在、レス表示についてサブンダウソしているが
オレの環境では、それが氏ぬほど遅い。
サブンダウソの意味がわからない。
なんでだ


関係ない話だけどpage4のやり方だと
ﾀﾞｳｿの途中キャンセルが出来ないようなので
使えない。

554 ：デフォルトの名無しさん ：2001/03/09(金) 21:43

ギコナビα010のバージョン情報注目ー！！

555 ：デフォルトの名無しさん ：2001/03/09(金) 21:57

16x16(を並べた)256色ボタン画像つくりました。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/16x16x256_01.lzh

556 ：turbotypeD@モナぢら ：2001/03/09(金) 22:09

>>書記さん
ﾓﾅﾌﾟﾛﾗページ作成、サンクスーーー

>>555
d(・∀・)イｨ

557 ：turbotypeD@モナぢら ：2001/03/09(金) 22:27

キコナビα010コンパイル成功。

ギコナビもスレッドつかってんですなー。
ﾓﾅﾌﾟﾛﾗもスレッド化＆ﾀﾞｳｿ部分のコーディングは
今のところ順調。
思ったとおりにできそうっす。

プロラRさんにもいいのが提供できそうだ。

558 ：デフォルトの名無しさん ：2001/03/10(土) 04:06

ギコナビさんの TBBS2ch でなんでメモリリークするのか解らん。
カテゴリ数＋１？っぽいので見つけるのは楽だろうと思ったらそうでもない…
う〜消化不良だ、だれか潰してくれ〜。

559 ：turbotypeD@モナぢら ：2001/03/10(土) 17:21

今、CATVでLAN接続なんだけど
ギコナビがWebデータを全く読んでくれない。

IEなどはプロキシ使用しないになってるんだけど。
ギコナビでも当然同様に設定している。

560 ：ななしくん ：2001/03/10(土) 22:56

本家すごい勢いだネ。
忙しくってついていけないよ。(ﾟεﾟ )ﾄﾎﾎ・・

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

Monaplorer,
bbstable.htmlも配布してぇ〜

562 ：デフォルトの名無しさん ：2001/03/11(日) 13:09

>>560プロラRさんですか？
なにせ、仕事してないからね。

誰か、就職先斡旋してくんない？(藁

ところで、昨晩いいダウソクラスユニットができましたぜ旦那！

こんな感じの奴。
キャッシュを使う/使わない
差分ﾀﾞｳｿする/しない
ﾀﾞｳｿ途中でイベント発生、イベント内でApp.ProcessMessageを
かまして、キャンセルフラグ立てたり可能
ﾀﾞｳｿ中のデータもそのイベントに随時送信

そのクラス単体でも使えるﾀﾞｳｿユニットになるけど
(というか現状のモナプロラはこれと似てる)

それ自体をスレッドでぐりぐりまわす予定。
スレドの方はまだミカンね。

>>561
ラジャーブラジャー
つか、起動時に板一覧は表示するように変えときます。

時間ｵｯﾊﾟｲいや、イッパイある
Del厨学生なんかは参加してないの？
仕事人ばかりなのかな。

563 ：turbo type D ：2001/03/11(日) 13:12

>>562
名前忘れてた。

564 ：>562 ：2001/03/11(日) 13:37

>誰か、就職先斡旋してくんない？(藁
履歴書にこのスレとmonazilla.org(藁のURLを
書いとけば一発で (以下略

565 ：デフォルトの名無しさん ：2001/03/11(日) 18:18

確かに一発（略

566 ：turbo type D ：2001/03/11(日) 18:32

>>564
一発で落ちるんだろ。。それやだ。(TДT)ｺﾞﾙｧ

567 ：デフォルトの名無しさん ：2001/03/11(日) 18:43

>一発で落ちるんだろ
そんなことないんじゃない？

オープンソースプロジェクトに参加する動機の一つに
名前と技術力をアピールすることもあるみたいだし。

ちゃんとしたものを仕上げれば、
履歴書に書くことがプラスに働くと思うんだけど...

568 ：turbo type D ：2001/03/11(日) 19:09

ほんとかな。まあいいや。

今初めて気が付いたんだけど
かちゅ〜しゃのスクロールバー上でPopupMenu
が開くね。
こりゃなんだらﾎｲ？

普通の
ListViewやListBoxのスクロルバ-
なのかな？

569 ：デフォルトの名無しさん ：2001/03/11(日) 19:43

>>568
最近のWindowsについたコントロールの機能と思われ。
自力でスクロールバー実装してない限りは、つくと思われ。

570 ：569 ：2001/03/11(日) 19:49

あ、どうでもいいが、Delphiのエディタのスクロールバーだとでないね・・・。なぜ。

571 ：turbo type D ：2001/03/11(日) 20:34

さんｸｽｺ>>569
独自実装じゃない？

エディタとかでも出ないよ。

572 ：デフォルトの名無しさん ：2001/03/11(日) 20:45

どこのスクロールバー？

573 ：かちゅ〜しゃ作者 ：2001/03/11(日) 20:46

どこのことでしょ？
少なくとも、独自実装とか難しいことはしてません。

574 ：かちゅ〜しゃ作者 ：2001/03/11(日) 20:50

ちなみにブラウザコンポはTEmbeddedWb、
リストコンポはTExtListViewを使ってます。
海外フリーコンポですが使い慣れているので。

317KB

---

新着レスの表示

---

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

0ch BBS 2004-10-30