ab.com コミュニティ

server.domainの部分は実際にはYahoo等で実験しています。
上で書いたコードの元になっているＣＤ－ＲＯＭに入っていた
コードでも同様のエラーが発生します。
サンプルの方も私が抜き出した方もいずれも
プロジェクトオプションは正しく設定してあります。
サンプルをリリースコンパイルして実行すると何故かメールが送信できました。

どうしてデバッグで例外が出るのでしょう？
もしかしてWinsockを利用するに当たって
停止させるとまずいサービスとか相性の悪いソフトとかがあるのでしょうか？
それともDLLファイルか何かがおかしいという可能性もあるのでしょうか？

下にある、
http://www.discoversoft.net/forum/viewtopic.php?t=29&sid=db9d418a030def9438036a5dc1b9397d
この記事を参考にしてみてください。
サーバが無いなら、この記事中の私の作ったツールで実験してみてください。

私の環境ではちゃんと動作しましたよ。
"server.domain" の部分を現実に存在するサーバー名に変えてみてはいかがですか？

Win32API: WSAStartupの説明に

※プロジェクト内でこの関数を使用するときは、プロジェクトオプション（メニュー「表示」→「プロジェクトオプション」）の「ソケットAPIを使用する」にチェックを入れて下さい。

と書いてあったんですがこれはOKですか？

Sub SendMailThread()
    Dim buffer[255] As Byte
    Dim szServerName[255] As Byte      'Server名
   lstrcat(szServerName,"server.domain")

    'WinSock Ver1.1の初期化
    Dim wsaData As WSADATA          'ソケットの初期化情報
    WSAStartup(MAKEWORD(1,1),wsaData)

    'Serverを探す
    Dim lpHost As *HOSTENT          'ホスト情報
    lpHost=gethostbyname(szServerName)

ABOUG 6-5のプログラムコードを元に
WinSockの使い方を勉強しているのですが、
CD-ROMにあったサンプルがデバッグ実行でさせると
必ず例外処理エラーが発生してしまいます。
以下がそのコードの一部です。
サンプルの中のGUIに関する部分を取り除いたものです。

何故かgethostbynameを実行すると例外処理になります。
また、WSAStartupはエラーを出していません。
あと、wsaData.szDescriptionの値が「WinSock 2.0」になっていたので
一応MAKEWORD(2,0)にしてみましたがダメでした。
ちなみにWin2000SP4上のAB4.01で実行しています。

[code]Sub SendMailThread()
Dim buffer[255] As Byte
Dim szServerName[255] As Byte 'Server名
lstrcat(szServerName,"server.domain")

'WinSock Ver1.1の初期化
Dim wsaData As WSADATA 'ソケットの初期化情報
WSAStartup(MAKEWORD(1,1),wsaData)

'Serverを探す
Dim lpHost As *HOSTENT 'ホスト情報
lpHost=gethostbyname(szServerName)[/code]