もっと!REALbasic
■ このスレッドは過去ログ倉庫に格納されています
0370359
02/05/18 14:39ID:4R4d2N9J明日は土曜日だし徹夜しちゃうぞ!と思いつつ寝てしまいました。
>>360
PowerMacG4cube/450 Memory 1,536MB
OS X Version 10.1.4
REALbasic Version4.0.2aj PROFESSIONAL EDITION
プラグインは使っていなくて、Pluginsフォルダには何も入っていません。
とりあえず、chr(10)で区切ってaddrowして試しているのですが、こんな感じです。
Window:socketBufferメソッド
Sub socketBuffer(inBuffer as string)
SBuffer = SBuffer + inBuffer
if inStr(SBuffer,"</html>") <> 0 then
addRow SBuffer
end if
End Sub
Window:addRowメソッド
Sub addRow(inData as string)
dim i,j as integer
dim data as string
j = countFields(inData,chr(10))
for i = 1 to j
data = nthField(inData,chr(10),i)
if inStr(data,"<title>") <> 0 then
TabPanel1.Caption(0) = mid(data,inStr(data,"<title>")+7,inStr(data,"</title>")-(inStr(data,"<title>")+7))
end if
ListBox1.addRow data
next
End Sub
>>361
DataAvailableでreadallして引数で渡すのを複数回繰り返すと
Socketのバッファ(2048byte?)の最後のほうの"http://~"が次のバッファに跨ってしまいました。
>>362
>>364
どうやらListBoxにaddrowする前にsocketBafferメソッドで考え込んでしまうみたいです。
addRowメソッドの最初にListBox.visible = falseと入れてみたのですが暫くたってからListBoxが消えます。
ビルドする際には何もでませんでした。
どうしたらいいのやら、知恵熱がでそうです…。
■ このスレッドは過去ログ倉庫に格納されています