SQLの窓

2010年06月22日


VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバー( TcpListener )

最新版はこちらです
VB.net : クライアントが送ったヘッダを表示するだけの HTTPサーバーU

クライアントからサーバーへ送られる送られる生データを確認
したかったので作成しました。コマンドブロンプトなので、CTRL+C で
強制終了しますが、ブラウザから http://127.0.0.1:50000/quit で正式に
終了します
ブラウザでダウンロード
Imports System.Net
Imports System.Net.Sockets
Imports System.Text
Imports System.Diagnostics
Imports System.Threading

Module MyModule

' ********************************************************
' 
' ********************************************************
Sub Main()

	' スレッド開始   
	Dim ThreadServer As New Thread(AddressOf ThreadEntry)
	ThreadServer.Start() 
	ThreadServer.Join()
	Console.WriteLine("処理は終了しました")

End Sub

Sub ThreadEntry()   

	Dim server As TcpListener = Nothing
	Dim header As String = _
		"HTTP/1.1 200 OK" + ControlChars.CrLf + ControlChars.CrLf + "response:OK"
	Try
		' 50000 番ポート使用
		Dim port As Int32 = 50000
		' ローカル
		Dim localAddr As IPAddress = IPAddress.Parse("127.0.0.1")

		' サーバーのインスタンスを作成
		server = New TcpListener(localAddr, port)
		' サーバー開始
		server.Start()

		' 読み込みバッファ
		Dim bytes(1024) As Byte
		' コマンドワーク
		Dim data As String = Nothing
		Dim bEnd As Boolean = False

		Do While True  

			' 接続待ち
			Console.WriteLine("Waiting ... ")

			' 待機( 接続されると次の行へ )
			Dim client As TcpClient = server.AcceptTcpClient()
			' 受信したので処理開始
			Console.WriteLine("Connected")
			Console.WriteLine("-----------------------------")

			data = ""  

			' 受信用ストリーム   
			Dim stream As NetworkStream = client.GetStream()   

			Dim i As Integer
			Dim cd As Integer = 0

			' **************************************************
			' ストリームからデータを取得( 初回 )
			' bytes : 1024
			' **************************************************
			i = stream.Read(bytes, 0, bytes.Length)

			Do While i <> 0
	
				' 最大1024バイトの処理
				cd = 0
				For idx As Integer = 0 To i - 1
	
					' Windows 改行の1バイト目
					If bytes(idx) = &HD Then
						' 改行数
						cd += 1
					End If
	
					' 改行後の最初
					If cd = 0 Then
						data += _
						 Encoding.ASCII.GetString(bytes, idx, 1)
					End If
	
					' Windows 改行の2バイト目
					If bytes(idx) = &HA And cd = 1 Then

						' 改行区切りでコマンドを取得
						Console.WriteLine("{0}", data)

						Dim Command As String() = data.Split(" ")
						If Command(0) = "GET" Then  
								data = Command(1).Substring(1)
						end if

						' quit で終了
						If data = "quit" Then
							bEnd = True
						End If
	
						' 行単位の処理の為の初期化
						cd = 0
						data = ""
					End If
				Next

				' 受信ヘッダ完了
				If data = "" Then  
					' OK を返す   
					Dim msg As Byte() = _   
					 Encoding.GetEncoding(932).GetBytes( _   
					 header)   
					stream.Write(msg, 0, msg.Length)   
					Exit Do  
				End If  
				' 残っているデータをストリームから取得
				i = stream.Read(bytes, 0, bytes.Length)
	
			Loop

			' 処理終了で接続解除してサービス終了
			client.Close()

			' quit で終了
			If bEnd Then
				Exit Do
			End If

		Loop

	Catch ex As SocketException
		Console.WriteLine("SocketException: {0}", ex)
	Finally
		server.Stop()
	End Try

End Sub

End Module



posted by lightbox at 2010-06-22 00:36 | VB.NET : 通信 | このブログの読者になる | 更新情報をチェックする

2010年06月21日


Python3.1 : URLを読み出して、バイナリのままファイル出力する

このサンプルでは、キャラクタセットの処理の一つとして使用していますが、
ファイルのダウンロードに使用します
0005.py ( utf8n )
#! /usr/bin/env python3.1

import urllib.request
import http.cookiejar

# Cookie handling for HTTP clients
# python312.chm::/library/http.cookiejar.html
cj = http.cookiejar.MozillaCookieJar()
opener = urllib.request.build_opener(
			urllib.request.HTTPCookieProcessor( cj )
		 )

# 最初の呼び出し
# ※ cookiejar を設定した opener で読みだす
try:
	print( "このヘッダーが送られます :" , opener.addheaders, end="\n\n" )
	response = opener.open("http://localhost/web/test/sv1.php")

# URL 関係のエラー処理
except urllib.error.URLError as e:
	print(e)
	exit()
# 一般のエラー処理
except Exception as e:
	print(e)
	exit()

# サーバーからの http ヘッダ
print( response.info() )

# バイナリとしての HTML ページを取得
html = response.read()

# html の キャラクタセット に合わせて decode して
# 文字列として取り込む
html_shift_jis = html.decode("shift_jis")

# そのまま、コマンドプロンプトへ出力
print( "-------------------------------------------------" )
print( html_shift_jis )
print( "-------------------------------------------------" )

# キャラクタセットを変換して出力
# ※ テキストのみ
print( html_shift_jis, file=open("html_shift_jis.txt","wt") )
print( html_shift_jis, file=open("html_euc_jp.txt","wt", encoding="euc_jp") )
# utf8n で出力されました
print( html_shift_jis, file=open("html_utf_8.txt","wt", encoding="utf_8") )

# バイナリの表示
print( "-------------------------------------------------" )
print( html )
print( "-------------------------------------------------" )

# バイナリのまま保存
# ※ キャラクタセットが解らない場合のファイル化
html_org = open("html_org.txt", mode='wb') 
html_org.write( html )

# クッキーを保存
# ※ cj.load( "ファイルのパス" ) が可能です
cj.save( "cookie_100621.sav", ignore_discard=True, ignore_expires=True )
Python3.1 マニュアル
The Python Standard Library ≫ 20. Internet Protocols and Support
20.22.2. FileCookieJar subclasses and co-operation with web browsers

The Python Standard Library ≫ 7. String Services ≫
7.6.3. Standard Encodings


posted by lightbox at 2010-06-21 16:08 | Python | このブログの読者になる | 更新情報をチェックする

Chrome5 でローカルファイルを開くと Frameへ の target が使えなくなっていますので

--allow-file-access-from-files という引数を使います

Flex の SDK や Java の SDK をローカルで表示するのに使っています。
ですから、ショートカットを以下のように変更します
"C:\Documents and Settings\lightbox\Local Settings\Application Data\Google\Chrome\Application\chrome.exe"  --allow-file-access-from-files "C:\user\doc\flex3jp_documentation\langref\index.html"
参考

Google Chrome 公式ヘルプフォーラム


タグ:トラブル
posted by lightbox at 2010-06-21 13:23 | 記録 | このブログの読者になる | 更新情報をチェックする

2010年06月20日


Python3.1 : クッキーを保持して二つの URL にアクセスする

保存されるクッキーの形式は、「関連する記事」の、PHP でテストした cURL が保存する
形式とほぼ同じでした

▼ Python3.1
------------------------------------------------------------------------------------
    # Netscape HTTP Cookie File
    # http://www.netscape.com/newsref/std/cookie_spec.html
    # This is a generated file!  Do not edit.

localhost.local	FALSE	/web/test	FALSE		data	1234
localhost.local	FALSE	/web/test	FALSE		lightbox	winofsql

▼ PHP の cURL
------------------------------------------------------------------------------------
# Netscape HTTP Cookie File
# http://curl.haxx.se/rfc/cookie_spec.html
# This file was generated by libcurl! Edit at your own risk.

localhost	FALSE	/web/test/	FALSE	0	data	1234
localhost	FALSE	/web/test/	FALSE	0	lightbox	winofsql
------------------------------------------------------------------------------------

urllib.request.build_opener には、複数のハンドラを設定できます。
必要に応じて追加していく形になります( BASIC 認証や プロキシ等 )

HTTP ヘッダーの追加は、マニュアルにこっそり書かれていますが、
User-Agent: Python-urllib/3.1 は常にセットされるらしく、追加は
append メソッドで行います

関連する記事

VBScript/PHP クッキーデータが自動的に受け渡しされる事のテスト
VB.net : HttpWebRequest と HttpWebResponse でクッキーのやり取り
Python3.1 : mixi ボイスへ投稿
0004.py ( utf8n )
#! /usr/bin/env python3.1

import urllib.request
import http.cookiejar

# **********************************************************
# Cookie handling for HTTP clients
# python312.chm::/library/http.cookiejar.html
# **********************************************************
cj = http.cookiejar.MozillaCookieJar()
opener = urllib.request.build_opener(
			urllib.request.HTTPCookieProcessor( cj )
		 )

# **********************************************************
# 最初の呼び出し
# ※ cookiejar を設定した opener で読みだす
# **********************************************************
try:
	response = opener.open("http://localhost/web/test/sv1.php")
except urllib.error.URLError as e:
	print(e)
	exit()

html = response.read()

# **********************************************************
# サーバーからの http ヘッダ
# **********************************************************
print( response.info() )

# **********************************************************
# 内容
# **********************************************************
print( html.decode() )



# **********************************************************
# 2回目の呼び出し
# ※ cookiejar を設定した opener で読みだす
# ※ ヘッダーの追加は、opener.addheaders
# **********************************************************
opener = urllib.request.build_opener(
			urllib.request.HTTPCookieProcessor( cj )
		 )
try:
	opener.addheaders.append(('test-header', 'Python3.1'))
	response = opener.open("http://localhost/web/test/sv2.php")
except urllib.error.URLError as e:
	print(e)
	exit()

html = response.read()

# **********************************************************
# サーバーからの http ヘッダ
# **********************************************************
print( response.info() )

# **********************************************************
# 内容
# **********************************************************
print( html.decode() )

# **********************************************************
# クッキーを保存
# ※ cj.load( "ファイルのパス" ) が可能です
# **********************************************************
cj.save( "cookie_100620.sav", ignore_discard=True, ignore_expires=True )




posted by lightbox at 2010-06-20 19:34 | Python | このブログの読者になる | 更新情報をチェックする

Python3.1 : URLを読み出してファイルに出力

注意するのは、キャラクタセットの指定です。

※ Windows では、指定しない場合は SHIFT_JIS で出力されます
0003.py ( utf8n )
#! /usr/bin/env python3.1

import urllib.request

# **********************************************************
# ※ エラーをファイルに出力しています
# ※ file=object は、object に write メソッドが必要です
# ※ python312.chm::/library/functions.html#open
#
# ※ SSL が有効です
# **********************************************************
try:
	response = urllib.request.urlopen('https://mixi.jp/')
except urllib.error.URLError as e:
	print(e,file=open("error.log","at"))
	exit()

html = response.read()

# サーバーからの http ヘッダ
print( response.info() )

# **********************************************************
# ※ ログイン前のページをファイルに出力しています
# 
# ※ python312.chm::/library/codecs.html#standard-encodings
# ※ euc_jp | eucjp, ujis, u-jis 
# ※ mixi は、EUC-JP です
#
# ※ 出力される mixi_home.txt は、SHIFT_JIS になります
# **********************************************************
print( html.decode("euc_jp"),file=open("mixi_home_sjis.txt","wt") )

# **********************************************************
# そのまま EUC-JP で出力
# **********************************************************
print(
	html.decode("euc_jp"),
	file=open(
		"mixi_home_ujis.txt",
		"wt",
		encoding="euc_jp"
	)
)

関連する記事

Python3.1 : URL を読み出す( bytes から string )


タグ:Python
posted by lightbox at 2010-06-20 18:46 | Python | このブログの読者になる | 更新情報をチェックする

2010年06月17日


VB.net : Win32API 呼び出し : GetWindowsDirectory

StringBuilder 側からメモリの拡張は容易ですが、GetWindowsDirectory に
引き渡す長さ以上の文字列が戻って来る場合は異常終了します
Imports System.Runtime.InteropServices	' DllImport

Module MyModule

' UINT GetWindowsDirectory(
'   LPTSTR lpBuffer,  // Windows ディレクトリが格納されるバッファ
'   UINT uSize        // ディレクトリバッファのサイズ
' );

<DllImport("Kernel32.dll", CharSet:=CharSet.Unicode)> _
Private Function GetWindowsDirectory( _
  ByVal lpBuffer As System.Text.StringBuilder, _
  ByVal uSize As System.UInt32 _
) As System.UInt32
End Function

Sub Main()

	' C:\WINDOWS を取得します

	Dim lpBuffer As System.Text.StringBuilder = New System.Text.StringBuilder(128)
	Dim uRet As System.UInt32

	uRet = GetWindowsDirectory( lpBuffer, 128 )

	' uRet は 10 です
	Console.WriteLine( uRet )
	Console.WriteLine( lpBuffer )

	' Length プロパティで切り捨てられて C:\WIN になります
	lpBuffer.Length = 6
	Console.WriteLine( lpBuffer )

End Sub

End Module

関連する Microsoft ドキュメント

文字列に対する既定のマーシャリング
値型に対する既定のマーシャリング


タグ:Win32API
posted by lightbox at 2010-06-17 20:22 | VB.NET : テクニカル | このブログの読者になる | 更新情報をチェックする
Seesaa の各ページの表示について
Seesaa の 記事がたまに全く表示されない場合があります。その場合は、設定> 詳細設定> ブログ設定 で 最新の情報に更新の『実行ボタン』で記事やアーカイブが最新にビルドされます。

Seesaa のページで、アーカイブとタグページは要注意です。タグページはコンテンツが全く無い状態になりますし、アーカイブページも歯抜けページはコンテンツが存在しないのにページが表示されてしまいます。

また、カテゴリページもそういう意味では完全ではありません。『カテゴリID-番号』というフォーマットで表示されるページですが、実際存在するより大きな番号でも表示されてしまいます。

※ インデックスページのみ、実際の記事数を超えたページを指定しても最後のページが表示されるようです

対処としては、このようなヘルプ的な情報を固定でページの最後に表示するようにするといいでしょう。具体的には、メインの記事コンテンツの下に『自由形式』を追加し、アーカイブとカテゴリページでのみ表示するように設定し、コンテンツを用意するといいと思います。


※ エキスパートモードで表示しています

アーカイブとカテゴリページはこのように簡単に設定できますが、タグページは HTML 設定を直接変更して、以下の『タグページでのみ表示される内容』の記述方法で設定する必要があります

<% if:page_name eq 'archive' -%>
アーカイブページでのみ表示される内容
<% /if %>

<% if:page_name eq 'category' -%>
カテゴリページでのみ表示される内容
<% /if %>

<% if:page_name eq 'tag' -%>
タグページでのみ表示される内容
<% /if %>
この記述は、以下の場所で使用します
container 終わり



フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり