monazilla

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

3 ：デフォルトの名無しさん ：2001/02/10(土) 00:46: オープンソースなのに、ソースはまだ無い。
つーか誰も一行も記述してない！
4 ：デフォルトの名無しさん ：2001/02/10(土) 00:49: 企画倒れsage
つーかいまさらそんなもんが必要か？しかも２ちゃんねる専用？
5 ：デフォルトの名無しさん ：2001/02/10(土) 00:53: >>4
つくることそのものが目的です。
6 ：デフォルトの名無しさん ：2001/02/10(土) 01:21: 作るんだったらふつーのGeckoブラウザきぼん
K-meleon対抗で
7 ：デフォルトの名無しさん ：2001/02/10(土) 01:30: なんか予想通りの展開だな。
誰かがベースになるコードを一通り組んじゃわないと
先に進まないよ。
8 ：デフォルトの名無しさん ：2001/02/10(土) 01:34: ベース。

int main(int argc,char* argv[]){
　return 0;
}
9 ：デフォルトの名無しさん ：2001/02/10(土) 01:36: おれがメインを書いてやる

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

＃誰かがmain()の型を突っ込んでくれますよーに・・・
10 ：8 ：2001/02/10(土) 01:38: もろかぶったな。
11 ：9 ：2001/02/10(土) 01:48: そうだね。。へへへ　＞8
じゃ定義文。

#define　　MSG_MONA　　　"お前モナー"
12 ：デフォルトの名無しさん ：2001/02/10(土) 01:48: 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();
　}
}
13 ：デフォルトの名無しさん ：2001/02/10(土) 03:05: 今更Javaかよ。
14 ：デフォルトの名無しさん ：2001/02/10(土) 07:00: mozillaより重そう…
15 ：デフォルトの名無しさん ：2001/02/10(土) 08:12: >>12
>>14
Java ブラウザーのJazillaって知ってます？
16 ：デフォルトの名無しさん ：2001/02/10(土) 08:30: とりあえ、だれかmozillaのソース持ってきてよ。
それをちょこちょこ弄るだけで終わりしよ。
17 ：14 ：2001/02/10(土) 08:35: >>15
知ってました(藁
18 ：デフォルトの名無しさん ：2001/02/10(土) 14:02: 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();
}
}
}

}
19 ：turbo type D ：2001/02/10(土) 15:01: あいよ、Indyインストしてまっててな。
20 ：デフォルトの名無しさん ：2001/02/10(土) 21:30: ギコナビが HTTPにどのコンポ使ったかおせーてほしーな。
ソケット直かな？NMは使ってないみたいだけど。
21 ：デフォルトの名無しさん ：2001/02/10(土) 22:56: 面倒だからWininetでもいいんじゃん？
22 ：デフォルトの名無しさん ：2001/02/10(土) 22:58: http://msdn.microsoft.com/workshop/networking/wininet/wininet.asp
ここ参照ね。
23 ：デフォルトの名無しさん ：2001/02/10(土) 23:02: 板一覧の取得方法って
http://www.2ch.net/bbsmenu.html
を解析すればいいの？
24 ：デフォルトの名無しさん ：2001/02/10(土) 23:15: ・・・なんか、VC++の奴らが混ざってねえか？(w

VCLでオープンソースな。
Borland以外の奴は他すれでやってくれ。
25 ：デフォルトの名無しさん ：2001/02/10(土) 23:26: 単に、Delphiの人達やる気ないんじゃない？
26 ：デフォルトの名無しさん ：2001/02/11(日) 00:02: 言語はなんでもいいと思うんだけどね。。
27 ：デフォルトの名無しさん ：2001/02/11(日) 02:09: >>20
ギコナビ＠ヒロユキです。
ギコナビはHTTPCLIっていうのを使ってます。
なかなか高性能ですよ。

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

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

それじゃ、みなさん、がんばってください。
僕も仕事が暇になったら、参加させてもらいます。
28 ：デフォルトの名無しさん ：2001/02/11(日) 02:46: とりあえずこれを実装してまえ

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

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

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

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

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

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

// ダウンローダ
T2chDownloader = class(T2chObject)
private
　FQueue: TObjectQueue; // スタックのがいいかも??
public
　property Online: Boolean;
　property CacheDirectory: String; // ローカルキャッシュ
　procedure Request(Target: T2chObject);
　procedure Cancel(Target: T2chObject);
end;
29 ：幸運の国 ：2001/02/11(日) 03:08: 開発言語はなんでしょうか。とりあえず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);
30 ：幸運の国 ：2001/02/11(日) 03:09: //ここら辺はオフボード落として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;
31 ：幸運の国 ：2001/02/11(日) 03:10: 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;
}
32 ：幸運の国 ：2001/02/11(日) 03:12: タブが消えてしまいましたが、、わかねーぞボケって部分があったら説明します。
33 ：デフォルトの名無しさん ：2001/02/11(日) 03:19: CreateFileでネットワーク越しのhtmのソース（やバイナリファイル）開けちゃうの？
34 ：デフォルトの名無しさん ：2001/02/11(日) 04:44: 開けます。>>33
35 ：デフォルトの名無しさん ：2001/02/11(日) 12:03: 2chのCGIの詳細な仕様が欲しいんですけど、
どっから手に入ります？
36 ：デフォルトの名無しさん ：2001/02/11(日) 12:49: >>34
ダウンロードに関してはCreateFile, ReadFileだけで十分ってことかな？
そうするとDelphiのHTTP系コンポを使う意味あるの？
37 ：デフォルトの名無しさん ：2001/02/11(日) 14:04: >>27ギコナビ＠ヒロユキ、こんにちは

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

ギコナビ自体おおよそ基本部分が出来るまで
どのくらいかかっているんでしょう？
38 ：turbo type D ：2001/02/11(日) 14:46: >>31-32
わかりにくいぞボケ..
いや、失敬。

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

program nbsp;

uses
  SysUtils,
  Clipbrd;

{$R *.RES}

var
  S: String;
begin
  S := Clipboard.AsText;
  S := StringReplace(S, ' ', ' ', [rfReplaceAll]);
  S := StringReplace(S, #9, '    ', [rfReplaceAll]);
  Clipboard.AsText := S;
end.
39 ：幸運の国 ：2001/02/11(日) 17:11: >>38 そこははじかれたんで＾＾；
ドル猫様の使わせていただきました。
http://green.nttec.com/tech/read.cgi?KEY=981878874
今回のはローカルにファイルが置いてなくてもそのまま作れます。
でも腐ってるので改良お願いします。
ちなみにブラウザ最大化しないとずれるから見にくいっす。
40 ：幸運の国 ：2001/02/11(日) 17:40: http://green.nttec.com/tech/read.cgi?KEY=981880639
ゴミが混じってたんでデバッグしました。
41 ：デフォルトの名無しさん ：2001/02/11(日) 18:58: http://salad.2ch.net/bbstable.html得られるでリンク先から.datを得るのは
どうやってやるの？
42 ：幸運の国 ：2001/02/11(日) 20:01: 例えばこのスレッドならhttp://piza.2ch.net/tech/dat/981726544.dat
ここからDLすればいいです。実は私も以前にオフラインビューワ作ろうとしたんですが、
スキルの無さと、他の皆さんが次々に公開された事で断念しました。
あんまり力になれないかもしれませんが知ってる事があれば出来る限り協力します。
43 ：デフォルトの名無しさん ：2001/02/11(日) 20:15: >>35　http://tako.2ch.net/test/read.cgi?bbs=perl&key=978059673
44 ：35 ：2001/02/11(日) 20:29: >>43
う～ん、直接2chの仕様ってわけではないのか。
でも、だいぶ分かってきたぞ。

ポイントはこれか？
http://piza.2ch.net/tech/index2.html
http://piza.2ch.net/tech/subject.txt
http://piza.2ch.net/tech/dat/981726544.dat
45 ：デフォルトの名無しさん ：2001/02/11(日) 20:55: なーんだ、ギコBASICで開発じゃないのか・・・。
46 ：デフォルトの名無しさん ：2001/02/12(月) 00:02: >>1
↑とかをマウスポインタをあてると、その部分がHintで表示されるけど、
それってどうやってやるのか、教えて下さい。キボンヌ。
47 ：デフォルトの名無しさん ：2001/02/12(月) 00:18: >>129
「どうやって」って具体的に「何が」が分からないのですが、
ギコナビはTHintWindowを使っています。
ポイントされたら、
１、ポイントされたURLをパース。
２、ログを検索。
３、存在したら指定行を取り出す。存在しなかったら終了。
４、取り出したログの行をパース。
５、THintWindowのインスタンスを生成し、表示する文字列やらを設定。
６、表示
これだけ。
48 ：デフォルトの名無しさん ：2001/02/12(月) 00:38: 一番最初のポイントされたURLをパースってのがわからんです。
それ以外は、分かるんですが…。
49 ：デフォルトの名無しさん ：2001/02/12(月) 00:47: >>131
Delphiでいいのかな？
TWebBrowserのOnStatusTextChangeでポイントされたURLがとれるでしょ？
・・・read.cgi?bbs=tech&key=nnnn&st=nn&to=nn
こんな感じで取得出来るよね。
んで、文字列がURLだったら、あとは、？と＆でバラバラにして
ｂｂｓとｋｅｙとｓｔとｔｏの左側を取ればログの場所は判断できるでしょ。
本当は、ポイントされた場所の文字列（>>nn）を取得して判断したほうが
スマートだと思うけど、これやるには面倒そうな感じ。
フリーのTWebBrowser拡張版みたいなコンポなら簡単に出来るかも。
そっちのほうは、ギコナビでは使ってないので分かりません。
50 ：デフォルトの名無しさん ：2001/02/12(月) 00:49: ごめん。ギコナビがバグっていて、レス番号が㌧でもない数字になってた。
51 ：デフォルトの名無しさん ：2001/02/12(月) 00:55: >TWebBrowserのOnStatusTextChangeでポイントされたURLがとれるでしょ？

これを知らなんだ。これで、全部わかったです。ありがとー。
オレもブラウザ作るかな。
52 ：デフォルトの名無しさん ：2001/02/12(月) 02:24: どうせならIE使わずにってのは、無理？
.DATを直に拾ってくるなら問題ないよね。
53 ：デフォルトの名無しさん ：2001/02/12(月) 02:26: >>52
表示が面倒だよ？
54 ：デフォルトの名無しさん ：2001/02/12(月) 07:07: 俺もそう思う
55 ：turbo type D ：2001/02/12(月) 16:25: >>52
ハイパーリンクがあるからこそ
使いやすいな。

IE使わないならAirWebの2chプラグインというのもある。
56 ：デフォルトの名無しさん ：2001/02/12(月) 18:21: アスキーアートが崩れると
誰にも評価されないソフトと化す
57 ：デフォルトの名無しさん ：2001/02/12(月) 18:28: 今日、帰りにDelphi買ってきた。
プログラミング言語って高いな。
58 ：デフォルトの名無しさん ：2001/02/12(月) 19:32: いくらで買った？
59 ：デフォルトの名無しさん ：2001/02/12(月) 19:57: >>58
一番安いヤツ。
一万六千円くらいの。
あーでももう挫折の予感。
60 ：デフォルトの名無しさん ：2001/02/12(月) 20:28: 本棚にでも飾っとけ>59
61 ：59 ：2001/02/12(月) 20:31: こういうのに触れると、ソフトウェア作者の凄さが痛いほどわかるな。
HelloWorld！万歳！あああああ！
何か本買ってくれば良かった。
62 ：59 ：2001/02/12(月) 20:37: こんなでかいの本棚はいんねえよ。>>60
なんだこの説明書の厚さ。バーカ！Delphiのバーカ！
みなさんこんなのどうやって勉強されたんですか
帰り道のあのワクワクが嘘みたいだ
63 ：turbo type D ：2001/02/12(月) 20:44: 説明書なんて誰もみない。バカかおまえ？
初心者用の書籍探してそれで勉強しろ。

あと、ネットで2chじゃない所を利用しまくって己を磨け。
http://www.valley.ne.jp/~masaiku/index1.htm
64 ：turbo type D ：2001/02/12(月) 20:46: だいたい、モナジラスレで関係ない話題ふるな。
VB厨房と違ってDelphi使いならエレガントに学習しなさい。
65 ：デフォルトの名無しさん ：2001/02/12(月) 20:49: >>63
あんがと。とりあえず本買うわ。
66 ：ヒロユキ＠ギコナビ ：2001/02/13(火) 00:41: なんだよー。全然進まないね。ｷﾀｲｼﾃｲﾙﾉﾆ。
turbo type Dﾀﾝが進める役したら？
すごくスキルありそうだし。
67 ：デフォルトの名無しさん ：2001/02/13(火) 02:35: ギコナナビとかと違いを出すために誰かMindでやってみるってのは
68 ：turbo type D ：2001/02/13(火) 12:33: スキルねーよ。＞ヒロユキ(w

とりあえず、TUIWebは導入したばかりで
俺はIndyでやるよ。
D6も見据えながら。
69 ：デフォルトの名無しさん ：2001/02/13(火) 13:58: ソース表示をすれば、タブ数はわかるるる
70 ：turbo type D ：2001/02/13(火) 17:51: IndyでHTTPをダウンロードするのはどうするんですか？
71 ：turbo type D ：2001/02/13(火) 18:16: Demo見たらわかった。。。。。
今後はボロカスに言われたらやだから
質問するときはコテハンヤメテおこ。
72 ：turbo type D@monazilla ：2001/02/13(火) 18:51: >>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でガイシュツだ。
73 ：デフォルトの名無しさん ：2001/02/13(火) 18:54: >>72
dat ファイルは単なる CSV なので、
HTML のタグをつけてやらなきゃいけない。
74 ：デフォルトの名無しさん ：2001/02/13(火) 20:39: とりあえずジオにディスク12MBとりました。
URL
http://www.geocities.co.jp/SiliconValley-Oakland/9028/
ID : monazilla
PW : mona
75 ：turbo type D@monazilla ：2001/02/13(火) 20:42: トクトクの方がいいかもよ。
容量無制限だしー。CGI可だし。

とりあえず、IndyとUIWebBrowserはインストしておいてヨシって
ことでいいですか～？
76 ：turbo type D@monazilla ：2001/02/13(火) 20:49: で、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;
77 ：turbo type D@monazilla ：2001/02/13(火) 20:50: TUIWebBrowser/TWebBrowserでHTMLファイルを作らなくても
ブラウザ表示させる方法はどうやるんだけ？

>>ご教授きぼーん。
78 ：デフォルトの名無しさん ：2001/02/13(火) 22:01: >>74
ﾜﾗﾜｶｼﾃﾓﾗﾀ
79 ：デフォルトの名無しさん ：2001/02/13(火) 22:28: Indyのコンポどこー？
80 ：turbo type D@monazilla ：2001/02/13(火) 22:35: 見てなかったから気が付かなかったけど、
>>74
>turbo type D's page
つのはやめてくれよ。

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

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

kylixにもDelphi6にも搭載される予定のネット関係コンポ
Indyのリンクきぼーんよ。
http://www.nevrona.com/Indy/
81 ：デフォルトの名無しさん ：2001/02/13(火) 22:40: あ、やっぱまずかった？>>80
名前だけ消しときます。
82 ：81 ：2001/02/13(火) 22:41: 勘違いでちた！>>80
83 ：ヒロユキ＠ギコナビ ：2001/02/13(火) 23:18: >>80
分かっていると思うけど、
・Indy は Server Edition 以上につく
だそうです。Kilixの話ね。
Kilix-MLからの情報です。
84 ：デフォルトの名無しさん ：2001/02/13(火) 23:24: Server Editionだとホビープログラマはつらいですね。>>83
にしても話が進まないので分析/設計とプロトタイプ開発を
同時に進めるようなやり方で行きましょうか？
85 ：デフォルトの名無しさん ：2001/02/13(火) 23:29: >>77
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
HtmlView: DispHTMLDocument;
begin
s := '<html><body>てすと</body></html>';
HtmlView := WebBrowser_V11.Document as DispHTMLDocument;
if HtmlView <> nil then HtmlView.body.innerHTML := s
end;

じゃダメ？　ただし、いちどNavigateかGoHomeなどしておく必要アリ。理由不明。
86 ：デフォルトの名無しさん ：2001/02/13(火) 23:29: プロトタイプってのは
技術的なプロトタイプね。
たとえばスレ一覧を取るだけのものとか。
87 ：ヒロユキ＠ギコナビ ：2001/02/14(水) 00:23: >>85
var
v: OleVariant;
begin
v := 0;
WebBrowser1.Navigate('about:blank', v);
end;
これを最初にやるのはダメかな？

>>84 >>86
76でスレ一覧を取れたも同然じゃん。
とりあえず、骨組みとなるクラスを考えましょう。
>>28にあったように、あのクラスを元にして、決まったら一気に実装。
88 ：turbo type D@monazilla ：2001/02/14(水) 09:51: >>レス、サンクス
今から調べる。

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

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

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

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

他に代替案があったらご意見よろしく。
89 ：turbo type D@monazilla ：2001/02/14(水) 09:58: 関係無いけど
コードにはAAを嫌になるほどいれたい。(藁

Delphi自体のフォントをPゴシックに出来ないのは残念。
90 ：turbo type D@monazilla ：2001/02/14(水) 10:02: 追加。データ保存はIniファイルでやる。

本当はマルチユーザ対応などレジストリでやるのが楽でいいんだが
コアなユーザーはIni好きだから。
91 ：デフォルトの名無しさん ：2001/02/14(水) 10:19: >>88
そこまで考えてくれるとありがてぇ
92 ：turbo type D@monazilla ：2001/02/14(水) 10:48: >>83
Indyは付属してなくてもDowlLoadすればいい話じゃないか？
HELPファイルなんかはServer版しか日本語化されないだろうけど。
MLで聞いてみてよ。俺ROMってるから(藁
93 ：turbo type D@monazilla ：2001/02/14(水) 12:07: Board一覧データの取得方法考えました。

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

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

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

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

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

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

BoardItemCount := CategoryDataの中ノ<Aと</A>の数を数える→一致しなければエラー
for i=0 to BoardItemCount-1 do
begin
  BoardItemDataStart := CategoryDataから<A HREF=を検索
  BoardItemDataEnd := CategoryDataから</A>を検索
  BoardItemData := CategoryDataのBoardItemDataStartからBoardItemDataEndまで
  CategoryDataからBoarItemDataは削除
  BoardItemDataは<A...>...</A>という文字列になっているので解析して
    リンク先とタイトルを取得する。
end;
94 ：デフォルトの名無しさん ：2001/02/14(水) 13:20: >>85
IEコンポは作成直後はHTMLDocumentがnilになってるからね。
innerHTML、outerHTMLを設定するんじゃなくてHTMLDocumentに
writeすれば問題ない。けど、フォントが変になったような気がする。
かちゅーしゃはHTMLにフォント設定を埋め込むことでこれを回避してるようだ。
>>87
(少なくともVC++/MFCでは)Navigateが非同期動作になるので、一旦Navigate
して、NavigateComplateかDocumentCompleteのイベントをトリガにする
必要がある。
まぁ、about:blankに飛ぶぐらいはすぐだろうから、WebBrowserのステータス
でループさせて終了を待ってもいいけどね。

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

このような、ネットワークアプリは非同期処理との戦いになると思う。
95 ：turbo type D@monazilla ：2001/02/14(水) 13:23: >>85 >>87
スマソ、追加で教えてキボーン
DispHTMLDocumentやWebBrowser_V11って何？
96 ：turbo type D@monazilla ：2001/02/14(水) 13:28: >>94厳しいな(TДT
浮津堕コーディングしよう。
97 ：turbo type D@monazilla ：2001/02/14(水) 13:50: >>93を考えていて >>28のクラスを再度確認してみた
T2chObjectっておかしくないか？
すべての基底クラスにダウソ開始/終了
なんていらないと思うのだが、
特にT2chResponseがT2chObjectから継承する
必要はないんじゃないか？

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

スレのダウンロードから
レス一つ一つのダウンロードメソッドを呼ぶ方がいいのか？
98 ：デフォルトの名無しさん ：2001/02/14(水) 14:29: 俺もBCB4で似たようなの作ってるんだけどさ、
(勉強目的だから、VCLはUI以外は極力使わないようにしてるけど)
WebBrowserでNavigate2したときの表示がどうなってるかイマイチわからん。

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

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

パイプでも使ってるのか、それともparent(IHTMLWindow2)に何かあるのか。
つーか、手元に資料が全然無くて、すげー苦労なんだけど。
MSHTML_TLB.hは15MBもあるし・・・
99 ：turbo type D@monazilla ：2001/02/14(水) 14:41: >>98
俺、まだNavigateとNavigate2の違いもわからん。
教えてくらさい。

98の話からすると、とりあえずファイルに書き出してから
読み込んだ方がいいって事か？
100 ：turbo type D@monazilla ：2001/02/14(水) 14:43: 違いはURLにPIDLが使えるか否かだね。
で、PIDLって何だ？（ｗ
101 ：94 ：2001/02/14(水) 15:10: >>96
似たようなアプリを書いた経験からだよ。

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

>>99、>>100
PIDLじゃないと「マイコンピュータ」にNavigateすることができないね。
102 ：98 ：2001/02/14(水) 15:29: >101　遅さについて
いや、いろいろ試したんだ。
parse等の時間を全部無視して
50レスにしたり、100レスにしたり200にしたり、全部一括にしたり。
でも、やっぱりProcessMessages時だけ「表示」が遅いんだ。
(ちなみに、Sleep等も試したけど、表示されなかった・・・)
いや、俺のマシンが遅いのも原因だし、
「気にならない程度の遅さ」と言われれば、その通りなんだけど。

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

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

317KB

新着レスの表示

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

0ch BBS 2004-10-30