草庐IT

windows - wininet API 的 P/Invoke 机制

coder 2024-06-20 原文

我正在使用 wininet api 将 HTTP POST 发送到 SSL 服务器。我想使用 P/Invoke 将这些 api 包装到 C#,因为 C# 中的原始代码。我如何将这些 api 包装到 c#。我试过了,但没有用。我正在为 Windows Mobile 和智能手机做这个。

LPCTSTR lpszAgent = _T("CeHttp");
DWORD dwError; 
DWORD sizeInResult, sizeOutResult, sizeToWrite, sizeWritten,dwRead;
HINTERNET hInternet=NULL; 
HINTERNET hConnect=NULL;
HINTERNET hRequest=NULL;
LPDWORD pSizeInResult = &sizeInResult;

LPDWORD pSizeOutResult = &sizeOutResult;
LPDWORD pSizeToWrite = &sizeToWrite;
LPDWORD pSizeWritten = &sizeWritten;

 hInternet=InternetOpen(lpszAgent,INTERNET_OPEN_TYPE_PRECONFIG,NULL,INTERNET_INVALID_PORT_NUMBER,0);
    if(!hInternet)
 {

  dwError = GetLastError();

 }

 LPCTSTR lpszServerName = _T("mundusync");
 INTERNET_PORT nServerPort =444;
 LPCTSTR lpszUserName = L"";
 LPCTSTR lpszPassword = L"";
 DWORD dwConnectFlags =  0;
 DWORD dwConnectContext = 0;
 DWORD dwCode = NULL;
 DWORD dwSize = 8000;
 char charBuffer[1000];
 TCHAR szBuffer[1000];


 int read = 0;
 char* str = "*/*", buff[1024] = {};



 hConnect = InternetConnect(hInternet,L"s-syncml.geodesic.net",
           nServerPort,
           L"",
           L"",
           INTERNET_SERVICE_HTTP,
           0,
           0);




  if(! hConnect)
  {


   dwError = GetLastError();

  }


 LPCWSTR lpszVerb = _T("POST");
 LPCWSTR lpszObject = L"/";
 LPCWSTR lpszVersion = NULL;
 LPCWSTR lpszReferer = NULL;
 LPCWSTR *lplpszAcceptTypes = NULL;

 DWORD dwFlags = INTERNET_FLAG_SECURE |
           INTERNET_FLAG_IGNORE_CERT_CN_INVALID|
          INTERNET_FLAG_IGNORE_CERT_DATE_INVALID;

 DWORD dwOpenRequestContext = 0;

 hRequest=HttpOpenRequest(hConnect,L"POST",L"/",HTTP_VERSION,L"",lplpszAcceptTypes,dwFlags,dwOpenRequestContext);


 if(!hRequest )

 {

  dwError = GetLastError();

 }




 char lpPostData[637] ="<SyncML> some post data </SyncML>";

 LPCWSTR lpszHeaders =_T("Content-Type: application/vnd.xyz+xml");
 BOOL bResult;
 if(!HttpSendRequest(hRequest,lpszHeaders,wcslen(lpszHeaders),lpPostData,strlen(lpPostData)))
 {

  dwError = GetLastError();

 }

 if (!(InternetQueryDataAvailable (hRequest, pSizeInResult, 0, 0)))
    {
      //wsprintf (dwError, TEXT("%s: %x"), TEXT("InternetQueryDataAvailableError"), GetLastError());
      return;
      //WriteFile (hFile, szErrMsg, sizeToWrite, pSizeWritten, NULL);
      //goto error;
    }

if (sizeInResult >= 1024)
    {
      int num = sizeInResult / 1024;

      do
      {
        //InternetReadFile (hRequest, lpBuffer, 1024, pSizeOutResult);
          // WriteFile (hFile, lpBuffer, sizeOutResult, pSizeWritten, NULL);
      }
      while (--num > 0);
    }
    else
    {
      //InternetReadFile (hRequest, lpBuffer, sizeInResult, pSizeOutResult);
        // WriteFile (hFile, lpBuffer, sizeOutResult, pSizeWritten, NULL);

     do
       {
       // read from Internet HTTP server
       if(InternetReadFile(hRequest, charBuffer,
          1000, &dwRead))
       {
          // convert to Unicode and display
       charBuffer[dwRead] = '\0';
       mbstowcs(szBuffer, charBuffer, dwRead); 
       //cout « szBuffer;
       szBuffer[dwRead] = '\0';
       }


       } while(dwRead > 0);

    }

 if(!hInternet)
 InternetCloseHandle(hInternet);
 if(!hConnect)
 InternetCloseHandle(hConnect);
 if(!hRequest)
 InternetCloseHandle(hRequest);

最佳答案

你应该检查 P/Invoke website .它们列出了众所周知的 DLL 的所有 P/Invoke 定义,尤其是“wininet”。您还可以找到示例代码。

关于windows - wininet API 的 P/Invoke 机制,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/1872733/

有关windows - wininet API 的 P/Invoke 机制的更多相关文章

  1. ruby - 在 Ruby 程序执行时阻止 Windows 7 PC 进入休眠状态 - 2

    我需要在客户计算机上运行Ruby应用程序。通常需要几天才能完成(复制大备份文件)。问题是如果启用sleep,它会中断应用程序。否则,计算机将持续运行数周,直到我下次访问为止。有什么方法可以防止执行期间休眠并让Windows在执行后休眠吗?欢迎任何疯狂的想法;-) 最佳答案 Here建议使用SetThreadExecutionStateWinAPI函数,使应用程序能够通知系统它正在使用中,从而防止系统在应用程序运行时进入休眠状态或关闭显示。像这样的东西:require'Win32API'ES_AWAYMODE_REQUIRED=0x0

  2. ruby - 在 Windows 机器上使用 Ruby 进行开发是否会适得其反? - 2

    这似乎非常适得其反,因为太多的gem会在window上破裂。我一直在处理很多mysql和ruby​​-mysqlgem问题(gem本身发生段错误,一个名为UnixSocket的类显然在Windows机器上不能正常工作,等等)。我只是在浪费时间吗?我应该转向不同的脚本语言吗? 最佳答案 我在Windows上使用Ruby的经验很少,但是当我开始使用Ruby时,我是在Windows上,我的总体印象是它不是Windows原生系统。因此,在主要使用Windows多年之后,开始使用Ruby促使我切换回原来的系统Unix,这次是Linux。Rub

  3. Vscode+Cmake配置并运行opencv环境(Windows和Ubuntu大同小异) - 2

    之前在培训新生的时候,windows环境下配置opencv环境一直教的都是网上主流的vsstudio配置属性表,但是这个似乎对新生来说难度略高(虽然个人觉得完全是他们自己的问题),加之暑假之后对cmake实在是爱不释手,且这样配置确实十分简单(其实都不需要配置),故斗胆妄言vscode下配置CV之法。其实极为简单,图比较多所以很长。如果你看此文还配不好,你应该思考一下是不是自己的问题。闲话少说,直接开始。0.CMkae简介有的人到大二了都不知道cmake是什么,我不说是谁。CMake是一个开源免费并且跨平台的构建工具,可以用简单的语句来描述所有平台的编译过程。它能够根据当前所在平台输出对应的m

  4. 深度学习部署:Windows安装pycocotools报错解决方法 - 2

    深度学习部署:Windows安装pycocotools报错解决方法1.pycocotools库的简介2.pycocotools安装的坑3.解决办法更多Ai资讯:公主号AiCharm本系列是作者在跑一些深度学习实例时,遇到的各种各样的问题及解决办法,希望能够帮助到大家。ERROR:Commanderroredoutwithexitstatus1:'D:\Anaconda3\python.exe'-u-c'importsys,setuptools,tokenize;sys.argv[0]='"'"'C:\\Users\\46653\\AppData\\Local\\Temp\\pip-instal

  5. ruby - 如何在 Ruby 中执行 Windows CLI 命令? - 2

    我在目录“C:\DocumentsandSettings\test.exe”中有一个文件,但是当我用单引号编写命令时`C:\DocumentsandSettings\test.exe(我无法在此框中显示),用于在Ruby中执行命令,我无法这样做,我收到的错误是找不到文件或目录。我尝试用“//”和“\”替换“\”,但似乎没有任何效果。我也使用过系统、IO.popen和exec命令,但所有的努力都是徒劳的。exec命令还使程序退出,这是我不想发生的。提前致谢。 最佳答案 反引号环境就像双引号,所以反斜杠用于转义。此外,Ruby会将空格解

  6. ruby - 错误 : Failed to build gem native extension on Windows - 2

    我在安装“redcarpet”gem时遇到以下错误。它在我friend的机器上安装没有问题。(我想安装它来运行yard)ruby版本:1.9.3命令输出:D:\Learning\Common_POM_FW\SampleProjects>yard[error]:Missing'redcarpet'gemforMarkdownformatting.Installitwith`geminstallredcarpet`D:\Learning\Common_POM_FW\SampleProjects>geminstallredcarpetTemporarilyenhancingPATHtoinc

  7. ruby - 从 Ruby 连接到适用于 Windows Phone 8 的 Microsoft 推送通知服务 - 2

    我们正在开发一个需要推送通知的WP8应用程序。为了测试它,我们使用CURL命令行运行推送通知POST请求,确保它实际连接,使用客户端SSL证书进行身份验证并发送正确的数据。我们确实知道,当我们收到对设备的推送时,这项工作是有效的。这是我们一直用于测试目的的CURL命令:curl--certclient_cert.pem-v-H"Content-Type:text/xml"-H"X-WindowsPhone-Target:Toast"-H"X-NotificationClass:2"-XPOST-d"MytitleMysubtitle"https://db3.notify.live.ne

  8. ruby - 在 Windows 7 上运行 Jekyll - 2

    我在Windows7上运行Jekyll时遇到问题。当我运行时jekyll出现以下错误C:\temp\jekyll\kouphax.github.com>jekyllConfigurationfromC:/temp/jekyll/kouphax.github.com/_config.ymlBuildingsite:C:/temp/jekyll/kouphax.github.com->C:/temp/jekyll/kouphax.github.com/_siteunit-testingYouaremissingalibraryrequiredforTextile.Pleaserun:$[s

  9. ruby - 尝试在 Windows 8 (x64) : Error installing fast-stemmer-1. 0.2.gem 上安装 Jekyll - 2

    我正在尝试使用本手册让Jekyll在Windows8x64上运行:RunningJekyllonWindows我正在使用来自rubyinstaller.org的以下两个下载:ruby2.0.0-p0(x64)DevKit-mingw64-64-4.7.2-20130224-1432-sfx.exe所以我根据手册设置了Ruby和DevKit(希望它是更新的版本)。我尝试运行一点HelloWorld.rb脚本,它工作正常,路径变量已设置。然后我尝试运行geminstalljekyll并得到以下输出:geminstalljekyll-outputonpastebin.com问题似乎出在名为f

  10. ruby - 通过 ruby​​2.0.0 在 Windows 上安装 iconv 时出错 - 2

    在Windows上通过ruby​​2.0.0安装iconv时出错通过ruby​​2.0.0在Windows上安装iconv时出错我正在尝试安装iconv,但是当我运行以下命令时:geminstalliconv我的结果:TemporarilyenhancingPathtoincludeDevKit...Buildingnativeextensions.Thiscouldtakeawhile...Error:Errorinstallingiconv:ERROR:Failedtobuildgemnativeextension.C:/Ruby/Ruby200/bin/ruby.exe-r./s

随机推荐