Remove From My Forums

请问VB.NET中正确使用HttpSendRequestEx的方法？

问题
0

登录进行投票

我先是定义API参数为：

    Private Declare Function HttpSendRequestEx Lib "wininet.dll" Alias "HttpSendRequestExA" ( _
    ByVal hRequest As Long, _
    ByVal lpBuffersIn As Long, _
    ByVal lpBuffersOut As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long

结果不知道如何取得lpBuffersIn的地址。

所以改为：

Private Declare Function HttpSendRequestEx Lib "wininet.dll" Alias "HttpSendRequestExA" ( _
    ByVal hRequest As Long, _
    ByVal lpBuffersIn As INTERNET_BUFFERS, _
    ByVal lpBuffersOut As Long, _
    ByVal dwFlags As Long, _
    ByVal dwContext As Long) As Long

INTERNET_BUFFERS为structure

调用

HttpSendRequestEx(open request获得的handle, 变量, 0&, 0&, 0&)

运行返回false，lastdllerr=87，应该是参数错误吧？

想询问这个API正确的调用方式是什么？谢谢

2012年1月4日 3:07

回复

|

引用

答案

0

登录进行投票
首先请这样定义这个API：

<DllImport("wininet.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _ Public Shared Function HttpSendRequest(hRequest As IntPtr, lpszHeaders As IntPtr, _ dwHeadersLength As UInteger, lpOptional As IntPtr, dwOptionalLength As UInteger) As Boolean End Function

其次，请用这个方法取地址：http://msdn.microsoft.com/zh-cn/library/system.runtime.interopservices.marshal.structuretoptr(v=VS.100).aspx

谢谢.
Mike Feng
MSDN Community Support | Feedback to us
Please remember to mark the replies as answers if they help and unmark them if they provide no help.
- 已标记为答案 Mike FengModerator 2012年1月13日 15:38
2012年1月5日 12:39

回复

|

引用

版主