monazilla

２ちゃんねる専用ログ巡回ソフト「モナヂラ(monazilla)」を
オープンソースでつくっちゃおーと言うプロジェクトです。

＞１
ソースは何処？

オープンソースなのに、ソースはまだ無い。
つーか誰も一行も記述してない！

企画倒れsage
つーかいまさらそんなもんが必要か？しかも２ちゃんねる専用？

>>4
つくることそのものが目的です。

作るんだったらふつーのGeckoブラウザきぼん
K-meleon対抗で

なんか予想通りの展開だな。
誰かがベースになるコードを一通り組んじゃわないと
先に進まないよ。

ベース。

int main(int argc,char* argv[]){
　return 0;
}

おれがメインを書いてやる

void main()
{
　　while(1){
　　　　sub() ;
　　}
}
サブは誰か書いてくれ！

＃誰かがmain()の型を突っ込んでくれますよーに・・・

もろかぶったな。

そうだね。。へへへ　＞8
じゃ定義文。

#define　　MSG_MONA　　　"お前モナー"

import javax.swing.*;

class Monazilla{
　private JFrame frame;
　public Monazilla{
　 frame = new JFrame("Monazilla");
　}
　public void itteyoshi(){
　　//後は任せた
　　frame.pack();
　　frame.show();
　}
　public static void main(String args[]){
　　Monazilla mona = new Monazilla();
　　mona.itteyoshi();
　}
}

今更Javaかよ。

mozillaより重そう…

>>12
>>14
Java ブラウザーのJazillaって知ってます？

とりあえ、だれかmozillaのソース持ってきてよ。
それをちょこちょこ弄るだけで終わりしよ。

>>15
知ってました(藁

import java.awt.*;
import java.io.IOException;
import javax.swing.*;
import javax.swing.event.*;

public class Monazilla extends JFrame {

private JFrame frame;
private Container pane;
private JEditorPane ePane;

public Monazilla() {
setTitle( "Monazilla" );
setSize( 600, 500 );
setDefaultCloseOperation( JFrame.EXIT_ON_CLOSE );
setVisible( true );
}

private void itteyoshi() {
pane = getContentPane();
try {
ePane = new JEditorPane( "http://salad.2ch.net/bbstable.html" );
} catch ( IOException ex ) { /* mona */ }
ePane.setEditable( false );
ePane.addHyperlinkListener( new Hyperactive() );
}

private void omaemona() {
pane.add( ePane );
}

public static void main(String args[]){
Monazilla mona = new Monazilla();
mona.itteyoshi();
mona.omaemona();
}

}

class Hyperactive implements HyperlinkListener {

public void hyperlinkUpdate(HyperlinkEvent e) {
if (e.getEventType() == HyperlinkEvent.EventType.ACTIVATED) {
JEditorPane pane = (JEditorPane) e.getSource();
try {
pane.setPage(e.getURL());
} catch (Throwable t) {
t.printStackTrace();
}
}
}

}

あいよ、Indyインストしてまっててな。

ギコナビが HTTPにどのコンポ使ったかおせーてほしーな。
ソケット直かな？NMは使ってないみたいだけど。

面倒だからWininetでもいいんじゃん？

http://msdn.microsoft.com/workshop/networking/wininet/wininet.asp
ここ参照ね。

板一覧の取得方法って
http://www.2ch.net/bbsmenu.html
を解析すればいいの？

・・・なんか、VC++の奴らが混ざってねえか？(w

VCLでオープンソースな。
Borland以外の奴は他すれでやってくれ。

単に、Delphiの人達やる気ないんじゃない？

言語はなんでもいいと思うんだけどね。。

>>20
ギコナビ＠ヒロユキです。
ギコナビはHTTPCLIっていうのを使ってます。
なかなか高性能ですよ。

あと、このスレ面白そうだね。
オープンソースプロジェクトだと、様々な人たちの力で成り立つわけですが、
だれか、一人の人がまとめる役をしないといけないのではないでしょうか？
ここの１さんが、まとめる役とかしないのですか？

まずは、言語からはなれて、分析／設計をするのが先のような気がするよ。
言語を決めるのは、それが終わってからでも、遅くは無いと思うよ｡
みんなで適当に進めても、アプリケーションは出来ないよ。

それじゃ、みなさん、がんばってください。
僕も仕事が暇になったら、参加させてもらいます。

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

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;

開発言語はなんでしょうか。とりあえずCでいいなら>>23さんの
部分ならありますんで汚いソースですが、、
更に言うとめちゃくちゃへぼいです。訂正してくれたら私も嬉しい。。

void MasterMake(void)
{
FILE *fp,*fp2;
HANDLE hFile;
DWORD FileSizeLow,dwAccBytes;
OPENFILENAME ofn;
char *lpBuffer,stp[32][128],categsf[32];
int i,j,k,t,p,st,ls,servsuu,length[SERVERNMAX],categn = 0,flag = 0;

//bbstable.htmlはhttp://salad.2ch.net/bbstable.html
//ファイル開いてメモリに書き出してます。
hFile = CreateFile("offboard\\bbstable.html",0,FILE_SHARE_READ |
FILE_SHARE_WRITE,NULL,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,NULL);
FileSizeLow = GetFileSize(hFile,NULL);
CloseHandle(hFile);
lpBuffer=new char[FileSizeLow+1];
GetOpenFileName(&ofn);
hFile = CreateFile("offboard\\bbstable.html",GENERIC_READ,
0,0,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,NULL);
SetFilePointer(hFile,0,0,FILE_BEGIN);
ReadFile(hFile,lpBuffer,FileSizeLow,&dwAccBytes,NULL);
lpBuffer[dwAccBytes] = 0;
CloseHandle(hFile);

//ここら辺はオフボード落としてtextの中身確認して下さい
//全サーバの種類を配列に格納してます。後で比較する為
fp2 = fopen("offboard\\server.txt","r");
for(i=0;fscanf(fp2,"%s",stp[i]) != EOF;i++) length[i] = strlen(stp[i]);
servsuu=i;
fclose(fp2);

fp = fopen("offboard\\masterboard.dat","w");
//カテゴリ分けする為にカテゴリの名前を読み出してその位置を見つけます
fp2 = fopen("offboard\\category2.dat","r");
fscanf(fp2,"%s",categsf);
st = strstr(lpBuffer,categsf) - lpBuffer;

for(categn=0;fscanf(fp2,"%s",categsf) != EOF;categn++){
ls = strstr(lpBuffer,categsf) - lpBuffer;
for(i=st;i<ls;i++){
flag = 0;
if(lpBuffer[i] == '='){
for(j=0;j<servsuu;j++){
if(strncmp(stp[j],&lpBuffer[i+8],length[j]) == 0){
fprintf(fp,"%d\t%s\t",categn,stp[j]);
flag=1;
break;
}
}
if(flag == 1){
for(k=i+length[j]+9;lpBuffer[k] != '/';k++) fprintf(fp,"%c",lpBuffer[k]);
fprintf(fp,"\t");
for(t=k;t<k+64;t++){
if(lpBuffer[t] == '>'){
for(p=t+1;lpBuffer[p] != '<' && p <= t+14;p++)
fprintf(fp,"%c",lpBuffer[p]);
fprintf(fp,"\n");
break;
}
}
}
}
}
st = ls;
}
delete []lpBuffer;
fclose(fp2);
fclose(fp);
return;
}

タブが消えてしまいましたが、、わかねーぞボケって部分があったら説明します。

CreateFileでネットワーク越しのhtmのソース（やバイナリファイル）開けちゃうの？

開けます。>>33

2chのCGIの詳細な仕様が欲しいんですけど、
どっから手に入ります？

>>34
ダウンロードに関してはCreateFile, ReadFileだけで十分ってことかな？
そうするとDelphiのHTTP系コンポを使う意味あるの？

>>27ギコナビ＠ヒロユキ、こんにちは

http://users.swing.be/francois.piette/indexuk.htm
これですか。がいしゅつか？

ギコナビ自体おおよそ基本部分が出来るまで
どのくらいかかっているんでしょう？

>>31-32
わかりにくいぞボケ..
いや、失敬。

エディタの置換使うかこれｱﾌﾟしたから使いナ。
http://zurubon.virtualave.net/source.cgi

program&nbsp;nbsp;

uses
&nbsp;&nbsp;SysUtils,
&nbsp;&nbsp;Clipbrd;

{$R&nbsp;*.RES}

var
&nbsp;&nbsp;S:&nbsp;String;
begin
&nbsp;&nbsp;S&nbsp;:=&nbsp;Clipboard.AsText;
&nbsp;&nbsp;S&nbsp;:=&nbsp;StringReplace(S,&nbsp;'&nbsp;',&nbsp;'&nbsp;',&nbsp;[rfReplaceAll]);
&nbsp;&nbsp;S&nbsp;:=&nbsp;StringReplace(S,&nbsp;#9,&nbsp;'&nbsp;&nbsp;&nbsp;&nbsp;',&nbsp;[rfReplaceAll]);
&nbsp;&nbsp;Clipboard.AsText&nbsp;:=&nbsp;S;
end.

>>38 そこははじかれたんで＾＾；
ドル猫様の使わせていただきました。
http://green.nttec.com/tech/read.cgi?KEY=981878874
今回のはローカルにファイルが置いてなくてもそのまま作れます。
でも腐ってるので改良お願いします。
ちなみにブラウザ最大化しないとずれるから見にくいっす。

http://green.nttec.com/tech/read.cgi?KEY=981880639
ゴミが混じってたんでデバッグしました。

http://salad.2ch.net/bbstable.html得られるでリンク先から.datを得るのは
どうやってやるの？

例えばこのスレッドならhttp://piza.2ch.net/tech/dat/981726544.dat
ここからDLすればいいです。実は私も以前にオフラインビューワ作ろうとしたんですが、
スキルの無さと、他の皆さんが次々に公開された事で断念しました。
あんまり力になれないかもしれませんが知ってる事があれば出来る限り協力します。

>>35　http://tako.2ch.net/test/read.cgi?bbs=perl&key=978059673

>>43
う〜ん、直接2chの仕様ってわけではないのか。
でも、だいぶ分かってきたぞ。

ポイントはこれか？
http://piza.2ch.net/tech/index2.html
http://piza.2ch.net/tech/subject.txt
http://piza.2ch.net/tech/dat/981726544.dat

なーんだ、ギコBASICで開発じゃないのか・・・。

>>1
↑とかをマウスポインタをあてると、その部分がHintで表示されるけど、
それってどうやってやるのか、教えて下さい。キボンヌ。

>>129
「どうやって」って具体的に「何が」が分からないのですが、
ギコナビはTHintWindowを使っています。
ポイントされたら、
１、ポイントされたURLをパース。
２、ログを検索。
３、存在したら指定行を取り出す。存在しなかったら終了。
４、取り出したログの行をパース。
５、THintWindowのインスタンスを生成し、表示する文字列やらを設定。
６、表示
これだけ。

一番最初のポイントされたURLをパースってのがわからんです。
それ以外は、分かるんですが…。

>>131
Delphiでいいのかな？
TWebBrowserのOnStatusTextChangeでポイントされたURLがとれるでしょ？
・・・read.cgi?bbs=tech&key=nnnn&st=nn&to=nn
こんな感じで取得出来るよね。
んで、文字列がURLだったら、あとは、？と＆でバラバラにして
ｂｂｓとｋｅｙとｓｔとｔｏの左側を取ればログの場所は判断できるでしょ。
本当は、ポイントされた場所の文字列（>>nn）を取得して判断したほうが
スマートだと思うけど、これやるには面倒そうな感じ。
フリーのTWebBrowser拡張版みたいなコンポなら簡単に出来るかも。
そっちのほうは、ギコナビでは使ってないので分かりません。

ごめん。ギコナビがバグっていて、レス番号が�dでもない数字になってた。

>TWebBrowserのOnStatusTextChangeでポイントされたURLがとれるでしょ？

これを知らなんだ。これで、全部わかったです。ありがとー。
オレもブラウザ作るかな。

どうせならIE使わずにってのは、無理？
.DATを直に拾ってくるなら問題ないよね。

>>52
表示が面倒だよ？

俺もそう思う

>>52
ハイパーリンクがあるからこそ
使いやすいな。

IE使わないならAirWebの2chプラグインというのもある。

アスキーアートが崩れると
誰にも評価されないソフトと化す

今日、帰りにDelphi買ってきた。
プログラミング言語って高いな。

いくらで買った？

>>58
一番安いヤツ。
一万六千円くらいの。
あーでももう挫折の予感。

本棚にでも飾っとけ>59

こういうのに触れると、ソフトウェア作者の凄さが痛いほどわかるな。
HelloWorld！万歳！あああああ！
何か本買ってくれば良かった。

こんなでかいの本棚はいんねえよ。>>60
なんだこの説明書の厚さ。バーカ！Delphiのバーカ！
みなさんこんなのどうやって勉強されたんですか
帰り道のあのワクワクが嘘みたいだ

説明書なんて誰もみない。バカかおまえ？
初心者用の書籍探してそれで勉強しろ。

あと、ネットで2chじゃない所を利用しまくって己を磨け。
http://www.valley.ne.jp/~masaiku/index1.htm

だいたい、モナジラスレで関係ない話題ふるな。
VB厨房と違ってDelphi使いならエレガントに学習しなさい。

>>63
あんがと。とりあえず本買うわ。

なんだよー。全然進まないね。ｷﾀｲｼﾃｲﾙﾉﾆ。
turbo type Dﾀﾝが進める役したら？
すごくスキルありそうだし。

ギコナナビとかと違いを出すために誰かMindでやってみるってのは

スキルねーよ。＞ヒロユキ(w

とりあえず、TUIWebは導入したばかりで
俺はIndyでやるよ。
D6も見据えながら。

ソース表示をすれば、タブ数はわかるるる

IndyでHTTPをダウンロードするのはどうするんですか？

Demo見たらわかった。。。。。
今後はボロカスに言われたらやだから
質問するときはコテハンヤメテおこ。

>>23>>41
の質問をまとめます。

まずはじめに
http://salad.2ch.net/bbstable.html
を解析する事で板一覧情報は取得でき

それを解析してプログラム板のリンク先
http://piza.2ch.net/tech/index2.html
を取得して変換して
http://piza.2ch.net/tech/subject.txt
のデータを取得できる。

それにxxxx.datとかかれているので
http://piza.2ch.net/tech/dat/981726544.dat
これをDownLoadすれば発言内容が現れるという事だね。

これをローカルに保存してWebBrowserで開くとよい。
これで合ってますよね。

>>44でガイシュツだ。

>>72
dat ファイルは単なる CSV なので、
HTML のタグをつけてやらなきゃいけない。

とりあえずジオにディスク12MBとりました。
URL
http://www.geocities.co.jp/SiliconValley-Oakland/9028/
ID : monazilla
PW : mona

トクトクの方がいいかもよ。
容量無制限だしー。CGI可だし。

とりあえず、IndyとUIWebBrowserはインストしておいてヨシって
ことでいいですか〜？

で、IndyのIdHTTP使って任意のページをUIWebBrowserに表示させるコード。
//*********************************
object IdHTTP1: TIdHTTP
　RecvBufferSize = 1024
　HandleRedirects = True
　ProtocolVersion = pv1_0
　Request.Accept = 'text/html, */*'
　Request.ContentLength = 0
　Request.ContentRangeEnd = 0
　Request.ContentRangeStart = 0
　Request.ProxyPort = 0
　Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
　Left = 88
　Top = 112
end
//*********************************
procedure TForm1.NanashiAction1Execute(Sender: TObject);
var
　SL: TStringList;
　SaveFileName: String;
　Flag: OleVariant;
begin
　SaveFileName := ExtractFilePath(Application.ExeName)+'URLData.html';

　SL := TStringList.Create;
　try
　　IdHTTP1.Request.Username := '';
　　IdHTTP1.Request.Password := '';
　　IdHTTP1.Request.ProxyServer := 'xxx.xx.xx.xxx';
　　IdHTTP1.Request.ProxyPort := 80;
　　IdHTTP1.Request.ContentType := '';
　　IdHTTP1.Intercept := nil;

　　SL.Text := IdHTTP1.Get(Edit1.Text);

　　SL.SaveToFile(SaveFileName);

　　Flag := 0;
　　UIWebBrowser1.Navigate(SaveFileName, Flag, Flag, Flag, Flag);
　finally
　　SL.Free;
　end;
end;

TUIWebBrowser/TWebBrowserでHTMLファイルを作らなくても
ブラウザ表示させる方法はどうやるんだけ？

>>ご教授きぼーん。

>>74
ﾜﾗﾜｶｼﾃﾓﾗﾀ

Indyのコンポどこー？

見てなかったから気が付かなかったけど、
>>74
>turbo type D's page
つのはやめてくれよ。

ｱﾔｼｲページと俺とは何も関係ないんだから、
あそこ2ch嫌ってるし。

つか、一瞬、個人名バレたのかってヒヤっとしたから
心臓に悪い事はやめてくれ。まじ・（ｘДｘ


kylixにもDelphi6にも搭載される予定のネット関係コンポ
Indyのリンクきぼーんよ。
http://www.nevrona.com/Indy/

あ、やっぱまずかった？>>80
名前だけ消しときます。

勘違いでちた！>>80

>>80
分かっていると思うけど、
・Indy は Server Edition 以上につく
だそうです。Kilixの話ね。
Kilix-MLからの情報です。

Server Editionだとホビープログラマはつらいですね。>>83
にしても話が進まないので分析/設計とプロトタイプ開発を
同時に進めるようなやり方で行きましょうか？

>>77
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
HtmlView: DispHTMLDocument;
begin
s := '<html><body><font color=red size="+3">て</font>すと</body></html>';
HtmlView := WebBrowser_V11.Document as DispHTMLDocument;
if HtmlView <> nil then HtmlView.body.innerHTML := s
end;

じゃダメ？　ただし、いちどNavigateかGoHomeなどしておく必要アリ。理由不明。

プロトタイプってのは
技術的なプロトタイプね。
たとえばスレ一覧を取るだけのものとか。

>>85
var
v: OleVariant;
begin
v := 0;
WebBrowser1.Navigate('about:blank', v);
end;
これを最初にやるのはダメかな？

>>84 >>86
76でスレ一覧を取れたも同然じゃん。
とりあえず、骨組みとなるクラスを考えましょう。
>>28にあったように、あのクラスを元にして、決まったら一気に実装。

>>レス、サンクス
今から調べる。

コード規約みたいなのを考えてほしい。
コメントの書き方や関数ヘッダのコメントなど。
自分のやり方だと、個人名が特定されそうでやだし〜。

あと、画面周りは
通常の貧弱なMainMenuとToolbarを使ってActionで実装するつもり。
そうするとオプソならではの
MenuBar/ControlBar/Coolbar/CuteBarに至る改造を
各々が楽しめるようになるだろう。
Formの位置保存コードなども誰でも実装できそうな部分は
含めない方針でとりあえずめざします。

とりあえずはIndyを使いますが
関数化しておくから、NMHTTPやHTMLCLIを使っての置き換えが
容易に可能なようにもしておきます。

かちゅーしゃのデザインが優れていると感じるので
似たようにします。
3ペインの左がTreeViewにして,2ch用お気に入りもこのTreeに入るようにしたい。
上を、ListView,vsReport/StringGrid→迷っている。
下をTWebBrowserのPageControlにします。
（俺はTUIWebBrowserを使うけど多分置き換え可能だろう）

他に代替案があったらご意見よろしく。

関係無いけど
コードにはAAを嫌になるほどいれたい。(藁

Delphi自体のフォントをPゴシックに出来ないのは残念。

追加。データ保存はIniファイルでやる。

本当はマルチユーザ対応などレジストリでやるのが楽でいいんだが
コアなユーザーはIni好きだから。

>>88
そこまで考えてくれるとありがてぇ

>>83
Indyは付属してなくてもDowlLoadすればいい話じゃないか？
HELPファイルなんかはServer版しか日本語化されないだろうけど。
MLで聞いてみてよ。俺ROMってるから(藁

Board一覧データの取得方法考えました。

クラスを作る
&nbsp;&nbsp;//インスタンスが一つだけのクラス
&nbsp;&nbsp;T2chBoardList&nbsp;class
&nbsp;&nbsp;&nbsp;&nbsp;BoardCategorys:&nbsp;TList;//カテゴリのリスト
&nbsp;&nbsp;end;

&nbsp;&nbsp;//カテゴリごとのクラス
&nbsp;&nbsp;TBoardCategory&nbsp;=&nbsp;class;
&nbsp;&nbsp;&nbsp;&nbsp;Title:&nbsp;String;//【おすすめ】などのカテゴリ名
&nbsp;&nbsp;&nbsp;&nbsp;BoardItems:&nbsp;TList;//カテゴリに属する板のTBordItemを保持
&nbsp;&nbsp;end;

&nbsp;&nbsp;//各板ごとのクラス
&nbsp;&nbsp;TBoardItem&nbsp;=&nbsp;class
&nbsp;&nbsp;&nbsp;&nbsp;Title:&nbsp;String;//板のタイトル
&nbsp;&nbsp;&nbsp;&nbsp;Name:&nbsp;String;//板の英語名
&nbsp;&nbsp;&nbsp;&nbsp;URL:&nbsp;String;//板のURL
&nbsp;&nbsp;end;

--http://salad.2ch.net/bbstable.htmlのソースから
2chBoardListを生成

S&nbsp;:=&nbsp;bbsSource;
CategoryDataStart&nbsp;:=&nbsp;Sから【&lt;B&gt;を探索
CategoryDataEnd&nbsp;:=&nbsp;Sから次の位置の【&lt;B&gt;を探索/見付からない場合は文末
CategoryData&nbsp;:=&nbsp;SのCategoryDataStartからCategoryDataEndまで
CategoryDataが取得できなかったらエラー
SからCategoryDataは削除

CategoryTitleStart&nbsp;:=&nbsp;CategoryDataから【&lt;B&gt;を探索
CategoryTitleEnd&nbsp;:=&nbsp;CategoryDateから&lt;/B&gt;】
CategoryTitle&nbsp;:=&nbsp;CategoryDataのCategoryTitleStartからCategoryTitleEndまで
CategoryTitleが取得できなかったらエラー
BoardCategoryを生成2chBoradListに登録、タイトルに代入
CategoryDataからCategoryTitleは削除

BoardItemCount&nbsp;:=&nbsp;CategoryDataの中ノ&lt;Aと&lt;/A&gt;の数を数える→一致しなければエラー
for&nbsp;i=0&nbsp;to&nbsp;BoardItemCount-1&nbsp;do
begin
&nbsp;&nbsp;BoardItemDataStart&nbsp;:=&nbsp;CategoryDataから&lt;A&nbsp;HREF=を検索
&nbsp;&nbsp;BoardItemDataEnd&nbsp;:=&nbsp;CategoryDataから&lt;/A&gt;を検索
&nbsp;&nbsp;BoardItemData&nbsp;:=&nbsp;CategoryDataのBoardItemDataStartからBoardItemDataEndまで
&nbsp;&nbsp;CategoryDataからBoarItemDataは削除
&nbsp;&nbsp;BoardItemDataは&lt;A...&gt;...&lt;/A&gt;という文字列になっているので解析して
&nbsp;&nbsp;&nbsp;&nbsp;リンク先とタイトルを取得する。
end;

>>85
IEコンポは作成直後はHTMLDocumentがnilになってるからね。
innerHTML、outerHTMLを設定するんじゃなくてHTMLDocumentに
writeすれば問題ない。けど、フォントが変になったような気がする。
かちゅーしゃはHTMLにフォント設定を埋め込むことでこれを回避してるようだ。
>>87
(少なくともVC++/MFCでは)Navigateが非同期動作になるので、一旦Navigate
して、NavigateComplateかDocumentCompleteのイベントをトリガにする
必要がある。
まぁ、about:blankに飛ぶぐらいはすぐだろうから、WebBrowserのステータス
でループさせて終了を待ってもいいけどね。

あと、データアクセス層をきちんとつくっとかないと、マルチスレッドになって
複数のスレッドから同時にアクセスがあったときの処理が複雑になる。
Mutexで排他処理する部分は最小にしたいからね。

このような、ネットワークアプリは非同期処理との戦いになると思う。

>>85>>87
スマソ、追加で教えてキボーン
DispHTMLDocumentやWebBrowser_V11って何？

>>94厳しいな(TДT
浮津堕コーディングしよう。

>>93を考えていて>>28のクラスを再度確認してみた
T2chObjectっておかしくないか？
すべての基底クラスにダウソ開始/終了
なんていらないと思うのだが、
特にT2chResponseがT2chObjectから継承する
必要はないんじゃないか？

俺のクラス設計が甘いのか？わからない。

スレのダウンロードから
レス一つ一つのダウンロードメソッドを呼ぶ方がいいのか？

俺もBCB4で似たようなの作ってるんだけどさ、
(勉強目的だから、VCLはUI以外は極力使わないようにしてるけど)
WebBrowserでNavigate2したときの表示がどうなってるかイマイチわからん。

スレを表示するとき、HTMLファイルを作ってNavigate2したときって
すごく速いんだよね。表示開始が。
これに対して、IHTMLDocument2のinnerHTMLをいじると、
表示開始までが遅い。全部解析してから1行目を表示している感じ。

1000近くあるスレで、insertAdjacentHTMLしながら、
適度にApplication->ProcessMessages()を含めてみると、
開示までの時間は問題無いが、終了までに余計時間がかかる。
それよりも気になるのが、表示されている様子が目に見えること。
Navigate2だと一瞬で表示されるのに、上から一行ずつ表示されているのが
見えるよう。
ProcessMessages()を呼ぶタイミングを動的に変更しても同じ気がする。

パイプでも使ってるのか、それともparent(IHTMLWindow2)に何かあるのか。
つーか、手元に資料が全然無くて、すげー苦労なんだけど。
MSHTML_TLB.hは15MBもあるし・・・

>>98
俺、まだNavigateとNavigate2の違いもわからん。
教えてくらさい。

98の話からすると、とりあえずファイルに書き出してから
読み込んだ方がいいって事か？

違いはURLにPIDLが使えるか否かだね。
で、PIDLって何だ？（ｗ

>>96
似たようなアプリを書いた経験からだよ。

>>98
スレ100個分ぐらいのHTMLをつくって一気にinsertAdjacentHTMLすれば
いいんじゃない？それか、HTMLDocumentにwriteするとさらに速かったような
記憶がある（MFCでしかやったことないので適当に置き換えてね。COMの
インターフェイスだからそんなに違わないと思うけど）。
あと、OnNavigateCompleteとOnDocumentCompleteで発生するタイミングが
結構違ったような気がする。どっちが速かったかは覚えてない。

>>99、>>100
PIDLじゃないと「マイコンピュータ」にNavigateすることができないね。

>101　遅さについて
いや、いろいろ試したんだ。
parse等の時間を全部無視して
50レスにしたり、100レスにしたり200にしたり、全部一括にしたり。
でも、やっぱりProcessMessages時だけ「表示」が遅いんだ。
(ちなみに、Sleep等も試したけど、表示されなかった・・・)
いや、俺のマシンが遅いのも原因だし、
「気にならない程度の遅さ」と言われれば、その通りなんだけど。

NavigateCompleteとDocumentCompleteは、確かRefreshが絡むと
面倒だったんだよね。って、俺も覚えてない。

そうそう、TWebBrowser_V1&NavigateはIE3、
TWebBrowser&Navigate2はIE4以降。

フォントの問題は、
Create時にabout:blankにNavigate2しておいて、表示する時に
IHTMLDocument2Ptr doc; doc = browser->Document;
doc->charset = L"shift_jis";
doc->set_fgColor(0x000000);
doc->set_bgColor(0xEFEFEF);
doc->set_linkColor(0x0000FF);
doc->set_alinkColor(0xFF0000);
doc->set_vlinkColor(0x660099);
すれば、Win98SE+IE5.01の環境ではクリアできているけど、
IE5.5とかはどうなんでしょ？

Board一覧の取得は、俺もhttp://salad.2ch.net/bbstable.htmlを取ってる。
解析も同じ。('【'の検索)
【】の間をカテゴリ名として、board.txtを作ってる。
(2chブラウザと同じかな)
カテゴリ名の重複はそのまま放置し、読みこみ時に対応してる。
最後がindex2.htmlかを見て、2ch内部かどうか判断。
まちBBSは入らないが、datが取得できないのでそのままにしてる。

スレ一覧は、ListView→遅い、StringGrid→表示を停止させていても
一瞬待つのが嫌、という理由により、ListBoxのOwnerDrawにした。
(板によっては3000スレ近くがローカルにあり、マシンはPenII266)
表示終了までの時間はかかるが、動きが見えているので精神衛生上良い。
色を変えたりの小細工も出来る。
StringGridはスクロールバーが嫌だったのも理由の一つだけど、
まともなアプリを組んだ事のない素人なので、
やり方を知らないだけかもしれない。

連続でごめんなさい。
>>101をよく読んでなかった。
HTMLDocumentにwriteですか。ありがとうございます。
いろいろ試してみます。
・・・調べてみますと言えないのが悲しい。
サーチエンジンを使って、英語とも格闘して、試行錯誤します。

>>103
＞【】の間をカテゴリ名として、board.txtを作ってる。
＞(2chブラウザと同じかな)
うんにゃ。<B></B>だよ。じゃないと、www.2ch.net/bbsmenu.htmlを読めない。

>>サンクス。
IE4以降限定でいいよね。

C++の人はDonut系ですか、すげ・詳しいな。

>>105
http://salad.2ch.net/bbstable.html
http://www.2ch.net/bbsmenu.html
どっちで取得するのが正しいの？
bbsmenu.htmlはメールリンクとかアってヤナ監事。

んじゃコード規約(Delphi)を勝手に決めます。
コメントの書き方だけど

　//
　//　　 ∧＿∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　//　　（　´∀｀）＜ 文字列からほげほげを抜き出す
　//　　（　　　　） 　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
　//　　｜ ｜　|
　//　　（_＿）＿）
　//
　function ....

やっぱこんなの？
あ、Delphiのエディタじゃ AA 無理だっけ？

end.の下の行は

//============== 終了==============

をつける。意味ないけど。

その通りっす。すみませんです。
さらに、カテゴリの重複→カテゴリの連続っす。

あれから少し調べると、
SAFEARRAYとか、SafeArrayCreateVector()とか、更に未知の物が。
が、close：
　Closes an output stream and forces the sent data to display.
なんて文も見かけたので、併せてもっと調べてみます。

>>107 実に助かるよ。
仕事中にコーディングしていると、ぶっ殺されそうだ。（ｗｗ

モナーのｾｿﾌ
機能の説明だけだと、わかりにくいから
更新履歴と引数/戻り値の説明も
入れれるようにしてプリ〜ｽﾞ

//============== 終了==============

等幅フォントだと、こんなもんかな？

//
// ∧ ∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
//　（´∀｀）＜ ボードの一覧をhttp://salad.2ch.net/bbstable.htmlより得る
//　（　 　　） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
//　 ｜ ｜　|
//　（_＿）＿）
//
しかし、このコメントがついてたら
まじで周りにビクビクしながらコード書かなきゃいけないから
すげー疲れる（ｗ

等幅でもずれとりまんがな。空白が寄せられただけ？
ところで、94さんは2chブラウザーの作者さんのような気がするけど、違うのかな？

>>112 違わないよ。

かなり戻るけど、>>93のTBoardCategoryは必要ないと思う。
というのは、いずれ、貼りつけられたスレへのリンクからTBoardItemを
検索したくなるだろうから。
鯖移転にも対応するために、板名で検索できること
(さらに、mac板やbike板に対応すること)を考えると、
TBoardItemはどっかでまとめて持ち、
TreeNode->Dataに細工するのがいいと思う。

もしかしたら参考になるかもしれないので、
俺の使っている部分をそのまま載せます。
VCLも知らないので、批判もよろしく。

Board型はstaticメンバーで全体を保持。
Board::BoardCount()で全板数、
Board::At()で順アクセス、Board::Find()で検索、etc
Boardのインスタンスは、Name()がnilならカテゴリ名、
Name()の中身があればそれぞれの板。
stringとSTLを使っているのは、それらの勉強も目的だから。

　TTreeNodes *tree = BoardTree->Items;
　tree->Clear();
#if 0
　TTreeNode *root = tree->Add(NULL, "２ちゃんねる");
　//root->Data = NULL;
#else
　TTreeNode *root = NULL;
#endif
　int n = Board::BoardCount();

　string catename;
　vector<Board *> boards;

　for (int i = 0; i < n; ++i) {
　　Board *bd = Board::At(i);
　　if (bd->Name().empty()) {
　　　if (!boards.empty()) {　//カテゴリ名の連続に対処するため
　　　　TTreeNode *cate = tree->AddChild(root, catename.c_str());
　　　　cate->Data = NULL;
　　　　vector<Board *>::iterator it;
　　　　for (it = boards.begin(); it != boards.end(); ++it) {
　　　　　TTreeNode *tmp = tree->AddChild(cate, (*it)->Title().c_str());
　　　　　tmp->Data = *it;
　　　　}
　　　}
　　　boards.clear();
　　　catename = bd->Title();
　　} else {
　　　boards.push_back(bd);
　　}
　}

>>114
>TBoardCategoryは必要ないと思う。
ほっほー、そうなん。

mac板、bike板ってなんだろけ？

でも、もう殆ど実装してまった（ﾟДﾟ）・・・・・・・
ま、データを保持するクラス階層は変更して
TreeViewの生成だけに利用するよ。
かちゅしゃーでも一応右端の色でわかれてるからなあ。
Boardクラスにカテゴリプロパ付けるだけで十分か？

それともTreeViewのTreeNodesとTreeNodeみたいに
データ構造をツリーと一覧の二通りのアクセスかましておきます。
98さんはVCL知らないか。

今日中に一覧をTreeで表示させたかったが、無理だわ。
また先ですわ。

かちゅしゃは右端じゃなくて左端でした
あせって左右もわからなくなってる。

98さんはVCLバリバリ使ってる気がするが,,,

macとbikeってのはこれっす。
Mac
http://piza.2ch.net/mac/
mac
新Mac
http://teri.2ch.net/mac/
mac
バイク
http://tako.2ch.net/bike/
bike
自転車
http://mentai.2ch.net/bike/
bike

http://teri.2ch.net/test/read.cgi?bbs=mac&key=999999999
なんてのから板を特定するときに、'teri'の文字も必要だってことっす。

>>103
ListViewは速くはないけど、Delphi4から導入されたVirtualModeを使えば、そんなに遅くないです。
でもこれだとオーナードローする必要があり面倒です。
ちなみに、どうせオーナードローするならStringGridよりDrawGridの方が多少速いです。
もっとも上にあげたものは全てTListからのオーナードローになると思うので、どれでも十分な
速さですけど。
実は、オレも作成中だったりして。

しばらくこないうちにだいぶ進んだなぁ。
個人的にはhtml,datダウソ部分の構造が先に知りたいです。
>97 名前：turbo type D@monazilla投稿日：2001/02/14(水) 13:50
>>93を考えていて>>28のクラスを再度確認してみた
>T2chObjectっておかしくないか？
>特にT2chResponseがT2chObjectから継承する
>必要はないんじゃないか？
T2chResponseは(既にある)T2chThreadの各レスにアクセスするため窓口だから
確かにダウソ開始/終了はいらないね。
いらないけどダウンロード可能・不可能をクラスで分類すると
数が増えて嫌だったというだけ。
まあレスをクラス化してT2chThreadのプロパティにすること自体は必要でしょ。

>すべての基底クラスにダウソ開始/終了
>なんていらないと思うのだが、
T2chResponse以外はダウソ開始・終了が必要でしょ。

>// ダウンローダ
>T2chDownloader = class(T2chObject)
>private
>　FQueue: TObjectQueue; // スタックのがいいかも??
>public
この部分はdequeにして、ユーザーのクリックを優先的に処理して(stack)、
巡回を後回しに(queue)するのがいいかも。
マルチスレッドによる複数同時処理は
全部このクラスの内部に隠蔽しちゃえばすっきりすると思う。
とりあえずシングルスレッドで実装しといてあとで増やすこともできるし。

あとT2ch(Downloadable)Object自身に
巡回スケジュール&履歴プロパティがあるとよいかも。

turbo type D@monazillaたんがむばってね。

>>118
OwnerData使うだけで速いよ、OwnerDrawする必要なんてない。

むずかしいなーー、絶対ムズイよ。>>119
ある程度の所まで実装してアプしたら、
みんなさん、頼みまっせ。

htmlダウソならコンポつかっちゃってるけどそれじゃだめ？

ﾀﾞｳソﾄﾞｰﾛは全部スレッド化しろってぇ。難しいなあ。

StringGridのスクロルバーは何とかできるが
マルチセレクトと非選択をやろうとするとだるい。

かちゅしゃと同様なUIだと
スレ表示されていてマルチセレか非選択状態ってのは
必要ないとも思える。

しかし、3000は厳しいな。

>>122
120さんも言っているけど、ListViewのOwnerDataを使うと簡単便利で高速だよ。
件数もあんまり関係ないし。
ギコナビもOwnerData。

テクニシャンな方々はここだけでもコテハンきぼん。
特に 119 さん、なんかハンドル使ってください。

>>124
そういう貴方も、コテハンを（・ｗ・

>>125
すんづれぇーしました。書記さんです。
ジオのページ立ち上げた張本人です。
なお、ただいまぜんぜん役に立たないドキュソ、、、
じゃなくてドキュメントつくってます。

とりあえず資料をアップしてみました。
つーか全部こぴぺなんだけど。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/

http://www.geocities.co.jp/SiliconValley-Cupertino/1858/
とりあえず一連の流れだけのヤツを作ってみたぞ。オレ様はWininetでマターリと逝く。
ちなみに、クラス設計はボロボロ。
なんと言っても、クラス設計はコード書きながらやったからな（今後はちゃんと設計する）。
あまり期待はしないで頂戴な。

>>128
opengiko.res が見つからないってエラー出た場合は炒ってよしですか？
(Delphi 5 Pro)

>>129
ありゃ、D5はリソースファイルがいるのか。
自動的に作られるんじゃないの？が〜ん。

ボタンの絵とかがからぽでした、
にしてもなかなか動作の感じは良かったです。

ボタンの絵とかは募集中だ！

あ、そういうことでしたか、>>募集中

・ホームページ管理人募集。

これは私が引き受けてもいいです。

んじゃ、決定だ。頼む。
掲示板にftp関係のは書いておく。しばし待たれよ！

書いたぞ！ゴルァ！

明日も仕事だ。もう寝る。

ボタンの絵などは、ｵﾌﾟｿっぽく自由に設定しろという方式はダメかナー

各種コンポーネントのインストール方法(特にHTTPCLIやIndy)
の説明をキボぅ,(なるべく多くの人が参加しやすくなるから)

関係ないけど
monazillaよりモナプロ〜ラ〜やギコプロ〜ラ〜の方が
いいというような思いも…ｾﾝｽﾅｲっすか？

面白そうなことやってますね〜。
一応Delphi,C++Builder使いだけど、スキルがないから参加は無理っぽそう（汗

とりあえず暫定Main.dfm/Mail.pas(３ペインの画面だけ)
をアプしたいけど、ｱﾌﾟ板どこかないかな。

>>140
そういわずに、俺もスキルナイナイから安心せ。

とりあえず、HTTPCLIもIndyもいらんと思うのだがどうか。

「>>」の扱いはどうするの？

>>142
>>88を見てくださいな。置き換え可能を意識してコード書いておきましょう。
TWebBrowserだけで出来るって事かな？Wininet？
表示せずにHTMLソースをﾀﾞｳｿするのはどうするの？

>>143
HintWindowとリンクをつけたいね。

>>141
アップロードする方法は

以下を切り取ってローカルファイルとして保存すれば簡単
なお、既に同名のファイルがあるかどうかは自分で注意する事

<HTML> <HEAD> <TITLE>monazillaアップローダ</TITLE></HEAD> <BODY>
<FORM action=http://tools.geocities.co.jp/cgi-bin/members/file_manager encType=multipart/form-data method=post>
<INPUT TYPE="hidden" NAME="member" VALUE="monazilla">
<INPUT TYPE="hidden" NAME="passwd" VALUE="8EYNK=LO;3QTkEyPaPg">
<INPUT TYPE="hidden" NAME="fulladdress" VALUE="SiliconValley-Oakland/9028">
<INPUT TYPE="hidden" NAME="subdirectory" VALUE="src">
<INPUT TYPE="hidden" NAME="email" VALUE="[email protected]">
<INPUT TYPE="hidden" NAME="geoextras" VALUE="YN4<">
<INPUT TYPE="hidden" NAME="timestamp" VALUE="982202865">
<INPUT name=extlist type=hidden value=-1>
<INPUT name=lowercase type=checkbox> ファイル名を自動的に小文字に変換<BR>
<INPUT name=addhtml type=checkbox> 拡張子".htm"を".html"に自動的に変換<BR><BR>
<INPUT name=userfile size=80 type=file><BR><BR>
<INPUT type=submit value=アップロード>
<INPUT type=reset value=クリア><BR></FORM>
</BODY></HTML>

>>145
これでどこにｱﾌﾟされるの？

>>146
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/アプファイル名

>>144
WinInetはwebBrowserと関係なく単独で使える
WebBrowserが使えるなら普通 WinInetも使えるという意味
使い方は こっちのリンクから
http://piza.2ch.net/test/read.cgi?bbs=tech&key=970606624&st=306&to=308&nofirst=true

Cのサンプルだが使い方はこれ見れば簡単
http://tokyo.cool.ne.jp/masapico/api_sample_inet04_c.html

>>144
TWebBrowser使える環境ならURL Moniker使えるでしょうし。

>>149 それ教えて　　MSDN入ってるのに俺馬鹿だから　日本語資料が無いと全然理解出来なくてさ

俺もわからん。>>149>>148

なるべく標準コンポ以外は使わない方向の方がいいのか？
でもそれで生産性が落ちるのはちょっと。

ユニット化して
function GetHTMLPageSource(URL: String): String;
こんな仕様で作ってくれれば
誰でも知っているやつが好きなように内部実装できると思うのだが。

正直なところ、コンポーネント入れてまでという気はするな。
ソース配布されてても気楽に試しにくいのだよね。

>>150
ここのサンプル見るってのでは駄目？

http://msdn.microsoft.com/downloads/samples/internet/browser/walkall/default.asp

>>152
同意。標準コンポで逝きましょうや。

俺も昔はそう(標準コンポ好き)だったけど、今は

　　　　　コンポぐらいｲﾝｽﾄｼﾛﾔ（ﾟДﾟ）ｺﾞﾙｧ

っていいたいぞ。厨房じゃあるまいし
例えばブラウザ作る際に
VCLでUIWebBrowser使わないウマシカもいないだろ。

HTTPﾀﾞｳｿならNMHTTPでも簡単だし。
一段落したら標準コンポ版も作っていいけど
NMHTTPバグだらけだから嫌だ

>>155
既にWininetで動作してるのに、何故コンポーネントが
必要なのかわからなかっただけ。
まぁ、厨房でウマシカな俺には考え及ばない理由があるのだろうね。

おそーなった。
とりあえずコテハンきぼん＞デフォルトの名無しさん 156

ライセンスがらみがうぜぇとか、マイナーすぎて入手し難いのはちょっとねぇ
とかいう理由で言ってみたただけ。

とはいえ、さすがにNMHTTPはつかわんでいいと思う(藁

>>139
>monazillaよりモナプロ〜ラ〜やギコプロ〜ラ〜の方が
>いいというような思いも…ｾﾝｽﾅｲっすか？

あ、モナプロ〜ラ〜いいですね。
monazillaはオープンソースのプロジェクト名で
プログラム名はおのおの好き勝手つけちゃってください。
ってのはどう？

>>158
NMHTTPは確かにちょいといただけないねー。
フリーで入手可能なコンポならなんでもいいけどねー。

>>159
それに賛成。

>>161
では可決。
monazillaプロジェクトはいま、アクティブなのは以下の二つ？

1.オープンギコ (Delphi 4 + Wininet)
2.モナプロ〜ラ〜 (turbo type D : Delphi 5 + TWebBrowser + HTTPCLI?)

VC、BCB、VBもしなやかに参加してくれ！

聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

>>156さんごめーんﾈ

聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　　　　　　　 ∧＿∧
　　　Ψ 　　　（∀・　　）
　　　□ 　　　（∩∩ノ ） ｵﾚｶﾞWininetﾂｶｴﾅｲﾀﾞｹﾀﾞｯﾀﾘｼﾃ
　￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

書記さんもなぜか Wininetが環境にひどく依存するような先入観を持ってた・・・

>>159ﾏﾝｾｰ
>>162ｼﾅﾔｶ長野県

HTTPCLIはギコナビでｵﾚIndyのIdHTTP

>>165
あ、しつれーしました。

モナプロ〜ラ〜 = Delphi 5 + TWebBrowser + Indy

>>164　あながち間違いでもありません
IE4でメモリリーク
IE5で日付問題
とトラブルがあるようです。が、じゃ他の方法は無いのかというと
採用例が少なくて表面化してないだけの可能性大

結局収拾つかなくなったのか。

>>167
メモリリークなんてIWebBrowser使う時点で諦めてる。

>>167
なるほど。
とりあえず モナプロ〜ラ〜 は Indy で、
オープンギコ は Wininet でやるっつーことで決定しましょ。
同じコンポ使って別々に書くわけじゃないから問題無いでしょー。

>>169
いまどきの子はメモリリークぐらいじゃびっくりしません。

>>138
とりゃーず HTTPCLI のインスト方法だけアップしました。
投げやりのやっつけですが。。
Indyはまだ書記さんもセットアップしてないので待ってー

原因不明のuser32.dll落ち連続...でトレース実行が不可能になって
しまった。(TДT)DelphiIDEショボっ！

とりあえずmonaplorerの標準コンポだけの画面周りだけｱﾌﾟしましたよ
D5だと誰でも開けると思う
http://tools.geocities.co.jp/cgi-bin/members/file_manager
これでｱﾌﾟｱﾌﾟできたのかな？
145>>サンクス

こっちでした。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer.lzh

http://www.geocities.co.jp/SiliconValley-Oakland/9028/
にもアップロード用のフォームつけておきました。

「これをかっこよくクリック」は不覚にもﾜﾗﾀ

>175
ジオ以外のところからアップロードさせないと巧く行かないから
別の所にアップローダを作るか、

アップロードフォームの所に一旦保存してからローカルに動かせって
　注意書きを書いた方がいいよ。

>>177
げ！そうなん！？ちょーしっぱい。。

ローカルに保存してアップしてもらうようにしました。

>179　ジオだったら　アップロードした人がゲストブックに説明書くようにしたらどうだ？

あいよ！その案採用！
ゲストブックつけました。
煽り禁止
http://www.geocities.co.jp/SiliconValley-Oakland/9028/

書記さん 手数だが、ゲストブックにコメントで書かれる
&lt;!-- REMOTE ADDR: ｘｘｘｘｘｘｘｘ --&gt;
をタマには消す事にしておくれよ
別に残して困る事はないが、恥ずかしいからのう

>>182
いま、それに気がついたのでゲストブックを停止ー、
だれかフリーでリモートホストが出ない BBS 見つけてーー

リモホが出ても、タマに消すよ程度でOKだよ。
どうしてもってんなら　日記を使ったらどう？
日記もファイルアップロードと同じ方法でいける筈

こんな感じだろうと思う
<FORM METHOD="POST" ACTION="http://tools.geocities.co.jp/cgi-bin/members/dbook_wr">
<INPUT type=hidden NAME="member" VALUE="monazilla">
<INPUT type=hidden NAME="passwd" VALUE="mona">
<INPUT type=hidden name="state" VALUE="0">
<INPUT type=hidden NAME="fulladdress" VALUE="SiliconValley-Oakland/8522">
<input type=hidden NAME="subfontsiz" VALUE="5">
<input type=hidden NAME="subbgcolor_select" VALUE="0000FF">
<input type=hidden NAME="subforecolor_select" VALUE="FFFF00">
<input type=hidden NAME="conbgcolor_select" VALUE="FFFFFF">
<input type=hidden NAME="conforecolor_select" VALUE="000000">
<INPUT TYPE=hidden NAME="style" VALUE="1">
<INPUT NAME="subject" VALUE="title" SIZE=40 MAXLENGTH=80><BR>
<TEXTAREA NAME="content" rows=15 cols=40>内容</TEXTAREA>
<INPUT TYPE="submit" VALUE="　送　信　">
<INPUT TYPE="submit" NAME="PREVIEW" VALUE="プレビュー">
<INPUT TYPE="reset" VALUE="リセット">
</FORM>

×8522
○9028

ミスしたおかげで、思わぬジオの穴を見つけてしまった。
member と fulladdressの管理は別らしい。やれやれ

今、ギコナビのBoard.iniをXML化する予定。（あくまで予定）
その部分をmonazillaと共有させてもらいたいです。
もちろん、XML読み込みの部分のソースは公開します。
まだ、構想段階なので、ﾏﾀｰﾘとやっていますけど。
ボード関連で、manazillaは、どういうふうに考えていますか？

あと、ギコナビで苦労した部分は、ローカルに保存してあるデータ(タイトル情報)を
読み込む部分です。
起動時に全部読み込めば、時間が掛かるし、起動時に読み込まなければ、
巡回のデータが無いので、巡回出来ないし。
単に、ダウンロードしたsubject.txtを毎回読むとなると、時間が掛かります。
ギコナビはindex.datファイルを作り、高速化を図っています。
これも、普通のピュアテキストだと遅いし、固定長だと容量が食いすぎます。
（Recordだとタイトルなどは文字列のため、Delphiだと255文字固定の制限もついてしまいます）

ギコナビでは、数値データはRecord。文字列は文字列長＆文字列でガリガリ書いています。
ただし、これもバージョンアップで項目が増えた場合に問題が出てきます。
（ふるいバージョンのデータを読み込む機能が必要）
ストリーム化での方法は、バージョンアップでの対応が出来なさそうだったので、却下でした。
結構重要な部分（実際ギコナビでは、かなり時間をかけた）なのですが、monazillaでは、
どうする予定でしょうか？

そういう難しいことは決まってないに
2億はらたいら。お願いしまsう。

高速化をするには、当然index化はするでしょう。
indexはバイナリファイルをTStreamでガリガリやるのが一番速いです。
さらにキチ○イのような速度を追求するなら、Streamのバッファリング
も行います。moveしまくりで、これがDelphiのソースなのか…という
状態になりますが。それにindexのバージョンアップに多少の問題は残りますー。

バイナリファイルにAnsiString型を格納するには、その文字列長の
情報が必要になります。まだ先の話ですけどね。まずは、基本機能
がまともに動かないといけません。

HP
がJazillaのパクってて笑った！
http://jazilla.sourceforge.net/

ギコナビの（公開以前のバージョン）DatからHTML変換。
ソース書き込むところが分からなかったから、ここに書きます。
今、ギコナビソースのマシンじゃないから古いソースでごめん。眠いし。
もしかしたら、足らないメソッドとかあるかも。
厨房ソースでごめん。現在のソースはだいぶ変わっていたと思う。

function TGikoSys.DatToHtml(bbsid: string; filename: string;): string;
var
i: integer;
no: string;
mailto: string;
name: string;
datetime: string;
body: string;
readdat: TStringList;
textcolor: string;
backcolor: string;
html: string;
begin
result := '';
filename := GikoSys.GetThreadFileName(bbsid, filename);
readdat := TStringList.Create;
try
readdat.LoadFromFile(filename);
ParseDatLine(readdat[0], title, mailto, name, datetime, body);
title := StringReplace(title, ',', ',', [rfReplaceAll]);
saveList := TStringList.Create;
textcolor := Format('%.8x', [Setting.BrowserFontColor]);
backcolor := Format('%.8x', [Setting.BrowserBackColor]);
textcolor := '#' + Copy(textcolor, 7, 2) + Copy(textcolor, 5, 2) + Copy(textcolor, 3, 2);
backcolor := '#' + Copy(backcolor, 7, 2) + Copy(backcolor, 5, 2) + Copy(backcolor, 3, 2);
html = '<html><head>'
+ '<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">'
+ '<title>' + title + '</title>'
+ '</head>'
+ '<BODY TEXT="' + TextColor + '" BGCOLOR="' + BackColor + '" link="#0000FF" alink="#FF0000" vlink="#660099">'
+ '<dl>'
+ '<font size=+1 color="#FF0000">' + title + '</font>';
for i := 0 to readdat.Count - 1 do begin
if (Trim(readdat[i]) <> '') then begin
no := IntToStr(i + 1);
DivideStrLine(readdat[i], title, mailto, name, datetime, body);
mailto := StringReplace(MailTo, ',', ',', [rfReplaceAll]);
name := StringReplace(Name, ',', ',', [rfReplaceAll]);
body := StringReplace(Body, ',', ',', [rfReplaceAll]);
body := StringReplace(Body, '&amphearts;', '&hearts;', [rfReplaceAll]);
body := StringReplace(Body, '&amp#', '&#', [rfReplaceAll]);
//Body := ConvHtmlLink(Body);
{&lt;&gt;&quot;&amp;}
if mailto = '' then begin
html = html + '<dt>' + No + ' 名前：<font color="forestgreen"><b> ' + Name + ' </b></font> 投稿日： ' + DateTime+ '<br><dd>' + body + '<br><br><br>';
end else begin
html = html + '<dt>' + No + ' 名前：<a href="mailto:' + MailTo + '"><b> ' + Name + ' </B></a> 投稿日： ' + DateTime+ '<br><dd>' + body + '<br><br><br>');
end;
end;
end;
Result = html + '</body></html>';
finally
readdat.Free;
end;
end;

全く関係ないが、ギコナビのIEくりそつキャビネット部分ってなんなの？
不思議モナー

>>190
indexファイルのバージョンアップですが、ギコナビでは、ファイルの先頭に
バージョンを入れています。
バージョンを比較して、古いなら、新バージョンのindexを作ろうかと思っています。
＃まだ、indexのバージョンアップをしていないので、どうなるかわかりませんが。

字下げてないと病気になりそうなので〜〜〜〜>>192

function TGikoSys.DatToHtml(bbsid: string; filename: string;): string;
var
　i: integer;
　no: string;
　mailto: string;
　name: string;
　datetime: string;
　body: string;
　readdat: TStringList;
　textcolor: string;
　backcolor: string;
　html: string;
begin
　result := '';
　filename := GikoSys.GetThreadFileName(bbsid, filename);

　readdat := TStringList.Create;
　try
　　readdat.LoadFromFile(filename);
　　ParseDatLine(readdat[0], title, mailto, name, datetime, body);
　　title := StringReplace(title, ',', ',', [rfReplaceAll]);

　　saveList := TStringList.Create;

　　textcolor := Format('%.8x', [Setting.BrowserFontColor]);
　　backcolor := Format('%.8x', [Setting.BrowserBackColor]);
　　textcolor := '#' + Copy(textcolor, 7, 2) + Copy(textcolor, 5, 2) + Copy(textcolor, 3, 2);
　　backcolor := '#' + Copy(backcolor, 7, 2) + Copy(backcolor, 5, 2) + Copy(backcolor, 3, 2);

　　html = '<html><head>'
　　　　 + '<meta http-equiv="Content-Type" content="text/html; charset=x-sjis">'
　　　　 + '<title>' + title + '</title>'
　　　　 + '</head>'
　　　　 + '<BODY TEXT="' + TextColor + '" BGCOLOR="' + BackColor + '" link="#0000FF" alink="#FF0000" vlink="#660099">'
　　　　 + '<dl>'
　　　　 + '<font size=+1 color="#FF0000">' + title + '</font>';

　　for i := 0 to readdat.Count - 1 do begin

　　　if (Trim(readdat[i]) <> '') then begin
　　　　no := IntToStr(i + 1);
　　　　DivideStrLine(readdat[i], title, mailto, name, datetime, body);
　　　　mailto := StringReplace(MailTo, ',', ',', [rfReplaceAll]);
　　　　name := StringReplace(Name, ',', ',', [rfReplaceAll]);
　　　　body := StringReplace(Body, ',', ',', [rfReplaceAll]);
　　　　body := StringReplace(Body, '&hearts;', '?', [rfReplaceAll]);
　　　　body := StringReplace(Body, '&#', '&#', [rfReplaceAll]);
　　　　//Body := ConvHtmlLink(Body);

　　　　{<>"&}
　　　　if mailto = '' then begin
　　　　　html = html + '<dt>' + No + ' 名前：<font color="forestgreen"><b> ' + Name + ' </b></font> 投稿日： ' + DateTime+ '<br><dd>' + body + '<br><br><br>';
　　　　end else begin
　　　　　html = html + '<dt>' + No + ' 名前：<a href="mailto:' + MailTo + '"><b> ' + Name + ' </B></a> 投稿日： ' + DateTime+ '<br><dd>' + body + '<br><br><br>');
　　　　end;

　　　end;
　　end;

　　Result = html + '</body></html>';
　finally
　　readdat.Free;
　end;
end;

>>193
実際のIEは、レバー（TCoolBar）＋ツールバー＋ツリーのようです。
ＤｅｌｐｈｉのTCoolBarはバグっているようで、実現できなかったので、
TPanel（藁）などを駆使しています。
アプできる場所ってどこ？
フォームだけアプするよ。
でも、今日は寝ます。

ねましょうねましょう。

ｵﾚは部屋が寒いので手がかじかんで
キーボード打てません、鬱だ0721しぃよ

>>194
そうですな。私も他のソフトでその方法をやっとります。
ただ、それを本体のコードで持っちゃうと美しくないというか（別クラスでもいやん）。
単純にそれだけですけど。
自動的に新indexに変換というのはユーザーにやさしい仕様でありまするな。

そーいえば、ボタンやアイコンのデザイン部隊はいないのか？
「とりあえず参加して〜」って人がそっち方面を充実させてくれれば、
開発部隊も気楽になると思う。
俺はセンスないんで無理ですが。

仕様は飲みながら決めよーぜー

>>200

そう"しーよーおーーーー"

んーﾏﾀｰﾘ

どうでもいいが、TFileStreamは無茶苦茶遅いぜー。
iostream使うべ。

あと、WTLならCPaneContainerってのがあるぜー。
これをコンポーネント化したのがあるから、気が向いたらアップするー。
以上、BCB使いの寝言。

DelphianWorldMLで出てたURLクリッカブルRichEdit
動作しねーんでやんの。Win98/2000あたりだけ対応なのかな。

DelphiにもBCBコンポを使えるようにC++コンパイラを入れて欲しいよな。

BCBは、Delphiのコードがコンパイルできるって言っても、
それをメインにして開発できるわけじゃないからなあ。
俺は、それが出来るもんだと思ってBCB買って失敗した…。
やった、DelphiでC++が使える!とか思ってたのに。

2chって本文何行何文字までなの

ボード一覧をTReeViewに取得するソースで来た
動作確認した。

が、
http://salad.2ch.net/bbstable.html
のソースが不完全な場合のエラー処理に自信がない。

monazilla_studioでｱﾌﾟしようとしてるモナカ(最中)ですが
同名ファイルでも問題ないかな？

//////////////////
//2chのHTMLソース(http://salad.2ch.net/bbstable.html)
//からTreeViewのItemを設定するソース
procedure TMonaplorerForm.GetTreeViewItem(HtmlSource: String);
var
　i: Integer;
　CategoryDataStart, CategoryDataEnd: Integer;
　CategoryTitleStart, CategoryTitleEnd: Integer;
　BoardCount, BoardDataStart, BoardDataEnd: Integer;
　BoardTitleStart, BoardTitleEnd: Integer;
　BoardURLStart, BoardURLEnd: Integer;
　S, CategoryData, CategoryTitle, BoardData, BoardTitle, BoardURL: String;
　NiChanCategory: TNichCategory;
　NiChanBoard: TNichBoard;
　BaseTreeNode: TTreeNode;
　CategoryTreeNode, BoardTreeNode: TTreeNode;
begin
　//板一覧を表示させるベースとなるTTreeNodeを指定
　BaseTreeNode := BoardListTree.Items.Item[1];

　S := HtmlSource;

　while true do
　begin
　　if S = '' then break;

　　//CategoryDataを取得する
　　CategoryDataStart := AnsiPos('<B>', AnsiUpperCase(S));
　　if CategoryDataStart = 0 then break;
　　CategoryDataEnd := AnsiPos('<B>', Copy(S, CategoryDataStart+1, Length(S)));
　　CategoryDataEnd := CategoryDataStart + CategoryDataEnd;
　　if CategoryDataEnd = CategoryDataStart then
　　　CategoryDataEnd := Length(S)
　　else
　　　Dec(CategoryDataEnd);

　　CategoryData := Copy(S, CategoryDataStart, CategoryDataEnd - CategoryDataStart + 1);
　　if CategoryData = '' then Assert(false, '鰓');
　　Delete(S, CategoryDataStart, CategoryDataEnd - CategoryDataStart + 1);

　　//CategoryTitleを取得する
　　CategoryTitleStart := AnsiPos('<B>', CategoryData);
　　if CategoryDataStart = 0 then Assert(false, '鰓');
　　CategoryTitleEnd := AnsiPos('</B>', CategoryData);
　　if CategoryDataEnd = 0 then Assert(false, '鰓');
　　CategoryTitle := Copy(CategoryData, CategoryTitleStart,
　　　　　　　　　　　　　CategoryTitleEnd+3 - CategoryTitleStart + 1);
　　　//<B>...</B>からBタグを除去
　　CategoryTitle := Copy(CategoryTitle, 4, Length(CategoryTitle)-4 - 4 + 1);
　　if CategoryTitle = '' then Assert(false, '鰓');

>>209続き
　　//カテゴリを生成
　　NiChanCategory := TNichCategory.Create;
　　NiChanCategory.Title := CategoryTitle;
　　NiChannel.AddCategory(NiChanCategory);

　　//TreeNodeを作成
　　CategoryTreeNode := TTreeView(BaseTreeNode.TreeView).
　　　　　　　　　　　　　Items.AddChild(BaseTreeNode, CategoryTitle);
　　CategoryTreeNode.Data := NiChanCategory;

　　Delete(CategoryData, CategoryTitleStart, CategoryTitleEnd+3 - CategoryTitleStart +1);

　　//Boardを取得する
　　BoardCount := StrCount1('<A HREF=', AnsiUpperCase(CategoryData));
　　if BoardCount = 0 then Assert(false, '鰓');
　　if BoardCount <> StrCount1('</A>', AnsiUpperCase(CategoryData)) then
　　　Assert(false, '鰓');
　　for i:=0 to BoardCount-1 do
　　begin
　　　//<A HREF=http://www..>..</A>の文字列を得る
　　　BoardDataStart := AnsiPos('<A HREF=', AnsiUpperCase(CategoryData));
　　　BoardDataEnd := AnsiPos('</A>', AnsiUpperCase(CategoryData));
　　　BoardData := Copy(CategoryData, BoardDataStart, BoardDataEnd+3 - BoardDataStart +1);
　　　if BoardData= '' then continue;

　　　Delete(CategoryData, BoardDataStart, BoardDataEnd+3 - BoardDataStart +1);

　　　　//<A HREF=http://www..>..</A>からAタグを除去
　　　BoardTitleStart := AnsiPos('>', AnsiUpperCase(BoardData) ) + 1;
　　　BoardTitleEnd := AnsiPos('</A>', AnsiUpperCase(BoardData) ) -1;
　　　BoardTitle := Copy(BoardData, BoardTitleStart, BoardTitleEnd - BoardTitleStart +1);
　　　if BoardTitle = '' then continue;

　　　　//mailtoリンクならボードではないので無視
　　　if AnsiPos('<A HREF=MAILTO', AnsiUpperCase(BoardData) ) <> 0 then continue;
　　　　//<A HREF=http://www..>..</A>からURLを取得
　　　BoardURLStart := AnsiPos('HTTP://', AnsiUpperCase(BoardData) );
　　　BoardURLEnd := AnsiPos('>', BoardData) - 1;
　　　BoardURL := Copy(BoardData, BoardURLStart, BoardURLEnd - BoardURLStart + 1);
　　　if BoardURL = '' then continue;

　　　//ボードを生成
　　　NiChanBoard := TNichBoard.Create;
　　　NiChanBoard.Title := BoardTitle;
　　　NiChanBoard.URL := BoardURL;
　　　NiChanBoard.Name := '';//米 とりあえず必要ではないのでまだ実装していない。

　　　NiChannel.AddBoard(NiChanBoard);
　　　NiChanCategory.AddBoard(NiChanBoard);

　　　//TreeNodeを生成
　　　BoardTreeNode := TTreeView(BaseTreeNode.TreeView).Items.
　　　　　　　　　　　　 AddChild(CategoryTreeNode, BoardTitle);
　　　BoardTreeNode.Data := NiChanBoard;
　　end;
　end;
end;

そういえば、Indyのインストール方法もmozilla.orgに書いてほしい。


--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--

まず、D4/D5/BCB4/BCB5どれでもいいから
きっちりアップデートしておく。

http://www.nevrona.com/Indy/Download.html
のページの下の方の
Indy(Winshoes 8) v8.0
のリンク先
http://www.nevrona.com/Indy/download80.html
ページの
8.0.22版の
一番上のリンクをクリックしてexeをﾀﾞｳｿすれ

exeが手に入るのでそれを実行。

あとはウィザードに従ってFinishを連打する

インストールフォルダ選んだり
　言語選んだり
　　D4/D5/BCB4/BCB5を選んだりする場面があるが
難しい選択肢は無い。
HELPファイルもインストールが自動なのでFinish押して
それだけでｵﾜﾘ。

--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--(ﾟДﾟ)ｺﾞﾙｧ--

聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

｢一人カキコミ、ﾑﾅｼいの｣

聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　 Ψ 　　 　(-＿-)
　　 □　　 　 (∩∩)
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

気にするな。ある程度形になるまでは、一人は先導者が必要。廃れるより数倍もまし。

>>211
Automatic Installがあるのか楽だね。
リンクありがと。

慣れているC++Builderでいじってみるよ。
にしても大量にコンポーネントが登録されるな。

>>213
そのとおり！
こういうプロジェクトはそれっぽく動きだすまで
誰かがぐいぐいひっぱっていかないとね。
というわけでagezilla

ん？モナプロ〜ラ〜はボード一覧をbbstable.htmlかbbsmenu.htmlの
ままで持つのかな？
board.txtとかboard.2chとかみたく、
取得して切り分けた後、別ファイルで保存すると思ってた。
ギコナビはboard.iniをXML化するって？XML知らんがな。ははは。

>>216
どっちでもいいよん。
今の所一応、ローカルファイルに保存して試してるだけナリ。

データ解析はOKになったので
保存形式など加工は自由ですニャ。

毎度毎度読み込んだり解析したりすると
遅いから保存形式考えますか。

高速iniファイル互換アクセスコンポとか
あれば利用したいよーん。(高速化メンドうだから)
だれか知らない？

時間はそんなに考えなくていいんじゃないかな。
多分、起動時と更新時にしかつかわないから。
それよりも、加工のしやすさを考えて別ファイルにしようよ。
例えば、行かない板を編集したりしやすいし、
ちょっとしたツールを作るときもそのほうがやりやすい。
まあ、全文検索をしたりするのは、
内部データにアクセスする形にすればいいだろうけど、
外からもいじりやすいほうがいいでしょ。

>>218おおよそ了解。

行かない板をテキストファイルで編集加工
というのはちょっとどうかと思う。
ユーザーにそれさせるべきかあ？
(2chネラはそれくらい造作ないにしてもだ。)
ｵﾚ自身がかちゅーしゃの板データを弄くる気にならないもん。

意見求むー。

ちょっとしたツールのことはﾘｮｳｶｲ

TreeView構造にしているのは
お気に入りを板一覧と同様のUIで自分で管理
出来るようにさせたいから。
IEのお気に入りと同じくURLショートカットを集めたフォルダ構造で
お気に入りを構成させるつもり。＞＞まだ先。

現状はhttp://salad.2ch.net/bbstable.html
のソースから直読みで

データ構造とTreeViewを
作ってしまっているが、動作確認もしたので
（>>207のエラー処理に自信がない点だれか教えてｸﾚｸﾚﾀｺﾗ）

データを受け持つTNich...クラスは独立して

HTMLソースから＞＞TNich...etc

TNich...etc＞＞TreeView
TNich...etc＞＞Iniもしくは独自ファイル
TNich...etc＜＜Iniもしくは独自ファイル

こんな感じの機能を実装しますね。
：：：：誰かやってくれてもいいんだよ（ｗ


そうそう現状はIndy組み込んでいないので
誰でもインストできるはずだよ。
ばっちりｵ^ﾌﾟﾝｿですな。

それにしても関数どうしても100行超えてしまうな。
構造化も無理っぽいし。
理想はもっと構造化コマギレだがどうして現実は難しい。

ｲﾄｱﾊﾚ、MLでNMFTP地獄に巻き込まれてる人発見。

こういうスレ好きだから、廃れないでくれ。頼む。

>行かない板をテキストファイルで編集加工
>というのはちょっとどうかと思う。
>ユーザーにそれさせるべきかあ？

こーゆーの(GUIで編集等)は、欲しい人がいれば誰かが作るかも。
というか、それも「ちょっとしたツール」だね。

>>208
同名でも問題ないです！アップしちゃってください！
できればファイル名にバージョン・レベル番号とかつけてもらいたいー。

>>191
こっち、こっち！
http://www.mozilla.org/

>>217
Delphi標準のTMemIniFileは？ギコナビでも使っているし。
API使わないで、直にファイル操作しているみたいなので、
64Kの制限とかないし。（速いかどうかはわからないけど）

さすがに、191はネタだろ(藁

ギコナビのメインフォームだけをアップしました。
フォームだけなので、コードはありません。
煮るなり焼くなりパクるなり捨てるなり自由にお使いください。

ファイルはこれですね。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/gikoForm.lzh
ギコナビの UI って特別なコンポ使ってるかと思ってた・・

自分のものはオープンする気のないヤツが
どーでもいいようなとこだけ小出しにして
オープンプロジェクトに口はさむのはどーかと思うが。
ギコナビ君、正直何考えてる？
人気回復？オープンプロジェクトの誘導？

書記さんへ
いきなりですが、引っ越してしまいました。
すいませんが、リンクだけ直しておいてください。
http://www.geocities.co.jp/SiliconValley-Cupertino/1026/
ここに出てきている物を色々パクッて、ちゃんとしたクラス設計部分を反映した
いと思うデス。今日中は無理かな。

了解でーす。

>>230
適度に口をはさんで協力してくれてるんだから
どうでもいいと思うがのお。

オプソでなくても、その辺が絡むとうざい。
せっかくの2chだ。深く考えないで逝こうぜ。

　　　　　　　　　　||￣￣￣￣￣￣￣￣￣￣||
　　　　　　　　　　||　煽りは無視。　　　Λ_Λ　　いいですね。
　　　　　　　　　　||　　　　　　　　　＼　(゜ー゜*)
　　　　　　　　　　||＿＿＿＿＿＿＿＿⊂⊂ |
　　∧∧　　　∧∧　　　∧∧　　　 |￣￣￣￣|
　 (　　∧∧　(　　∧∧　(　　∧∧　|　　　　|
〜（＿(　　∧∧ __(　　∧∧__(　　∧∧￣￣￣
　　〜（＿(　　∧∧＿(　　∧∧＿(　　∧∧　は〜い、先生。
　　　　〜（＿(　　,,)〜（＿(　　,,)〜（＿(　　,,)
　　　　　　〜（＿__）　　〜（＿__）　　〜（＿__）

>>225
逝ってきます。

あの〜Ｄ４の人もいると思うので（オレ）、
Ｄ５限定でない場合はフォームをＤ４互換でおねがいします。
以下引用、

Delphi 5 で作成したフォームファイル（DFM）は，デフォルトでバイナリではなくテキストとして保存されるようになりました。したがって，Delphi 5 で作成したフォームを以前のバージョンの Delphi で使用したい場合は，フォームをバイナリとして保存する必要があります。フォームを右クリックして［テキスト形式 DFM］のチェックを外すと，フォームはバイナリとして保存されます。デフォルトの動作としてフォームをバイナリで保存したい場合は，［ツール｜環境オプション］の［設定］ページで［テキスト形式で作成］のチェックを外しておきます。

このスレの趣旨とは、全く関係の無い話ですみません。
これ一回だけにします。

>>230
＞自分のものはオープンする気のないヤツが

オープンソースプロジェクトに参加する人は、それとは「別の」クローズドなソフトを
開発していてはダメなの？
別にギコナビで商売しているわけではないので、いいと思うんだけどなぁ。
それとも、monazillaとギコナビは仲良くしてはだめ？
monazillaとギコナビの最終目標は相手を潰すことなの？

＞ギコナビ君、正直何考えてる？

このプロジェクトを誘導したりしようとは思ってないよ。
そんな時間的余裕も技術的な知識も人を動かす力も無いし。
別にギコナビがどうのこうのって、関係ないでしょ？

ギコナビの人気回復の話は、失笑ですね。
正確に言うと、もともと人気がないから回復とは言わないですね。
なんか勘違いしているようですが、ギコナビのシェアを高めるために
僕がここへ書き込むわけではありません。
どんな方法を使ってでもシェアをとりたいなら、自作自演で各板に書きまくれば済む話。

ギコナビは、ソースを公開する予定は無かった（ギコナビですら公開しようと思って作った
訳ではないです）ので、現在も公開していませんが、
同じツールを使っていて、同じジャンルのオープンソースプロジェクトが出来たから、
いろいろ、参考になると思われる部分を公開しただけ。

＞どーでもいいようなとこだけ小出しにして

どーでもいいようなとこだけですみませんでした。
結構苦労して作った部分なんだけどなぁ。
ＵＩとか、使用しているクラス名、苦労した話やアイデアとかは、殆どの人には
くだらないかもしれないけど、もしかしたら、そういう話を欲しがって
いる人がいるかもしれないと思ってやったことなんだけど、
余計なお世話だったようで。

＞オープンプロジェクトに口はさむのはどーかと思うが。

オープンソースって誰でも参加出来ると思ってたよ。
ごめんね。「クローズ」なソフトを作っている人が「オープン」の場所で
どーでもいいような知識をばら撒いて。

>>183
ここはどうかな？
http://green.jbbs.net/computer/479/monazilla.html

誰でも参加出来るからこそ、オープンソースだと思うけどね。
＞○○が参加するのはどうか
なんてのは、参加する者を限定する最悪な考え方だ。

230がどれほどの貢献をしているのかはあえて聞かないが、
ヒロユキはちゃんと貢献している。
経験を生かしての意見だったり、過去に作ったコードの一部だったり。
ヒロユキが好意で書きこんでいる事を、
＞人気回復？オープンプロジェクトの誘導？
こんな考え方しか出来ないのは、よほど心が貧しいのだろう。

230は、オープンソース勘違い信者。
参加を制限するなら、オープンソースで行う意味が無いのではないか。

>>224
ようやく復活。

>>226
ヒロユキさんくす。

TMemIniFile使ってみる。遅くてもOK、
遅かったらいずれ誰かにTMemIniFileと同仕様で
高速化してもらうことにしませう。

ヒロユキ＠ギコナビには
感謝感謝。

ライセンスとか"どーでも"いいので、
マターリいくぜ！

つことで、しょモナーい事を頭で考える前に
コード実装カンガエマソ。

コード実装できそうにないみんなさんも
UIのアイデアとかあったらじゃんじゃん炒ってくれよ。

みんながんばってくださーい。

ところで何かコントリビュートしたいんだけどCのコードじゃだめ?

何？コントリビュ＾トって。

あと、BCB<<>>Delphiのコード置換って
めちゃらくらくだと思うのだが、
自動変換するソフト知らないか？探せば必ずあると思われ。
そしたらBCBで参加もできるし。

会社にモナプロラのソース忘れた。最悪！

とりにいくか。(ｘДｘ)トホホもな。

>>247
それ、わたしもよくやる・・・

FTPアカウントもってるならソースをメディアで持ち歩かなくても
いいと思うが。

>>249
そのアップを忘れるんです。

>>246
http://dictionary.goo.ne.jp/cgi-bin/dict_search.cgi?MT=contribute&sw=0

っていうかOSがFreeBSDなので。。。
やっぱり無理かなあ。

TWebBrowserで書くときは、無理やりWriteしちゃって追加書き込みできるようになったんだけど、消すことができん。教えてキボンヌ。
Streamで書き込みする方法とかもキボンヌ。

>>251
ぜひ、FreeBSD版 monazillaをおがみたい！！

>>253
うーむ、、じゃとりあえずUIでも作ってみるよ。

副産物としてlib2chみたいなの作りたいな。。とか。。

それにしても結構面倒そう。

>>Linux版ならkylixでたら、
誰かやりそう。
多分monazilla基本部分は
API叩き無しのCLXで十分作れるものになるはず。

やっぱ今日、取りに行くのヤメタ。だるすぎる。
明日の朝近所に用事があるので会社よるわ。(決して出社ではない。)
いつもMOでデータ同期をしていたんだが
ぬかってしまいました。

とりあえずGUIで動いて、読み込めるぐらいのを目指してみようかな、、、
名前はgikozillaってことで。

>>257
ツールキットはGTKを使うのでFreeBSD依存ってことはないと思う。
ただ、僕はFreeBSDを使ってるので。

名前を見物人からgikozillaにすることにしました。

目標(?)としては、読み込みながら表示出来るようにしたい。
ついでに自分で作った拡張言語も使えるようにしたい。

プアパスカルの人かな？

>>見物人
gikozilla歓迎です！
で、なんて書けばいいかな、
gikozilla = PC-UNIX + GTK + C ?
FreeBSDとかGTKとかよーわからんです、、。

しまった、ハンドル変更されたんですね。
修正。
>>gikozillaさん
gikozillaプロジェクト歓迎です！

コンパイル済みコンポーネントならDelphi/BCB共通で使えるでしょ？
標準コンポメインでいくならあんま意味無いか。

俺もなんかコントリビュートしたいなあ。
３月半ばになれば時間作れるんだけど

とりあえず、ログ読み込みはどうにかなりそうです。
GUIも骨組みは出来ました。

>>261
「GTKで書かれた2ちゃんねる専用ログ巡回ソフトです。」
とでもしておいてください。

とりあえず、更新。
オレがクラス設計するとこうなります。
http://www.geocities.co.jp/SiliconValley-Cupertino/1026/

あの〜例えばこことロビー（teri?）とかの
sabject.txt の仕様が違うみたいなんですが、
こーゆーのは何種類くらいあるのですか？サーバごとですか？
ご存知の方はご報告ください。

頼む、sourceforge使ってくれ・・・。

>>266
> こーゆーのは何種類くらいあるのですか？サーバごとですか？

「,」と「<>」と「＜＞」だったかな。
どの板がどれってのは、サーバとか板の種類とかは、全然関係ないと思う。
あと、区切が「,」じゃないとこは本文の「,」が「,」に置換されてないっ
てのも注意。

頑張れぇ。

「＠」「｀」が「,」に置換されてる。。。
鬱だ。。。

>>268
とりあえず１４カラムめの判定から何パターンかやればいいのかな。
ありがとう。頑張るぅ。

>>268
> どの板がどれってのは、サーバとか板の種類とかは、全然関係ないと思う。
って思ってたんだけど関係あるみたいな・・・(汗)。
とりあえず、今ざっと見直した感じ、teriが「<>」で、他は「,」っぽい。
前「＜＞」使ってるとこもあったと思ったんだけどな。
ｺﾞﾒﾝﾅｻｲ。

仕事場からだわ〜。

monaplorerｱﾌﾟしたつもりだけど
確認できないな。

アップされたファイルが
出てこないぞ。
会社がFTPサポしてないから無理なのか？

前 ぁ ゃι ぃソスの方なら大丈夫だったんだけどなー？。


一応、無理無理にぁ ゃι ぃの方にもアプしておく
ファイル名はmonaplorer.lzh
ｺﾒﾝとはプモナ君としておくよ。

すぐに削除されるの目に見えてるけど。

"もなヂラ掲示板"
本文容量制限なしにしていただけないでせうか?
ソースｱﾌﾟしたいが分割掲載するのは、めんどくさいっす。

一応、クラス部分のソースはアプしました。

え？subject.txtって全部同じフォーマットじゃないんですか。が〜ん。
できれば、詳細キボン。

98としてはお久しぶりです。

subject.txtの形式は、
teriとbinboが、<>区切り、他は','区切りです。
<>区切りの場合、<>の後に１つ空白が入ります。
最後につくレス数は、
teri系　　<レス数>
tako　　　（レス数）(←全角、perl板だけかも)
その他　　(レス数)
になっています。
レス数の前に、空白が沢山場合が多々あります。

dat内部は、全て&ampを一文字の&に要変換。
さらに、teri系以外は'@｀'を','に変換します。

デリミタは、teri系が<>区切りで、最後の<>の後に空白が一つ、
他は','区切りで最後の空白なし。
また、メール欄が空白の時は区切り文字が連続しますが、
何か文字が入っていると、余分に空白が一つ付くようです。

タイトルの長さは、最近のサーバーなら全角２４文字の制限があり、
空白不可のようですが、
takoははるかに長いタイトルが可能で、タイトルが空のスレもあります。
また、www.2ch.netにあったスレが残っているような板も
長いタイトルがある可能性があります。

あぼーんされた行は
teri系　　あぼーん<>あぼーん<>あぼーん<>あぼーん<>あぼーん
tako　　　あぼーん,あぼーん,あぼーん,あぼーん
その他　　あぼーん,あぼーん,あぼーん,あぼーん,
となり、スレの１だった場合、タイトルが空白になります。
(takoは、デリミタが足りなくなるので要注意)
また、板の復帰後はsubject.txt内のタイトルも空白になります。

とりあえず、こんなところでしょうか。

>>276
おお、ありがとう。98。
ウチに来てくれたらうまい棒をあげるよ。

全然わからん。(w
>>276

またいずれわかるかな。

訂正。
「メール欄に何か入ると最後に空白が１つ付く」は、
つい最近のスクリプト変更でそうなったみたいです。
古いログには
>名無しさん,sage,2000/xx/xx
がたくさんあり、ここ１ヶ月程のログはすべて
>名無しさん,sage ,2001/xx/xx
になってます。
また、teriは
>名無しさん<>sage<>2001/xx/xx
のままみたいです。

追記。
稀にdat内に'\0'が入っている場合があるので要注意です。
書きこみ内容に'\0'が含まれると、そのままdatに入ってしまうようです。
例 http://teri.2ch.net/accuse/dat/972022159.dat
長いですが、211と213に'\0'があり、さらに文章が続いています。

また、文字化けの場合も少々注意が必要です。
(最近は直ったらしいのですが、以前名前欄に「初級」等と入れると
見事に化けていました)
単に化けるだけならそのままで良いのですが、化けた後の最後の文字が
SJISの１バイト目になります。
なので、無視して<B>名無しさん</B>のつもりでHTMLにすると、
<B>ヘ・猿"・/B>等とります。
例 http://mentai.2ch.net/os/dat/977641.dat

さらにおもくそ訂正。
http://mentai.2ch.net/os/dat/977641.dat
(http://mentai.2ch.net/test/read.cgi?bbs=os&key=977641&to=5)

その他、例外としては、
http://piza.2ch.net/tech/dat/974514695.dat
(http://piza.2ch.net/test/read.cgi?bbs=tech&key=974514695&to=5)
の２なんてのもありますが、
こんなのが幾つもあるとは思えないので、エラー扱いでいいかも。

何やってんだろ、俺
http://mentai.2ch.net/os/dat/977641.dat
つーか、ちゃんとやったつもり。
一応全角でも。os板の９７７６４１.dat

ごめん、本当に9-7-7-0-7-0-6-4-1.datって
(ブラウザから)書き込んでるつもりなんだけど、なぜか変化する。

>>267
SOURCE FORGE、なかなかよさげですね。
http://sourceforge.net/

ボード一覧のbbsmenu.htmlとbbstable.htmlどちらかれも

以下のような条件判断をして
2chBBSリンクだけ取り出せた。

　　　　//mailtoリンクならボードではないので無視
　　　if AnsiPos('<A HREF=MAILTO', AnsiUpperCase(BoardData) ) <> 0 then continue;

　　　　//'.2ch.net/'が含まれていない場合、2ch板ではないので無視
　　　if AnsiPos('.2CH.NET/', AnsiUpperCase(BoardData) ) = 0 then continue;

　　　　//'www.2ch.net/'なら板ではないので無視
　　　if AnsiPos('WWW.2CH.NET/', AnsiUpperCase(BoardData) ) <> 0 then continue;

　　　　//'index2.html'が含まれていないのなら板ではないので無視
　　　if AnsiPos('/INDEX2.HTML', AnsiUpperCase(BoardData) ) = 0 then continue;

ｵﾚもsubject.txtの読み込みにとりかかろっと。

HTMLパーサって使わないの？
まともなのがないから？

使い方教えてくれたら使うよ。ｵﾚや他の人が知らないだけかもね。

>>276を、もひとつ訂正。
＆ampを＆に変換です。
何故か　＆amplt；や＆ampgt；　となっている部分があるので。
ブラウザは単発の＆を表示してくれるので全部無条件に変換してますが、
単純な全置換だと不具合が出るかもしれません。

>>284
http://2ch.binboserver.com/entrance/
http://2ch.server.ne.jp/2ch/rikei/
等もあります。

ついでにねすけ＋串でてすと
-
977641―９７７６４１

うむ、何故か0-7-0が消されてしまうやうだ。荒らし対策かな？
datにも残っていので、書きこみ時に消されてしまうやうだ。

半角スペース->＆ｎｂｓｐ機能つけてね > all

monaplorerアプしましがた
あいかわらず、DL出来るファイル一覧を見る方法がわからないです。

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

直ﾘﾝはこちら

>>291
えっと、Monazilla Studioを入れているならそれ表示して
「ダウンロード、つーかファイルマネージャ起動」をクリックして
「入ってよし」をクリックしてジオにログイン、で、「src」ボタンクリックで
アップされているソース一覧が出ますので、そこで確認してください。

書記さん、ｻﾝｸｽ。

オンラインとオフラインを設けた。
オンラインモードははdat→htmlをまともに作れば、とりあえず基幹は完成じゃないかな。
全部上書きしちゃうけど。
http://www.geocities.co.jp/SiliconValley-Cupertino/1026/
どう？

がんばっておるねー。（ｗ

オフ/オン、モードわけ、俺も考えておこ。

そのまえに、スレ一覧表示を実装しないとナー

そうそう、コード規約みたいなものを書いていました。

ユニットヘッダ
(*
// 　∧ 　∧　　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
//　（´∀｀）＜ モナプロ〜ラ〜のソースだモナー
//　（　 　　） ＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
//　 ｜ ｜　|
//　（_＿）＿）

01/02/18 モナーアスキーをいれてみました。
履歴をつけてみました。
//*)

////////////////////////////////////////////////////////////
{// 名前：turbo type [email protected](藁
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

ｺｺｶﾗﾉｺｰﾄﾞﾊ: 2chのBoard一覧HTMLソースの
　　　　　　http://www.2ch.net/bbstable.html
　　　　　　及び http://www.2ch.net/bbsmenu.html
　　　　　　から内部データ及びTreeViewのItemを設定するソース
ｸﾜｼｲｾﾂﾒｲﾊ:　1:ループさせる
　　　　　　2:ソースからカテゴリデータを取り出す
　　　　　　3:カテゴリデータからボードデータを
　　　　　　　ループして取り出す
ｲﾝｽｳﾊ:　　　HtmlSource:HTMLソースの文字列
ｺｳｼﾝ日ﾜ：　 2001/02/18
ﾎｶﾆ逝ｯﾄｸｺﾄﾊ ﾅｼ

聞いてくれてありがと　アロエリーナ♪
＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　　　/
　　　　　　　　 ∧_∧
　　　Ψ　　　 （∀・ ）
　　　□　　　 （∩∩ノ）
//￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ }

monazilla.age!!
http://www.geocities.co.jp/SiliconValley-Oakland/9028/

書記さん、対応はやいなあ。age

なんか本格的だねー
ちょっとびっくりサ。
応援あげ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/

>書記さん
http://green.jbbs.net/computer/479/monazilla.html
このページの管理パスを渡します

ログデータを
カレント以下
\logData\サーバー名\板名(英語).txt
で管理しようと思っているんだけど

問題ないかな？

subject.txtの仕様はすげ、助かる。

フッサール少佐の方は
タブ切り替えでお気に入りとスレ一覧を変更予定なんですね。

その方がいいかな？

ところで、Delphi持っていない人向け
＆コンポーネントのインストなど面倒な事したくない人の為に

exeファイルを誰か配布してやってほしい。
UPXかますといい感じ。

エクスプローラのListViewで
項目の並び替えなどがDrag&Dropで出来るが
あれを実装するのは簡単なのでしょうか？

いまさらだが>>28
のクラス実装はやっぱり正しいな。

>>97のｵﾚの発言は撤回したい。

実装していったらなんとなくわかった。未熟者だ。欝だ氏脳。

基底クラスにListとダウソメソッドが欲しい。

が今更だしなんとかなりそうなので突き進む。

HeaderControl+ListBoxのOwnerDrawでやれば簡単にできるけど
それだとListViewの利点を放棄しちゃうことになるか。

>>307
なんかあのエクスプローラの動作っていかにもAPIでデキマスデー
といわんばかりの動作だから実現させたいな。
・・しかしそんな枝葉にこだわっていたら完成しないから
いずれ誰かに実装してもらう事にしよっ。

あと、エクスプローラListView/vsReportの上下の三角マーク▽△
これもAPIだと思うのだがどうやるのだろう。

誰か教えてね。

なんか、ｵﾚばかり書き込んでんだけど....
槍田氏悩した方が逝ってﾖｼですか？

スレ一覧取得コードは出来ました。
ローカルにデータさえあればぽんぽんと
スレ閲覧が出来るようになった。

レスはまだなので
次はdatの解析する.


ヒロユキ＠ギコナビさんやかちゅ〜しゃ
などで実装されているように
ローカルの部分とオンラインの部分の
兼ね合わせをどうやるといいのかが
よくわからない。

全然進んでません。。。

>>309
>ローカルの部分とオンラインの部分の
>兼ね合わせをどうやるといいのかが
よくわからないけど、
o オンラインモードの場合
スレッドを読み込みに行く時.datが更新されているかチェックする。

o オフラインモードの場合
ローカルにデータがあればそれを表示する。
なければ、読み込みに行く。

ローカルのデータを優先するかどうかの設定??

>>305 >>307
少なくともMFCではListViewにスタイルを設定するだけでできます。
コモンコントロールの機能のようなので、Delphiもおなじでしょう。

当面問題無いと思うけど、とりあえずリンクしとく。
http://teri.2ch.net/test/read.cgi?bbs=accuse&key=968944428&nofirst=true&st=307

エクスプローラの詳細表示で
[名前|サイズ|種類|更新日時]
これを自由に入れ替える機能。

>>311
その割にベキ２にも実装されていないのだが、
作者の趣向と合わないだけかな？
それともOS依存か＿＿

>>310サンクス。
高速化は先送りして、とりあえず
遅くてもナビゲートできるように
した方がいいんですかね。

ちょとコードが大きくなってくると
クラス設計の重要度がすごく増しますね。
ダウンロードクラスなんて実装しておいた方がいいのだろうか。
全くわからん。

＞その割にベキ２にも実装されていないのだが、
＞作者の趣向と合わないだけかな？
＞それともOS依存か＿＿
確かに、コモンコントロールのバージョンには依存しますね。
MSDNにバージョンxxx以上とかかかれてましたし。
でも、多分IE4を入れてれば大丈夫だったし、IEコンポ使うってことは
IE4必須なので問題ないと思います。と思って俺はつけた＞2chブラウザに
リストにボールドフォントとか使うときはオーナードローになると思うけど
そのときにはカラムの並び順も考慮した描画ルーチンにしないといけないのが
めんどうなところ。

板一覧を取得して、
最初の板の、最初のスレッドの、最初のレスを
標準出力に書き出す最小限のPerlかRubyのサンプルが、
資料として欲しいなと思う今日この頃。

>>315
作ってみましょうか?

作りかけてるけどwgetとか外部のコマンド使いまくってるから
使い物にならないかも。。。

とりあえず板一覧は
http://www.2ch.net/board.txt
http://www2.ocn.ne.jp/~luckland/text/board.txt
にありますね。

>作りかけてるけどwgetとか外部のコマンド使いまくってるから
>使い物にならないかも。。。
wget使うのはなお宜しいですねぇ。
Windowsには標準でついていないのがイタいけど。

>http://www2.ocn.ne.jp/~luckland/text/board.txt
これはオフィシャルなものですか？

今更確認するまでもないと思いますが、
出来るだけread.cgiを呼ばないように努力したいですね。
http://teri.2ch.net/test/read.cgi?bbs=saku&key=979695762&st=436&nofirst=true
最も負荷がかかっているのはI/Oだという話もありますが、
read.cgiは行数を数えるため、ファイル全体を読んでいると思われます。
頑張って差分GETにしましょう。

http://www.2ch.net/board.txt
↑これ、オフラウ用に公式アナウンスされているけど、
むちゃくちゃ古いですよ。全然更新されてないです。

負荷をちょっとでも軽減するために
http://salad.2ch.net/bbstable.html を変換して、
http://monazilla.org/board.txt に置いとくとか。

WinInetはnバイト目以降を取得とかってできるの？
CreateFile, ReadFileでも試してみようかな。

>>314
2chブラウザの方でしたか！
ありがたや・・・

ボード一覧は結局どれ？
http://salad.2ch.net/bbstable.html　なくなった？？
http://www.2ch.net/bbstable.html　こっち？
http://www2.ocn.ne.jp/~luckland/text/board.txt　オフィシャル？
http://www.2ch.net/board.txt　古い！
http://www.2ch.net/bbsmenu.html　取得面倒？

ちょっとヘコんだけど、書きに来ました。

>>313
＞エクスプローラの詳細表示で
＞[名前|サイズ|種類|更新日時]
＞これを自由に入れ替える機能。

勘違いかもしれないですけど、
TListViewのFullDragをTrueじゃだめかな？

>>322
WinInetって自分で何処までイジれるのか分からないので、
はずしているかも知れませんが、ヘッダにRange: bytes=xxx
ってすると差分取れます。
ＨＴＴＰの本を会社に置きっぱなしなので、間違ってるかも。
「ＨＴＴＰ詳解」っていう本だったかな？
あと、インターネットテクノロジ2001年1月号にも、HTTPのことが
ちらっと載っていたような気がします。（これも会社に置きっぱなし）

>>302
フム、なにやら板名だけじゃかぶっている所があるそうなんで、
そっちの方が安全カモ。

>>303
実はあのタブが好きなんだな。
あと過去ログようのタブが必要と見た。
別にお気に入りで過去ログフォルダを作ってもいいんだけど。

>>322
たしか出来たはず。

>ヒロユキ
へこまんでい〜よ〜。
暇なときでいいから、またアドバイスに来てちょ。

ほんでもって、HTTP1.1日本語訳へのリンク
少し古いのと若干わかりにくい部分があるので、rfc2616の原文も見るべし
http://www.geocities.co.jp/SiliconValley-PaloAlto/5694/rfc/rfc2068-ja.html

>>322
http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page14.html
で、どう？
ヒロユキ＠ギコナビの方法でもOK

>>322
http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page14.html
で、どう？
ヒロユキ＠ギコナビの方法でもOK

ありゃ？２重火気粉ｽﾏｿ

ヒロユキさんや、幸運の国さん、2chブラウザの作者さんらの
積極的な参加がこのプロジェクトを活気付けていると私は思います。
しょーもないあおりは無視で行きましょう。

>>319
全く同感。
HEADメソッドでチェックして、更新済みのものは差分取得がベストかな。
あるいは、datディレクトリの一覧を取得して日付で更新をチェックするとか。
Perlは重いっす。

>>308
ListViewのヘッダーカラムのDCを取得してそのCanvasにオーナードローすれば、OK。

>>332
If-Modified-Since:すると、HEADとらなくても、直接GETでOKです。
更新されていなければ、更新されていないコード（304）が帰ってくるので、
未更新が検出できます。

monazillaのページ見たけど、
どちらかと言うとmozillaよりGNU-2chといった感じだなァ…｡

いや、なんとなくそー思っただけ｡

>>334
おお、それはいい事を聞いた。マジメにRFC読んでみるかな。

>>334
更新検出なら、dat/ディレクトリ一覧の.datファイルのタイムスタンプを見ればわかるよ。
今、俺も実装してるところ。
subject.txtとdat/の2回アクセスしないといけないのが難点。

でも、tako鯖はdat/を読めないので注意してね。

>GET /tech/dat/?M=D HTTP/1.0
ね。

それと、
>GET /tech/dat/981726544.dat HTTP/1.0
>Host: piza.2ch.net
>Range: bytes=62298-
>If-Modified-Since: Thu, 15 Feb 2001 09:50:45 GMT
>Connection: Keep-Alive
>
↑これ(実際に送った例)をレスポンスを待たないで、
一括してリクエストするとメチャメチャ早いよ。
parseがかなり面倒だけどね。
以上、時々だけ名乗る98でした。

>>339
Keep-Aliveにするといつ終ったか分かんなくない？
parseしつつ表示ってんだったらいいだろうけど、
それって結構面倒な気がする。
つか、Keep-Alive にしてリクエスト送りまくるって話なんかな。

>>ヒロユキ
うん、へこまなくてもいー。いー。

>>324
http://www.2ch.net/bbstable.html
http://www.2ch.net/bbsmenu.html
の二つは解析方法は共通だよ。
他のところはカテゴリが無くてちょっとイマイチかモナー。

>>333少佐('ｗ')ゞ
ありがとうゴザイマフ
しかしAPI直叩きで出来る(とｵﾓﾜﾚ)のを
オナドローするのはちょぴ嫌でございます。

なんかめちゃくちゃ詳しい方々が集まってきてますね。

しつもーん。
http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page2.html
をDelphiに書き直した。

uses WinInetを加えて

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
　　　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
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

しかし、普通に書き直した"INTERNET_OPEN_TYPE_DIRECT"では読み込まない
"INTERNET_OPEN_TYPE_PRECONFIG"にしたら読み込んだ。なぜ？

Indyやめて、WinInetにしようかしら?( ｗ ;)
要望が多ければそうする。

>>342
よくわからないけど
プロキシの問題だろうか。
http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page9.html

WinInetのHTTPページの
Page2-6,8はPascalに移植ったので
誰か必要なら逝ってくれ。

もしかしてあぼーんすると.datのファイルサイズ変わっちゃう？
だとすると差分の取得がおかしくなりそう。

あぼーん、について教えて。

本当に全くわからない。(藁

かちゅーしゃ使ってるのにね。

>>344
かわるよ。そこがこの手のツールが各自工夫するところ。
さらにあぼーんには、「ノーマルあぼーん」（全フィールドがあぼーんになる）
と、「サイレントあぼーん」（datの行ごと削除、痕跡が残らない）があります。
固定長あぼーん（余ったところを空白などで埋める）の要望もあるが、
マイノリティなツールのために2ch側に対応を求めるのは本末転倒だと思います。
現在、各ツールののあぼーんへの対処は、
1.あぼーんを検出したら、dat全部読み直し
2.あぼーんを検出したら、少し前から読み直して、テキスト比較で前回の
　バイトオフセットを探して読み込み
3.datの差分読み込みはしない
あたりになっております。あぼーん検出は保存位置から読み出して、そこが
行頭か否かで判断かな？
ちなみに、俺（2chブラウザ）は3。差分読み込みやる気なし。
dat読みは全読み込みのときのみ。

WinInetで.datファイルを10分割して同時にﾀﾞｳｿしたら
超高速ﾀﾞｳｿできる???

ｱﾌﾟしました。
モナプロ〜ラ〜もWinInetに変えてしまったので

多分コンポーネントのインストは一切必要なく
IE4以上、D4/D5環境にてコンパイルできるようになった。

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

どの板でもボード一覧を取得できるようになった。

ネットに接続していない状態で動かしても動かないカモ。

でも、ｵﾚがﾀｺなのでメモリリークしているみたいだ。
メモリクバグを発見する方法知っている人、教えて。

>>ボード一覧
スレ一覧の間違い。

腹減った。

>でも、ｵﾚがﾀｺなのでメモリリークしているみたいだ。
>メモリクバグを発見する方法知っている人、教えて。
アプリ終了時にメモリリークの個数を報告するユニット。
http://www.sakaki.keiaikai.or.jp/convroom/webconv.exe/read?No=9666&Response_Root=9632

>>348
オレは
http://www.yks.ne.jp/~hori/MemCheck.html
これを使ってるよん。かなり便利。

更新チェック＆差分ダウンロードできるなら巡回機能付けてね

>>302
ログはドメイン名を元にするようにした。
例えば、yahoo板はこんな感じ。
\logs\salad.2ch.net.yahoo\977080207.dat
これならかぶらんだろう。

>>352
無ければ、自分で作るのだ。それがオープンソースの醍醐味でもある。
つーわけで、自分で作れ。Delphi買ってコイ。

同意。
&nbsp変換もそうだが、このスレに「○○きぼーん」は良くない。
プロトタイプのコードでも作って、導入を促すようにすべき。

最後の;つけなかったのに、nbspが変換されちった。

確かに、実装困難なものを
現時点で、きぼーん、されてもつらいものがある。
差分ダウソ＆更新はまーだ先ね。ﾏﾀｰﾘいこうぜ。

メニュー項目くらい
誰か案をだしてほしい。

>>356ｵﾚもおろろいた。

>>350&少佐、
メモリク情報サンクス。

リクしているかどうかも不確かながらデバッグにとりかかる。

自分で無理だったら
Tree型Dataの破棄と更新を報告させてもらうね。

さて、書記さんも更新ネタがなさそうなので
昨日まとめた、WinInetのDelphi仕様コード公開。
連続ｶｷｺすまそね。

全コードusesにWinInetを追加するだけで動作するはず。

INTERNET_OPEN_TYPE_DIRECT
と
INTERNET_OPEN_TYPE_PRECONFIG
は適当に置き換えてくれ。MemoとかButtonとかも適当に。

//HTML/テキストファイルをHTTPで読み取る
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page2.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
　　　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
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

//HTML/テキストファイルをHTTPで読み取りファイルに書き出す
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page3.html
//より移植
procedure TForm1.Button1Click(Sender: TObject);
var
　fp: TextFile;
　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
　　　AssignFile(fp, Edit2.Text);
　　　Rewrite(fp);
　　　while true do
　　　begin
　　　　lpBuffer := '';
　　　　{↑C++ではchar lpBuffer[1024+1]と
　　　　　 変数確保されていると同時に初期化されているので
　　　　　 Delphiでも初期化する}
　　　　dwBytesRead := 1024;
　　　　InternetReadFile( hService, @lpBuffer, 1024, dwBytesRead );
　　　　if dwBytesRead = 0 then break;
　　　　Write(fp, lpBuffer: dwBytesRead);
　　　　{↑dwBytesRead=StrLen(@lpBuffer)になっている}
　　　end; //while
　　　CloseFile(fp);
　　end;
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

//HTML/テキストファイルをHTTPで読み取りファイルに書き出す
//パフォーマンスがあがっているらしい
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page4.html
//より移植
procedure TForm1.Button1Click(Sender: TObject);
var
　fp: TextFile;
　hSession: HINTERNET;
　hService: HINTERNET;
　lpBuffer: PChar;
　dwBytesAvailable, 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
　　　AssignFile(fp, Edit2.Text);
　　　Rewrite(fp);

　　　InternetQueryDataAvailable( hService, dwBytesAvailable, 0, 0 );
　　　GetMem(lpBuffer, dwBytesAvailable+1);
　　　InternetReadFile( hService, lpBuffer, dwBytesAvailable, dwBytesRead );
　　　Write(fp, lpBuffer: dwBytesRead);
　　　FreeMem(lpBuffer);

　　　CloseFile(fp);
　　end;
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

//ネット上のファイル情報を得る
//サーバーに依存する
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page5.html
//より移植
procedure TForm1.Button1Click(Sender: TObject);
var
　hSession: HINTERNET;
　hService: HINTERNET;
　ReceiveBuffer: array[0..255] of Char;
　dwSize, Reserved: 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
　　　ReceiveBuffer := '';
　　　dwSize := sizeof(ReceiveBuffer);
　　　Reserved := 0;
　　　HttpQueryInfo(hService, HTTP_QUERY_RAW_HEADERS_CRLF, @ReceiveBuffer, dwSize, Reserved);
　　　Memo1.Lines.Add( String(ReceiveBuffer) );
　　end;
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

//ファイルの作成日、サイズを得る
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page6.html
//より移植
procedure TForm1.Button1Click(Sender: TObject);
var
　hSession: HINTERNET;
　hService: HINTERNET;
　LastModified: SYSTEMTIME;
　FileSize: Longint;
　dwSize, Reserved: DWORD;
　ft1, ft2: FILETIME;
　t: SYSTEMTIME;
　buf: String;
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
　　　dwSize := sizeof(LastModified);
　　　Reserved := 0;
　　　HttpQueryInfo(hService, HTTP_QUERY_LAST_MODIFIED or HTTP_QUERY_FLAG_SYSTEMTIME,
　　　　　　　　　　　　　　　@LastModified, dwSize, Reserved);
　　　dwSize := sizeof(FileSize);
　　　Reserved := 0;
　　　HttpQueryInfo(hService, HTTP_QUERY_CONTENT_LENGTH or HTTP_QUERY_FLAG_NUMBER,
　　　　　　　　　　　　　　　@FileSize, dwSize, Reserved);

　　　SystemTimeToFileTime( LastModified, ft2 );
　　　FileTimeToLocalFileTime( ft2, ft1 ); //かなり適当
　　　FileTimeToSystemTime( ft1, t );
　　　buf := Format('作成日:%4d/%02d/%02d　%2d:%02d:%02d　サイズ:%dバイト',
　　　　　　　　　　[t.wYear, t.wMonth, t.wDay, t.wHour, t.wMinute, t.wSecond, FileSize]);
　　　Memo1.Lines.Add( buf );
　　end;
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

//ヘッダ情報を追加する
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page7.html
//より移植したけど、何がどうなっているのか理解してません。
procedure TForm1.Button1Click(Sender: TObject);
var
hSession: HINTERNET;
hService: HINTERNET;
szHead: String;
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
szHead := 'Accept:*/*'+#13#10#13#10;
SetLength( szHead, Length(szHead) );
hService := InternetOpenUrl( hSession, PChar(Edit1.Text), PChar(szHead), 0, 0, 0);

if Assigned( hService ) then
begin
//....
end;
InternetCloseHandle( hService );
end;
InternetCloseHandle( hSession );
end;

インデントミスったので、再掲

//ヘッダ情報を追加する
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page7.html
//より移植したけど、何がどうなっているのか理解してません。
procedure TForm1.Button1Click(Sender: TObject);
var
　hSession: HINTERNET;
　hService: HINTERNET;
　szHead: String;
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
　　szHead := 'Accept:*/*'+#13#10#13#10;
　　SetLength( szHead, Length(szHead) );
　　hService := InternetOpenUrl( hSession, PChar(Edit1.Text), PChar(szHead), 0, 0, 0);

　　if Assigned( hService ) then
　　begin
　　　//....
　　end;
　　InternetCloseHandle( hService );
　end;
　InternetCloseHandle( hSession );
end;

//インターネット接続が出来るかどうか調べる
//http://www.geocities.co.jp/SiliconValley-PaloAlto/1512/page8.html
//より移植
procedure TForm1.Button1Click(Sender: TObject);
begin
　if InternetAttemptConnect(0)<>0 then
　begin
　　ShowMessage('インターネットに接続できていません');
　end;
end;

ヲﾜﾘ。

では本日も四露氏苦

>>350
>>351
これって同じ作者なのかな？
どちらも試したがメモリリーク起きてませんでした！

d( °ｗ )
いー感じ♪

書記さん、monazilla.org(藁 のダウンロードの説明の所を
こんな風に修正してくれると、わかりやすいかな。

> アップロードしてあるファイルをダウンロードする方法
>
> Monazilla Studio をダウンロードする。
> 適当なフォルダで解凍する。
> index.html を開く。
> ダウンロードをクリック。
> 入ってよしボタンをクリック。
　すると シリコンバレーオークランド通り/9028 monazilla　が開く
　アップされたソースは[src]フォルダに入っているので
　[src]ボタンを押す
> するとアップされたソースの一覧が出てくるのでダウソしたいファイル名の横のほ
> うにある 表示 ってとこをクリックする。
>
> 以上

全然ヵｷｺがない。！

ｳﾂﾀﾞｼﾉｳ

>/* 書記さんは会社から 2チャンへの書き込みがなぜかできないのでロムってます、すんませんー */

そうですか。
仕事していないのは俺くらいですか。(´∀｀)

＞少佐
TWebBrowserで遅い問題は解決したでしょうか？
もしかしたら文字列連結の時間が原因かもしれません。
・・・外してたらごめんなさい。
BCBの場合、単純にAnsiStringを数百回以上連結すると、
その部分で異常に時間を食います。
std::stringでreserve()すると、(その部分は)嘘みたいに高速になります。
でも、実はAnsiStringでcapacityを増やす方法を知らないんですが。

モナーアイコンを作成してくれない？誰か。

あと、32x32のaviもキボーン。
monazilla.org公式っていうのがいいなあ。

いま、かちゅしゃのaviで試しているから、
なんか悲しくて切なくて生産性が下がっています（藁

アイコンデザイン探しにモナー板逝ったら
藁ってしまうので仕事中にはとても探せないや。

またまた Delphiで申し訳ないんですが
板一覧をつくることに特化したクラス、
「ホットゾヌ」をアップしました。

インターネット接続は
「Wininet」「ICS(HttpCli)」「NMHTTP」「Indy(IdHTTP)」の
4種類に対応し別々のユニットで用意しました。
使い方などは HTMLを用意します。

http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hotzonu_010.lzh

>>369
修正しました！
ありがとうございます。確かにわかりにくかったですね。
ですのでさらに画像も入れてみました。

>>370
今日は一時アクセスできなかったです。＞2ch
うちだけかな？

>>375
おぉ。ぞくぞくと開発者が！
しかも別ユニットまで！
勢いでレス一覧までやってくださらぬか、（ｗ
ってそれは贅沢かな。

別ユニット的アプローチはいずれ参考にさせていただきます。

モナプローラではすでにスレ一覧まではやってしまったしなあ。

次はWebBrowserを簡単に作れるクラス/ユニット実装予定(は未定)
かちゅ〜しゃの１タブごとに[戻る]ボタン機能がついた
イメージで作ってます。

>>375
おぉ。ぞくぞくと開発者が！
しかもコンポ別ユニットまで！
勢いでレス一覧までやってくださらぬか、（ｗ
ってそれは贅沢かな。

別ユニット的アプローチはいずれ参考にさせていただきます。

モナプローラではすでにスレ一覧まではやってしまったしなあ。

次はWebBrowserを簡単に作れるクラス/ユニット実装予定(は未定)
かちゅ〜しゃの１タブごとに[戻る]ボタン機能がついた
イメージで作ってます。

>>書記さんいつもありがとう

2重火器子スマソ

>>340
Content-Lengthを参照する以外に終端を知る方法は
なかったと思う。＜Keep-Alive

>>372
>TWebBrowserで遅い問題は解決したでしょうか？

全く解決するめどは立っていないが、別の方法を使うことにより
逃げることにした。

>もしかしたら文字列連結の時間が原因かもしれません。

JavaもStringの文字の連結は注意だな。ちなみにStringBufferを使う。

>でも、実はAnsiStringでcapacityを増やす方法を知らないんですが。

Delphiの場合は、SetLengthかな。
遅い原因はそれもあるのだが、innerHTMLを使っているということであろう。
Writeで追加書き込みしていけばそこそこ速いのだが、画面クリアの仕方が
分からんのだ。つーか、TWebBrowserとかCOMとかは素人だったり…。

下げるわけにもいかんのでage

上げるわけにもいかんのでsage

いわゆるタブブラウザやかちゅーしゃなどでは
WebBrowser部分はWebBrowserのインスタンスを沢山作って
いるのでしょうか？

http://yasai.2ch.net/test/read.cgi?bbs=win&key=982224259
なんだか、かちゅーしゃの作者様の心がゆらいでらっしゃる。
協力してくれるかもage

かちゅーしゃは複数のブラウザインスタンスをつくってるようです。

を、一応レス閲覧コードが書けた。(ｱﾌﾟしてないけど)
初めて動作させるけどどきどきするなあ。

あ、まだメソッドを呼ぶActionが無かった。あせるな＞ｼﾞﾌﾞﾝ

さて、今日もコード公開
誰でも作れるけど、誰かが作っていたら楽な関数
////////////////////////////////////////////////////////////
{　 DataTimeToFmt2ch
　　Fmt2chToDateTime
// 名前：turbo type [email protected](藁
／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

ｺｺｶﾗﾉｺｰﾄﾞﾊ: 2ch形式の日付文字列"2001/02/09(金) 22:49"を
　　　　　　TDateTimeと相互変換する
ｺｳｼﾝ日ﾜ：　 2001/02/22
ﾎｶﾆ逝ｯﾄｸｺﾄﾊ:なにもなし

聞いてくれてありがと　アロエリーナ♪
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿／
　　　　　　　　　|/
　　　　　　　　 ∧_∧
　　　Ψ　　　 （∀・ ）
　　　□　　　 （∩∩ノ）
//￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ }
const DayOfWeekJP: array[1..7] of String = ('日','月','火','水','木','金','土');

function DateTimeToFmt2ch(DateTime: TDateTime): String;
var
　Year, Month, Day: word;
　Hour, Min, Sec, MSec: word;
begin
　DecodeDate(DateTime, Year, Month, Day);
　DecodeTime(DateTime, Hour, Min, Sec, MSec);

　Result := IntToStr(Year) + '/' +
　　　　　　Format('%.2d', [Month]) + '/' +
　　　　　　Format('%.2d', [Day]) + '(' +
　　　　　　DayOfWeekJP[DayOfWeek(DateTime)] + ') ' +
　　　　　　Format('%.2d', [Hour]) + ':' +
　　　　　　Format('%.2d', [Min]);
end;

function Fmt2chToDateTime(Fmt2ch: String): TDateTime;
var
　Year, Month, Day: word;
　Hour, Min, Sec, MSec: word;
begin

　try
　　Year　　:= StrToInt(Copy(Fmt2ch, 1, 4));
　　Month　 := StrToInt(Copy(Fmt2ch, 6, 2));
　　Day　　 := StrToInt(Copy(Fmt2ch, 9, 2));

　　Hour　　:= StrToInt(Copy(Fmt2ch,16, 2));
　　Min　　 := StrToInt(Copy(Fmt2ch,19, 2));
　　Sec := 0;
　　MSec:= 0;

　　Result := EncodeDate(Year, Month, Day)
　　　　　　　　+ EncodeTime(Hour, Min, Sec, MSec);
　except
　　raise ENichError.Create('日付変換が正しくねえぞ鰓(ﾟДﾟ)ｺﾞﾙｧ');
　end;
end;
////////////////////////////////////////////////////////////

>>386ども。

よし。レス内容データ読み込みだけは確認出来た。

あとはどのようにしてWebBrowserに読ませようか
ファイルに落としてからNavigateするのはわかるが
直接Documentに落とす方法はさっぱりわからない。
(次からはTWebBrower組み込むからD5専用な。)
誰かｵｼｴﾚ(態度デカ！)

現在はモナヂラスレの内容を読むために
単にhttp://piza.2ch.net/tech/dat/981726544.dat
を読んでいるのだがこれでいいのか？
read.cgiには迷惑かけずに最新情報を読むことになってる？

AVIファイルの作り方おしえてくれい。

>>390
これはどう?使ったことないけど、、、
http://www.emurasoft.com/jp/emavi/index.htm

ふらりと見に行ったWin板で
"新２ちゃんねる用ブラウザ"
ってのが出てて、しかもめちゃ荒らされている...
http://yasai.2ch.net/test/read.cgi?bbs=win&key=982224259

ああ、哀れ

スレ先間違えた。
俺の方が憐れだ、宇津田ﾋｶﾙ
http://yasai.2ch.net/test/read.cgi?bbs=win&key=982429839

>>391、どもｱﾘｶﾞﾄ

♪聞いてアロエリーナ　ちょっと言いにくいんだけど
　聞いてアロエリーナ

　　　>>391
　　　すごく使い勝手わるいよ。　

　　聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿＿＿＿／
.　　　　　　　　　　|/

　　（○） 　　　　 ∧＿∧
　　ヾ|〃　　　　 （∀・　,,,）∩゛
　　 □.　　　　　（∩∩　, ⌒つ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

これがいいかも。
http://www.vector.co.jp/soft/win95/art/se169298.html

>>388
ナイス！
汎用関数ライブラリつくりましょっか？

type
　TNichDownloadEvent = procedure(Sender: TObject; Index1, Index2: Integer)
　　of object; // Sender.Lines[Index1..Index2]をダウンロードした
　TNichDownloadableObject = class
　public
　　property Url: String;
　　proeprty Lines: TStrings; // TStringsで扱ってくれると楽チンなんだが...
　
　　proeprty OnStartDownload: TNotifyEvent;
　　property OnProgressDownload: TNotifyEvent;
　　property OnFinishDownload: TNotifyEvent;
　end;

　TNichDownloadType = (dtAll, dtDiff); // 全て取得・差分のみ取得

　// 抽象ダウンローダ
　TNichCustomDownloader = class
　protected
　　FList: TObjectDeque; // TNichDownloadableObjectのインスタンスを保持
　public
　property UseProxy: Boolean;
　　property Proxy: String; // '0.0.0.0:8080'という形式が楽チン

　　procedure StartDownload(Nich: TNichDownloadableObject;
　　　Whole: Boolean = False; // 全て取得(FALSEなら更新チェック＆差分取得）
　　　Deferred: Boolean = False // 順番を後回しにする
　　　　); virtual; abstract;
　　procedure CancelDownload(Url: String);

　　proeprty OnStartDownload: TNotifyEvent;
　　property OnProgressDownload: TNotifyEvent;
　　property OnFinishDownload: TNotifyEvent;
　end;

　// ローカルキャッシュダウンローダ
　TNichCachedDownloader = class
　public
　　property Size: Integer; // カレントキャッシュサイズ
　　property MaxSize: Integer; // 最大キャッシュサイズ
　　property Directory: String;
　　　// キャッシュディレクトリ
　　　// こればっかりはレジストリで設定すべき
　　procedure Clean(LeftSizeMB: Integer; option...); // キャッシュをクリア
　　procedure Write(nich: TNichDownloadableObject);
　end;

　// HTTPダウンローダ
　TNichHttpDownloader = class
　public
　end;

　// FTPダウンローダはいらないか...

　// 2chダウンローダ
　// やることはcache&httpからLines:TStringsへダウンロードするだけ。
　// Linesの解析は委譲元(nich: TDownloadableObject)が行う。
　// 開発初期段階はシングルスレッド版(StartDownloadを呼び、ダウンロード完了後に制御を戻す。
　// 　　途中でApplication.ProcessMessagesを呼ぶかもしれない）
　// 差分取得は全て取得してしまう。
　// 完成したら、順次マルチスレッド・差分取得を実装していく
　TNichDownloader = class
　protected
　　cache: TNichCacheDownloader;
　　http: TNichHttpDownloader;
　public
　　procedure StartDownload(Nich: TNichDownloadableObject;
　　　Whole: Boolean; Deferred: Boolean);
　　begin
　　　// cacheとhttpを組み合わせてダウンロード
　　　cache.StartDownload(Lines, Url, Whole, Deferred); // こっちはその場で復帰するはず
　　　http.StartDownload(Lines, Url, Whole, Deferred); // こっちはスレッドでダウンロードを開始するだけ
　　　// nichのイベントの発生のさせ方は一考の余地あり
　　　// ダウンロードが終わったらキャッシュする。
　　　cache.Write(Nich);
　　end;
　end;

例によって中身のないマルチスレッダブル(??)HTTP・キャッシュ
統合ダウンロードクラスを書いてみた。
HotZonuも良いがダウンロード・キャッシュ・プロクシ等の
コード・設定があちこちに散らばるのは面倒なので、
データをTStringsかstreamに統一して、
ダウンローダを板・スレリストクラスから分離すべきだと思う。
あとModel, Viewも意識的に切り分けないとね。
なんていってると遅くて使い物にならなくなるかもしれないが...

ちょっとだけ更新しました。
http://www.geocities.co.jp/SiliconValley-Cupertino/1026/lzh/giko0222.lzh

>>398
＞あとModel, Viewも意識的に切り分けないとね。
＞なんていってると遅くて使い物にならなくなるかもしれないが...
結構、重要ですよね。
でも、ウィンドウズのTreeViewだとどうしてもTreeView内にデータが入るので
ここをどうするかが問題になりそうです。
せっかくモデルを作成しても、タコTreeViewのお陰で複雑になります。
TreeViewとモデルの間に一つ挟めばいいのかな？
VirtualTreeViewなんてモードがあればいいんだけど。

>>398
なるほど。
HotZonuもその形式に変更していきたいと思います。
なんか難しそだな。。。

>>400
TreeViewのDataにオブジェクトを入れるのはまだいいと思います。
ノードと板スレオブジェクトを関連付けるクラスがあっても
いいかもしれませんがなんか複雑になりそう、、
逆に板やすれのオブジェクトがノードを持っているのはちょっと好きくないです。

あんまりこってないのでテスト用の自家製のモナ AVIをアップしたよ。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaavi.lzh

↓こんな感じ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/mona.gif

まえにこんなの作ったら、コードがかなり単純になった。
コードなくなっちゃったけど。
function SearchTreeNode(TreeView: TTreeView; Path: String): TTreeNode;

// あれば'\foo\bar\baz'を検索して返す
// なければ無理やり階層作って返す。
tn := GetTreeNode(TreeView1, '\foo\bar\baz');

そろそろ書き込みについても考えませうage

>>400ヒロユキ
ｵﾚはTreeViewのTreeNode.Dataに
TNichBoardを入れてポインタでリンクしてるよ。

で、実際のTNichBoardの管理はTreeViewとは
独立している。

今の所は生成方法でTNichBoardを作るときに
TreeViewのItemも構成してしまってるから
ちょっと絡まってるけど分離は実に楽だよ。
TTreeViewをTListBoxに差し替えるたり

TNichSite
└TNichCategory
　└TNichBoard
　　└TNichThread
　　　└TNichRes
というデータ構造をしっかり保持しておいて
さらに
TTreeView
└TTreeNodes
　　└TTreeNode
　　　└Dataプロパ=TNichBoard
こうしてるわけ。

>>402Dax
TNichSiteにはプロパとして
使用するTTreeNodeをポインタとして代入しておくと
TNichBoard側からもTTreeViewを参照できるよ
TNichBoard.OwnerCategory.OwnerSite.TreeView=
実際に画面に存在するTreeViewという事になる。
Daxには仏に説法か。(藁

TNichBoardがTNichNodeを保持するのはｵﾚも好きでない。
if TTreeView.Items[i].Data=Self then
で検索してもいいかもね。

>>398=119
勉強させてもらいます。
ダウンロードの構造はまだ考えていなかった。
一般的なやり方ってのはどういうものなのだろうか....
マルチスレやサブンダウソも
ダウンロードクラス差し替えで

ﾃｲｾ
マルチスレ→マルチスレッド対応
ダウンロードクラスだけ差し替えたら動作するような
機能分けが欲しい。

TDataModule上にダウンロード機能を構成しておくと
IndyやHTTPCLIに対応したときも
差し替えが実にらくだと思うよ。

>>405
>そろそろ書き込みについても考えませうage
ダネ。ギコナビスレ、2chブラウザスレ、かちゅしゃスレで
話にあがっていたかも。
参考レス教えてｸﾚｿ


ｵﾚもAVI作ったんだけど(ヘチョいけどもナー)
アニメGIF作る方法がわかんね(T∀T)
教えてｸﾚｸﾚ厨房ですのでｵｼｴﾃｸﾗｻっｨｨｨｨｨｨｨｨｨｨｨｨｨｨｨｨｨ
>>403
裏になると顔が変わったらｲﾝﾊﾟｸあっていいかモナー

>>409
AVI,私はMacromediaのExtreme3dってのを使いました。
あ、フリーのツールじゃないです。

>>410
そうですか。フリーでアニメGIFはやはりないですかね。

>>402Dax,
ホットゾヌでレス一覧を取得できるようには出来ないでしょうか？

あ、ｱﾆGIFツールはかなり昔にゲットしたのがありました。
今はライセンスの問題で配布してないようです。
手元にあるのをジオにアップしました。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/anigif.lzh

>>412
どもども、ゲットしました。

元あるGIFを組み合わせて、アニメGIFをつくるのはライセンスの問題に引っかからないはずだから、
そういうソフトを見つけてくるか、もしくは作るか…。

メールテスト

>>414,TGifImageで作れるのかな？

よっしゃ。
TWebBrowserでレス一覧まで見れるようになった！(遅いけど)

今日中にｱﾌﾟします。

>>406
ギコナビもDataに入れてます。
ちなみに、
TBBS2ch (extends TList)
└TCategory (extends TList)
　└TBoard (extends TList)
　　└TThreadItem (extends TObject)
な感じなのですが、モナプロのほうが綺麗なクラス群ですなぁ。

あと、書込みの注意点。
書き込みするときには、クッキーを送ってやる。
書き込み文字列はURLEncodingする。（HTTPAppユニットのHTTPEncodeで可能）

具体的には、以下のようになると思います。
FROMとか大文字小文字を区別しているようなので注意。

s := 'submit=' + HttpEncode('書き込む') + '&
+ 'FROM=' + HttpEncode('ヒロユキ＠ギコナビ') + '&'
+ 'mail=' + HttpEncode('sage') + '&'
+ 'MESSAGE=' + HttpEncode('書き込みたい文字列') + '&'
+ 'bbs=' + 'tech' + '&'
+ 'key=' + スレ番号(ex. 981726544) + '&'
+ 'time=' + 時刻（注）;
な感じを送ります。

僕の場合、時刻は以下のメソッドで取得しています。
//2ch日付取得（1970年からの秒数-9時間）
//現在の時刻(now)を渡してください
function TGikoSys.Get2chDate(aDate: TDateTime): string;
var
d1: TDateTime;
d2: TDateTime;
begin
d1 := EncodeDate(1970, 1, 1);
d2 := aDate - EncodeTime(9, 0, 0, 0);
Result := FloatToStr(Trunc((d2 - d1) * 24 * 60 * 60));
end;

> TBBS2ch (extends TList)
> └TCategory (extends TList)
> 　└TBoard (extends TList)
> 　　└TThreadItem (extends TObject)

これもいいじゃないですか。というか
ギコナビの方が順当でわかりやすいかな思いますよ。
いろいろ迷ったんだけどまあ所有か継承なので
実現できればどっちでもいいか。
(いずれギコナビ方式にしようかモナー)

>>119の
T2chObject実装にしても迷いましたよ。いまだに。

ｵﾚもAVI作った
AVIファイル
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monarotation.lzh
GIF
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monarotation.gif

モナプローラ、アプしたよ。
うごくかな。
TWebBrowser使ってるからD5限定ね。

あと、次からは多分パッケージもインストールするようにします。
コンポ使わないとコーディングが面倒なので。

あ、レス一覧を参照できるようになりました。
実に使いにくい2chビューワーとしてなら使えるはずです。（ｗ

>>419
Browser.pas と MemCheck(例のメモリリークチェッカ？)
ってのが無いってエラーが出るーーー

あ、違った。
単に MemCheckが無いってエラーでした。

プロジェクトソースの該当個所をコメントアウトしてくれ
>>350>>351を参考にね.

>>書記さん、メモリリークの解決方法へのリンク張って
頂くとうれしいかも。

ところで、モナヂラ ドット”オルグ”って読み方あってる？

AVIでアニメーションさせるんなら
0..100%で進捗状況を表すようにしない？

>>417
質問。
リクエストメソッドはGETでも大丈夫なの?
この2chはPOSTで送っているみたいだけど。。

>>426
datファイルやsubject.txtならGETでOK。
CGIを動かすならPOST。

>>427
ああ、ｽﾏｿ。一体何を書いていたんだ。無かったことにしてくれ。

>>425
余り関係ないが、AdobePremireの待機カーソル(砂時計みたいなの)妙に腹立たないか？

>>425
それはね。WinInetでは難しいのよ。
・・・そうでもないって話もあるな。

WinInetでの%実装…思い浮かんだぞっと。
差分ﾀﾞｳｿと絡めて実装したいね。

なんか下がりまくってるし....

Delphiの弱点というか、
コンポーネントを継承して
そのコンポーネントの生成などを考えずに
IDE上でコーディングしようとすると
非常に面倒ですね。

面倒すぎるので、動的生成させることにしました。
だからパッケ−ジ化も特に必要なし。

>>432
同意。
独自のコンポーネント作ってアプリに組み込んでも、
他人にインストールを強要するのがイヤでいつも動的生成にしちまう。
そのかわり動的生成だと、配置やプロパティ設定がウザイ。

このへん、どうにかにかならんもんかねぇ。

>>433、を、やっぱりそう思いますか。

IDEの設定がコーディングレベルに落ちて
プロパ設定もソースで見えるように
VB.NET/JAVAでは改善していたと思う。
あまりしらないけど。

Delpヒもさっさと改善望む。

さて
動的生成タイミングなんですが
FormCreateでやればいいのでしょうか？

あと、CreateParentedってのはなんですか？
VCLじゃないWindowにコントロールを載せる為の
特殊なＣｒｅａｔｅと考えていい？

FormCreateで問題ないことがわかった。

あと、TWebBrowserの動的生成は特殊なんだね。

var Browser : TWebBrowser ;
begin
Browser := TWebBrowser.Create(Self);
Browser.Align := alClient ;
TOleControl(Browser).Parent := Self ;
Browser.HandleNeeded ;

http://www.users.gr.jp/ml/archive/delphi/25250.asp
ここをみた。

ギコナビもｵﾌﾟｿになったし
おもしろいね。

>>397
119さん、こんな感じでしょうか？
雰囲気だけですが実行してHTMLを取ってくるとこまでは動きます。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hotzonu0226.lzh

ホットゾヌを組み込もうかと調べていたんだけど
ｱｽｷｱﾄすごいね。

カテゴリとボードについてそれぞれ
TCollectionとTCollectionItemがあるんすね。
このままスレとレスについても

同じようなコードで実装するのでしょうか？

>>437
いや、スレ/レス取得はダウンローダと解析処理を分けようと思います。
ですので全然違うコードになると思います。
つーか板一覧も変わります。ｽﾏｿ..

やっぱコレクションは不便ですかねー？
次回はギコナビみたいな TList 継承にしよー。

ホットゾヌのソース見て、飲んでたお茶ふきだしそうになった…。アブねぇ…。

動画つくりました！
今度は裏に別の顔があります。
AVIとBMPはここ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaavi2.lzh

サンプルGIFはここ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/mona02.gif

>>440
やっぱ AA 張りきりすぎ？
それともロジックが変だったってこと！？

writeの正しい使い方がようやく分かった。
document.open('text/html', 'replace');
これが必要だったらしい。待て、次号。

Delphi以外の言語(特にスクリプト系)で参入しやすいように
一連のクラス郡をオートメーションサーバにしちゃうってのはどう？

用途としては、とりあえず以下のものが考えられる。
・コマンドライン巡回ツール
・WebBrowser表示用のdat->htmlフィルタ
#2ch標準より読みやすい表示はいくらでもありそうだね。
#これはオートメーションとは関係ないけど。
・キャッシュクリーンアップ
・CUI,GUIフロントエンド(DelphiとVBの夢の共演が実現か?:-)。

／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣＼
聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

>・GUIフロントエンド
特定のスレを定期的にチェックして新着の内容を
吹き出しで表示する常駐ツールなんてどうよ？

聞いてくれてありがと　アロエリーナ♪
＼＿＿＿＿＿＿＿＿　＿＿＿＿＿＿＿／
　　　　　　　　　|/
　　　　　　　　 ∧_∧
　　　Ψ　　　 （∀・ ）
　　　□　　　 （∩∩ノ）
//￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ }

コメントのAAにびっくらこいただけだよ。その調子で頼むよ(藁

>>444
ActiveXコントロールを作ろうかと思ってたんですが
オートメーションサーバーの方が小回りききますね。

>>446
クラスとクラスの間に貼ってあるリアルゾヌ(勝手に命名)の AA がお気に入りです。

>>443少佐・まってます。('w')ゞ

>>Dax
コレクショとコレアイテムは1階層だけでの実装が自然だと思う。
だから2chのようなデータ構造を保持するには
少々不自然かな。
ソースは綺麗ですよ。

今日は気合入れていくぜ。
オフライン＆WebBrowser動的生成は実装できた。

読み込み中に
Appli.ProcessMessageしてると
予想していないポインタのズレから


>>441
動画ないす！
モナプロラではUI上から動画を切り替えられるようにしておこうっと。

>>441さんの動画
なぜかTAnimeでは開けないの
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaavi.lzh
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaavi2.lzh
なぜだろう。

ActiveXコントロール／コントロールコンテナから
WordやExcelのドキュメントの書き込み禁止／許可を
させるにはどうしたよいのでしょうか？

スレまちがえました。すいません。

うまくいかん！、ぐう(x∀x)

Browserの進むと戻るって
どのように実装されてるのかな？
GoBackメソッドとかあるけど。
詳説キボーン

あとWebBrowserに関するテクニックを
知っている人は沢山教えてくださいな。

かちゅーしゃのように
WebBroweserで開い後に自動的にスクロールする方法がわかんない。

番号にブックマーク(#1とか)を指定してそこに移動すればいいんじゃない？

CHtmlView クラス メンバ
http://www.microsoft.com/japan/developer/library/devprods/vs6/visualc/vcmfc/vcrefchtmlviewclassmembers.htm

>>454
かちゅーしゃでHTMLソースを見るとレスごとに
アンカーが設定してあります。
Navigate時にアンカー指定で表示しているんだと思います。

そうか！あったまいい！

かちゅーしゃの「以前読んでいた位置」はこれ。
Documentにアクセスしているので、Navigateは(最初以外)してないと思うよ。
http://piza.2ch.net/test/read.cgi?nofirst=true&st=142&to=142&bbs=tech&key=974446449
その他、Elementはanchorに限らないけど、scrollIntoViewあたりがよろし。

>>458
おお！なるほど、確かに Navigateだとぎゅい〜んって動いちゃうよね。

なんかスレずいぶん落ちてるんだけど
みんな疲れてるの？

みんな会社でまじめに働いてるからです(藁

そうか！
まじめに働いていないのは俺だけか！(藁

じゃあ、今日も不真面目にGo!

不真面目なのはオレ一人なので気にせずｶｷｺ
あと、>>449の問題とか教えてよ。

今までデータ構造として
TNichSite
├TNichBoard ─┐
└TNichCategory │
└TNichBoard─┘
└TNichThread
└TNichResponse
としてTList保持して一つのツリーとして考えてきて
おや(Owner?)を破棄すると同時にすべての子を
破棄するようなコードを書いていたけど

どうやら詰まってきたので再考しました。

構造はこのままだけど

ボード一覧表示部分
TNichSite
├TNichCategory
│└TNichBoard─┐
└TNichBoard ←┘

↓TNichBoardをAssignしてコピー

スレ一覧表示部分
TNichBoard
└TNichThread

↓TNichThreadをAssignしてコピー

レス一覧表示部分
TNichThread
└TNichResponse

にします。
こうしないとボード一覧表示を更新した後に
スレ表示やレス表示部分と整合性が無いために
コードが非常にやりずらかった。

という事でよろしく。

モナプロ〜ラ〜を勝手に改造して勝手にｱｯﾌﾟ

変更点
・ﾀﾌﾞで複数のｽﾚを見れるように変更
・TWebBrowserをTUIWebBrowserに変更
・Frameを追加(Delphi4はｺﾝﾊﾟｲﾙすら無理)

http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer_r.lzh

わぉ(´∀｀)

ｵﾚもｱﾌﾟじゃあー！
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010228.lzh

更に使い勝手が悪くなったきがしまフ
たぶんD5限定さ。

・タブで複数スレが見れる
(けどロード中にタブ切り替えするとやばいよ落ちるよ
しかもとても使いにくいよ)

・内部データ構造を見直した
　ちゃっかりTList継承になってるもんね。
　きっと今後のコーディングが楽になるﾊｽﾞﾊｽﾞﾊｽﾞﾊｽﾞﾊｽﾞﾊｽﾞﾊｽﾞﾊｽﾞﾊｽﾞ
ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ ｷﾉｾｲ

・AVIファイルをaviフォルダに入れる事でグルグルアニメの選択可能
　こんなおまけ機能後回しにしろや(ﾟДﾟ)ｺﾞﾙｧ

まだまだ先は(ｶﾁｭに追いつくには)遠い!

GoBackとGoForword機能
のEnabledはどうやって取得するのでしょう？
ｵｽｴﾃｸﾀﾞｻｲ

ﾓﾅﾌﾟﾛﾗ今後の予定

TWebBrowser部分
　　スクロール機能をつける
　　タブを閉じる関数をつける

データ構造
　　T2チャンスレッドのメンバーに
　　スクロールバー位置
　　を追加

ﾀﾞｳｿ部分
　　WinInetによるファイルサイズ取得関数作成
　　ファイルサイズと比較して
　　差分ﾀﾞｳｿの実現するようにする

全体
　　ちょっとくらい使い勝手を意識しろﾂｺﾄﾃﾞ
　　UIの改善
　　　　→PopupMenuで読み込むのをやめよう。
　　　　→現在読み込んでいる板とスレの表示
　　データのIniFile保存

>>466
TList クラスを継承は出来るだけやめた方が良いよ。

Delete メソッドや Clear メソッドが公開されているから
バグを作る可能性が大きくなります。

あらーーー。
せっかくTList継承にしてみたのになあ。

まあ、Has ア に戻すのもたいした手間じゃないけどさ。

そしたら
TNichListを内部で保持しておいたらいいんでしょうか？

モナプロ〜ラ〜のページ更新しましたー。
ﾜﾀｸｼもまじめに働いてないですよ。

あらま、本家とかついてる。うれしいでございます。

ギコナビもすぐクローン化されるんでしょうね。
みなさんマターリｶﾞﾝﾊﾞﾘﾏｿ

本家のｿｰｽをみて感動(´ー｀)
WebBrowserのParentの設定方法がわからなかったので
Frameを使ってたのが恥ずかしYo
もうちょっとｶﾞﾝﾊﾞｯﾃ勉強します。

ｴﾍ（ｗ
>>435
を見ておくれ。
Browser.HandleNeededが何で必要なのかは全然知らない(藁

BCBでのやり方は某所で載っているね。

>>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を継承して使っているが
特に不具合は出ていない。デバッガをフルに使っていないからかな？
動的生成しているからかも。

勉強になります。

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

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

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

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

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

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

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

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

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

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

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

おおお、かちょええ！！

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

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

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

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

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

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

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

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

すげｰ疲れた。

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

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

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

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

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

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

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

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

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

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

initialization
&nbsp;&nbsp;OleInitialize(nil);
finalization
&nbsp;&nbsp;OleUninitialize;

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

>>503
わざとでは？(藁

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

眠い。

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

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

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

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

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

>>511
ありがとう。

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

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

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

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

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

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

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

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

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

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

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

>>520サンクス。

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

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

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

turbo type D さんって何歳？

知ってどうする？

>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;
の方がシンプル。継承使うとまずいのかな？

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

>>525
いいねそれ(藁

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

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

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

で、実際のところ何歳？

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

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

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

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

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

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

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


あと、

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

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

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

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

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

でも何とかなるかも。

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

>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継承がスマートですね。
それから処理中断をどうやって実装しようか悩んでます。

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

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

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

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

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

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

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

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

Max関数って使ってよい？

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

書記さん、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;

テスト

ｽﾏｿ差分ダウソテスト

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

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

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

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

>>542　ｻﾝｸｽｺ

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

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

俺が知らんだけ？常識？

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

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

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

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

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

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

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

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

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

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

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

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

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

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


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

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

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

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

>>555
d(・∀・)イｨ

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

>>562
名前忘れてた。

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

確かに一発（略

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

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

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

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

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

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

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

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

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

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

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

どこのスクロールバー？

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

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

ちょっとダケ更新。
なんか段々コードがダサダサになってきたような…。鬱だ。

>>573
ありゃま、>>568は私の誤解でした
Win2000で標準コントロールなら自動で付属するようです。
独自実装はDelphiIDEの話.

>>575
そういうのわかる。(藁

かちゅしゃはすごいね。がんがん目指してもらいやすわ。

>>576
目指さしてもらいやすの意味
最近書き込みすらまともに出来ないほど壊れてるのか？俺は。

マルチスレッドのコーディングについて質問です。
現在２つのやり方について悩んでいます。

Tギコスレッド
　Tギコダウンロード
　Tギコダウンロード
　Tギコダウンロード
という所有関係を作っておいて
Tギコスレッドを動作させると
Tギコダウンロードが一つ一つ
Tギコスレッド上で実行されるという方式・
別スレッドが1コのものと

複数のモナスレッドを作成して
そいつの所有するモナダウンロードを
実行していくというやり方
Tモナスレッド
　Tモナダウンロード
Tモナスレッド
　Tモナダウンロード
Tモナスレッド
　Tモナダウンロード
Tモナスレッド
　Tモナダウンロード

どちらがよさそうでしょうか。
とりあえず現在前者が頭の中に
浮かんでいるのでそちらでコーディングしておこうかと
思ってますが。
前者のやり方でまずい点ありますか？

2chブラウザーってｵﾌﾟｿになってるんですね。

こりゃ慌てなければ。

>>578
>前者のやり方でまずい点ありますか？
同時に1つしかダウンロードできないこと。それで（それが）いいならいいけど。

書記さん、更新どうもです。
あまりにも更新が早いので
書記さんはWebデザイナーの仕事でもしてるんですか。(藁

ダウンロードユニットの
ソースアプはわざわざｌｚｈで公開しても
見る人が少ないかなと思い
http://green.nttec.com/tech/
からアプしましたが、コピペしていただけると幸いです。

>>580
確かに同時に１ですが、その際にメインスレッド側が
待つ必要もないので
ダウンロード指令はガンガン発行できるようにしてみたり...

もすこしで完成しそう。
そしたら概要が問題ないか意見きかせてくれいな。

Hotzonuアプしました。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hotzonu0312.lzh
マルチスレッド対応で、途中キャンセルできるようにしました。

>>578
Hotzonuでは
　Ｔゾヌスレッド
　　Ｔゾヌダウンロード
　Ｔゾヌスレッド
　　Ｔゾヌダウンロード
　Ｔゾヌスレッド
　　Ｔゾヌダウンロード
こっちです。
あんまり考えてません、

>>567
モナヂラ連中で会社をつくればよい。
ぅ、なんかスゴいことになりそう・・・

しまった、dfmを入れておくの忘れてた。。ぅっ、

Dax氏、ほうほう。
今からソースみさせてもらいます。
精進せねば。

Delphiで楽しく働ける場所があればいいなあ。
優秀な技術者の下で修行したいよ。

デスマーチの苦行とかなら嫌だけどね。

やっとスレッドを理解できた。
ｵﾚTerminatedとSuspendedの意味が混じって混乱してた。

簡単なダウンロードサンプルも動作したので
これから綺麗に仕上げるかな。

WebBrowserで画像を表示するときに
画像ファイルを使わない方法はある？
たとえばTImageを使うとか。

意味わからんよ。
データを読み込んでファイル書き込みせずに
直で表示したいということ？

そのと〜り。
文字ばっかりって地味だし、
かといって画像ファイルばら撒くのもうざいので
TImageかTImageListにボタンなんかを
入れとくのがいいような気がしたので。

Jpg/gifファイルをダウソするときにメモリに持つ事はできるだろうが
WebBrowserで表示しているのはあくまでもHTMLなのだから
ファイルに持つか、直リンしておくのどちらかしかあるまい？
特殊なやり方があるのかもしれんが。

>>589-592
リソースに画像突っ込んで、res://で見れなかったっけ？
もしかしたら、夢で見ただけかもしれない。

>>593
おっとそうなん。それは私が知らないだけでしたね。

さあ、589さん挑戦だ！

Hotzonuアプしました。
Indy用クラスを追加しました。Indy使いやすいですねー。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hotzonu0315.lzh

聞いてアロエリーナ　ちょっと言いにくいんだけど
聞いてアロエリーナ

｢ようやくスレッド動作するダウソユニットできたの〜｣
http://green.nttec.com/tech/read.cgi?KEY=984725056

聞いてくれてあーりがと　アロエリーナ♪
＼＿＿＿＿＿＿　＿＿＿＿＿＿＿＿＿＿／
　　　　　　　　　　|/
　　　　　　　　∧＿∧
　　（○）　　 （∀・　　）∩゛
　　ヽ|〃　　 ∩､ ∩　 ⌒つ 　ﾏﾀﾞﾏﾀﾞｶﾞﾝﾊﾞﾙﾖ
￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣

書記サンはどうしてそんなに更新がはやいんですか、

あと、kylixでmonazillaするツワモノはいますか？(ｗ
ついでにIndyの互換性など報告してくれいな。

C++Builderで作りたいんだけど
へたれだからDelphiコード移植が分からないでやんの（汗
どっかに変換ソフトないかな〜。

>>597
仕事せずにネットばっかりやってるからです(本当)。
ただ、幸か不幸か会社から2chへ書き込めないのが残念。。
そう言えば Kylixベータテスターは申し込まれましたか？？>ALL

>>598
ほんと、変換ツールほしい。出来れば相互がいい。
STLなんか使われたら無理だけど。

IndyやHTTPCLIやその他有名コンポは
手動でDelphi>>BCB変換してるわけではないと思うのだけど
(だって手間がかかりすぎる！)
海外では変換ツールとして何かスタンダードなものがあるのじゃないかな？
全く憶測でものを言っていますが。

>>書記さん
お世話になっておりまする。

PascalソースをHTMLで綺麗に表示させるルーチンは
何を使っていらっしゃうるのでしょうか？

コメントの認識が正しくないです。

//(*（´∀｀）ｺｺｶﾗﾅ〜〜（´∀｀）ｺﾒﾝﾄﾓﾅ〜〜
　処理
　処理
　処理
//（´△｀）ｺｺﾏﾃﾞﾅ〜〜（´△｀）逝ってよしﾓﾅ〜〜*)

こういう記述ですと
(*が行頭でコメントアウトされるので

"処理"自体はDelphiに実行されるので
青色で色分けするのは適当ではないです。はい。
まあ、こんなコメントの書き方する方が悪いんですけど。

しまった！！

まさか、手動...（・∀・；)

>>602-603
君ら、えーコンビや(藁

なんか Indy、バージョンアップして
ひどくセットアップしにくくなってた。。

>>598
WinInetの資料なんかはBCBの方が多いから
移植しなくてもそれらを参考にするのもいいと思うよ。
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/1512/

Indy 8.00.23セットアップ
1.Indy50.dpkを開いてポップアップのオプション-情報の
　パッケージの種類を「設計時のみ使用可能」にする。
2.で、インストールを押す。
3.次にdclIndy50.dpkを開いてインストールを押す。
　以上
Del4,Del6(!),BCB4,BCB5も同じ手順と思われ。

専用掲示板ばかり書き込んでいても、こっちがさびれてる風
になりそうだから、アゲ

http://www.geocities.co.jp/SiliconValley-Oakland/9028/

とりあえずアプリの構造が決まったのでageてみる。
UIが変だけど、暫定的なものだから気にしないよ〜に。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/ShortCuts20010320.zip

次はダウンロード部分をHotzonuに替えるつもり。

モナプロラもexeアプしたいですが、
してもいいっすか？

つーか、exeないと評価でけへん

まだ、βというにも早いかもしれませんが、
モナプローラexeアプしました。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010321exe.lzh
バイト数がデカすぎ！書記さんごめんよ。

>>612　どーでもよいが、
cathe→cacheだと思う

ｵﾚも前々からおかしいと思っていたんだよ。(藁

わざとかと思ってた

直しましたよ。ごめんなさい。
リリースはまた今度。

monaplorerのexe,
すばらしい技術革新によりExeのファイルサイズが
なんと！1/7の大きさになりました(USO800にモトズク当社比

つづり間違いなおしとかもしたけど、殆ど何も変わってないかな。
cathe>>cache
たぶに板名を表示するコードは前から入ってたっけ？

という事でアプです。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010322exe.lzh

>>609
Shortcutsは重要度の下がったWindow
(例えばスレを選択した直後のスレ一覧とか)
が自動的に隅へ移動or後ろに隠れて、
重要度の高いWindow(選択したスレ)が
前面に出てくるというのが賢いね。

それにしてもSDIでもMDIでもない変な画面が面白い。
どうやってるんだろ？
http://www.geocities.co.jp/SiliconValley-Oakland/9028/screenshots/shortcuts01.gif

今後に期待age。

>>618
ソース見てびっくりしたよ。すごい！
UIは暫定的なものらしいけど、十分すごいよね、
今後はウィンドウがドッカブルになるらしい。

>今後はウィンドウがドッカブルになるらしい。
ドッカブルは状況に応じて自分で
入れ替えたりしないといけないから、
今のほうが使いやすいと思うな。
個人的にはこっちを追求してもらいたい。

名づけて「インテリフォーム」(藁

>>618
FormのParentをFormにしてるとこうなるのかな。

このあたりのコードみるとわかりますね。
procedure TfrmMain.FormShow(Sender: TObject);
begin
　　IncludeForm(tabsheetBoards, frmBoards);
　　IncludeForm(tabsheetThreads,　　frmThreads);
　　IncludeForm(tabsheetFavorites, frmFavorites);
//　IncludeForm(tabsheetHistory, frmHistory);
//　IncludeForm(tabsheetOption, frmOption);
　　IncludeForm(panelRight, frmResponses);

　　IncludeForm(tabsheetSearchFile, frmSearchFile);
　　IncludeForm(tabsheetWrite, frmWrite);
　　IncludeForm(tabsheetOutput, frmOutput);
　　IncludeForm(tabsheetRound, frmRound);
end;

procedure TFormEx.IncludeForm(ParentControl, ChildControl: TWinControl);
begin
　　ChildControl.Parent := ParentControl;
　　ChildControl.Align := alClient;
　　ChildControl.Visible := True;
　　if ChildControl is TForm then
　　　　with TForm(ChildControl) do
　　　　　　if Assigned(OnActivate) then OnActivate(ChildControl);
end;

不思議なコーディング&UIだ。>Shortcuts
ｵﾚとは全然ちがうなあ
インストしやすいように
HistoryEdit、Inifilerを含めたパッケージ付属キボーン。
ツールバー＆ショートカットカスタマイズまで実装とは驚いた。

面白い。Form内にForm入れてるんすね。
Delphi5のFrameみたいな感覚なんすかね。

こうすりゃスクロールボックスの中に出来て偽MDIが実現できるよ。
ドッキングはよーわからんけど。
　A := TForm1.Create(Self);
　A.Parent := ScrollBox1;
　A.Show;

そんなコードまでkylixって移植できるのだろうか。

ま、あと、数日すりゃベータが届くから分かるね。>>624
ホットゾヌ Indy 版が動くかどうかも心配、
Kylixが出ればLinux用２ちゃんブラウザも増えるだろうね。

Hotzonuアプ
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hotzonu0324.lzh
Indyユニットはポストできるようにしました。
WinInetはまだ。よーわからんです。。。

ホットゾヌ・『ブラウザ』　あぷ

とりあえず板やスレの一通りの読み込み、
レス書き込み、（新規書き込みは無し）
お気に入り追加、各種検索などつけてます。
今回はソースのみですがもうちょっとしたらEXEもアプします。

http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hzb0326.lzh

あ、言い忘れ。
俺のお気に入りファイルと書き込みテンプレートが
ついてくるけど気にしないでね。

しつこいようですが ＊ブラウザ＊ なので、
興味あるかたはテストお願いします。
＃巡回はできません。

menubarが見つからないって怒られるんだけど
どこで手に入れるの？

つーか、ソースとexeは一緒に配布してもらえるとありがたいです。

言い忘れました。 Del;phi 4 + IE4 + Indy でした。
Indy部分はは外して WinInet にすることも出来ます。
やりかたはちょっと待ってね。
TMenuBarは Boarland.com でダウンロードできます。
http://www.borland.com/devsupport/delphi/download_files/menubar.zip

↑IE4じゃなくて IE3でした。 今時 IE3環境で動きます。

test

ソースｱﾌﾟ前にメモリークのバグ適当に
つぶそうと思って甘くみてたら
すごうい混乱した。メモリリーク怖いね。除くのに肩こった。

ということで、例外やメモリリークは出ない事を祈りつつ....
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010327exe.lzh
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010327.lzh
D5Proで動くです。TWebBrowserつかってるから
learningは使えないのかな。残念。TUIWebBrowserあたりで
代用してくれい。

更新履歴はこんなで。

01/03/23 Reload機能をつけた
＆ａｍｐを＆に置き換えるようにした。
01/03/27 Browser部分が2chのスレッドによって自動スクロール動作するようになった
Stop機能がついた
スレ表示部分の＆ｌｔ；、＆ｇｔ；を＜＞にするようにした。

ではまた明日っつことで。

書記さんは忙しいのでしょうか。やっぱし年度末だしね。

ソースを整理＆表示のカスタマイズをできるようにしてみた。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/ShortCuts20010328.png
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/ShortCuts20010328.zip

次はレスフィルタをつける予定。Hotzonu対応はもうちょっと先になりそう。

そろそろかちゅ〜しゃもVerupするみたいですね。

改めてかちゅは完成度高いなあと関心ですわ。

ホットゾヌブラウザあぷ
EXEも含めました。
変更点は特に無いです。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hzb0329.lzh

アプしたよ。ほとんど何も変わってないけど。
Exe,
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010330exe.lzh
ソース
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monaplorer010330.lzh

Formの位置保存復帰を実装
ツールボタンの位置を上だけにした。

次回からソース梱包にしておきます。

えっと、下がりまくっているのでage

質問なのですが、うちの会社環境ではFTPがつかえません。
でも、monazilla_studioでアプすることは出来ます。
これはなぜでしょうか？

あと、ここでする質問じゃ無いけど
かちゅーしゃはdat/xxxxx.datを読むのではなくて
直接
http://piza.2ch.net/test/read.cgi?bbs=tech&key=981726544
を取得していないかな。

これだと、更新は正しくなっていいかんじだが
read.cgiの負荷がでかいような気がする。

みんなはどっちでやってるの？

＞６４１
かちゅの旧版はread.cgiを読んでたが、新版はdatを直読みしてる。

＞６４０
火壁では？PASVモードにしても駄目？

>>642
サンキスト！(´３｀)チュウ
dat読むと更新されないページが山ほどあるが
ユーザーの人々はそれを許容できるかな。

現にこのmonazillaスレのdatもまだまだ更新されていない。
不便だ。

日壁なんだろうけど、詳しい事はハテナ。
PASVモードってのは？？。

知識が歯抜けでスマソ。

＞６４３
一般的なFirewallは、内から外への接続のみを許可して
逆は許さない事が多い。
FTPの一般的なDataConnectionは、外から内への接続に
なるんで、上記の理由からFirewallに弾かれる。
FTPのPASV Modeは、内から外にDataConnectionを張る
んで、Firewallを回避出来る場合もある。
---
2chブラウザは、ともかく＜オイ！
ＩＥコンポーネントの使い方とかDelphiスレの質問とか参考
になってるんで、実は感謝＆注目してるよん&hearts;
普段ROMってて申し訳ないけど（＾＿＾；

>>644
どもども。ＦＴＰはやっぱよくわかんないっすわ。
ちょっぴり記憶にとどめておきますね。

ところでmonazillaサイトでDaxさんがkylixでmonazillaのGUI
作ってみたそうです。

かっこよすぎてKylixマンセーなので、こっちにもURLを載せますわ。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monazillax.jpg

WinInetを単純にラップした TMonaInetをアプしました。
まだポスートの部分は出来てないよー。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/monawin0401.lzh

Kylixモナヂラ、ぜひつくりたいね、

usesの
SHDocVw_TLB
ってのはどこにあるのでしょうか？

TLBって付いてるからタイプライブラリ取り込みじゃないの？
Microsoft internet Controls (Vresion ?.?)だと思う。

ホットゾヌブラウザで
SHDocVw_TLB は必要ないようなのですが、ソースに書いているのは
余分かな？

>>649
D4ではSHDocVwが標準でつかないのでSHDocVw_TLB使ってます。
uses節に

{$IFDEF VER120}
SHDocVw_TLB, //DELPHI 4 用
{$ELSE}
SHDocVw, //DELPHI 5 用
{$ENDIF}

こう書くといいのかな。Main.pasだけこうしてたような。

ホットゾヌ・ブラウザ最終試作版あぷしたよ。（スプラッシュつけたぐらい）
http://www.geocities.co.jp/SiliconValley-Oakland/9028/src/hzb0404.lzh

それから機能一覧もつくったよ。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/document/hotzonu/hzb010.htm

>>645
ここにいらっしゃる方は情報通ですから、既にご存じであろうとは思いますが、
Windows VCL で使われている ICS/Internet Component Suite の Kylix 版があります。

http://codecentral.borland.com/codecentral/ccweb.exe/listing?id=15603

>>651
おお！ICSって言ったらギコナビが使ってるコンポですね。
Kylix版、あったんだ。
とにかく Kylixはもっとコンポを充実させてほしいね。

ｵﾚはここ数日忙しくて慌てふためいていたのだけど。。

みなさん、どーっすか、最近は
ｵﾌｶｲとかどうなったっすか？

プログラム板のカキコが調子ﾜﾙｶｯﾀので
おもむろにかちゅーしゃ２を導入しました。
かっこいいですね。

モナヂラオフの話はどなったんでしょかー。
とりあえず turbo type Dさん幹事っつーことで。
あ、おれは出られそうにない、、（泣
プログラム板 (Pizaサーバー) はスクリプト変更があったみたいです。
ヒロユキ＠ギコナビ氏によると Refererを設定すれば書き込めるそうです。

> モナヂラオフの話はどなったんでしょかー。
どーなったか、ｵﾚが聞いたのに、(TｗT)ﾙ〜ﾙﾙ〜

> とりあえず turbo type Dさん幹事っつーことで。

そーなんｯｯｯ！（ﾟｗﾟ;;;
Kylixオフや2chプログラマ板オフに便乗しようかと
おもっていたのですが....
それすら出られなさそうな状況なんすけど>>ｵﾚ。

んー。来週明けまで何もかもが忙しいので、
なんともうごけません。

プログラマ板オフが21日(土)らしいので便乗する？
monazillaな人が誰かいくなら、ｵﾚも参加考えます。
(まだ考えるだけだけどね。(藁)

sage

お待ちしております。

モナヂラスレに書き込んでも書き込まれないと思ってたら、
この板はpizaだったのね。
>>655
忙しくなってきたです。
オフが連休後だったらなー。
ていうか、無気力を直す薬ないですか？

この何も考えずに工場で流れ作業をやるような
腐れ仕事をなんとかしてほしい。助けて...

ホットゾヌ・ブラウザ試作品 for Linux
まだ配布できないけど。。
http://www.geocities.co.jp/SiliconValley-Oakland/9028/document/hotzonu/hotzonu_linux.htm

>>660
おおお。Kylixですか！
ScreenShot見た限り、Delphiのアプリを移植しやすそうですねー。
＃ とはいいつつも、unixくささ(？)が残っててちょっと残念

[2ch批判要望板] ■■bbs.ini仕様草案
http://teri.2ch.net/test/read.cgi?bbs=accuse&key=987232546