ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 20:40

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年9月10日(日) 17:40 
オフライン

登録日時: 2005年5月31日(火) 09:34
記事: 141
お住まい: 北海道
現在TCPクライアントのクラスを作成しているのですが

クラス定義部
コード:
Class TCPClient

   :
   :

Public
	' ========== サーバーをセットする ==========

	' アドレスを1つずつ指定する場合	
	Function SetServer(nAddr1 As Byte, nAddr2 As Byte, nAddr3 As Byte, nAddr4 As Byte) As Long
		Dim arrAddr[ELM(4)] = [nAddr1, nAddr2, nAddr3, nAddr4] As Byte
		server = This.SetServer(arrAddr, 4)
		SetServer = (server <> NULL)
	End Function

	' ホスト名で指定する場合
	Function SetServer(strHost As *Byte) As Long
		server = gethostbyname(strHost)
		SetServer = (server <> NULL)
	End Function

	' ========== ポートをセットする ==========

	' ポート番号で指定する場合
	Function SetPort(nPort As Word)(strProtocol As *Byte) As Long
		port = getservbyport(htons(nPort) As Long, strProtocol)
		SetPort = (port <> NULL)
	End Function

	' サービス名で指定する場合(例:"http")
	Function SetPort(strService As *Byte)(strProtocol As *Byte) As Long
		port = getservbyname(strService, strProtocol)
		SetPort = (port <> NULL)
	End Function

   :
   :

End Class
実行部
コード:
Dim tcpc As TCPClient

tcpc.SetServer("www.activebasic.com")
tcpc.SetPort("http")
このコードを実行すると、SetServerの方は問題ないのですが、SetPortの方で「オーバーロードを解決できません」というコンパイルエラーが出ます。
AB4.21、4.24、5.00β4のいずれも同様です。

_________________
' ============================================================
' Sinryow Game Home Page - http://www.sinryow.net/
' Sinryow ActiveBasic Center - http://ab.sinryow.net/
' ============================================================


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2006年9月12日(火) 11:14 
オフライン
Site Admin

登録日時: 2005年5月30日(月) 15:08
記事: 535
申し訳ありませんが、引数省略昨日は一般的に利用するには仕様が未熟です。今後改正される可能性がありますので、なるべくご利用を控えられるよう、お願い致します。


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2006年9月16日(土) 21:00 
オフライン

登録日時: 2005年5月31日(火) 09:34
記事: 141
お住まい: 北海道
省略可能な引数を使ったのが理由だったのですか・・・了解です。
オーバーロードで代替します。

_________________
' ============================================================
' Sinryow Game Home Page - http://www.sinryow.net/
' Sinryow ActiveBasic Center - http://ab.sinryow.net/
' ============================================================


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[8人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean