L_InetHttpConnect

#include "ltweb.h"

L_LTWEB_API L_INT L_InetHttpConnect(pszServer, iPort, pszUserName, pszPassword, pHttp)

L_TCHAR *pszServer;

/* name of server to connect to */

L_INT iPort;

/* port number to connect to */

L_TCHAR *pszUserName;

/* username for authentication */

L_TCHAR *pszPassword;

/* password for authentication */

pHINET pHttp;

/* address of the variable to be updated */

Connects to an HTTP server.

Parameter

Description

pszServer

Character string that contains the name of the server to which to connect. The name can be a network name, an IP address, or a domain name (www.leadtools.com).

iPort

Number of the port to which to connect. The default port assignment for Internet servers is 80.

pszUserName

Character string containing the username to be used for authentication.

pszPassword

Character string containing the password to be used for authentication.

pHttp

Address of the variable to be updated with the http connection.

Returns

SUCCESS

The function was successful.

< 1

An error occurred. Refer to Return Codes.

Comments

Use this function to establish a connection with an HTTP Server. To connect anonymously pass NULL for pszUserName and pszPassword.

Required DLLs and Libraries

LTWEB

For a listing of the exact DLLs and Libraries needed, based on the toolkit version, refer to Files To Be Included With Your Application

See Also

Functions:

L_InetHttpDisconnect, L_InetHttpCloseRequest

Topics:

HTTP Functions: HTTP Connections

 

Working with HTTP Functions

Example

Here is a sample form.asp that can be used with this sample.

 L_INT InetHttpConnectExample(L_VOID)
{
   HINET hInet;
   L_INT nRet;
   NAMEVALUE nv[2];
   DWORD dwSizeWrite;

   nRet = L_InetHttpConnect(TEXT("www.leadtools.com"),80,TEXT(""),TEXT(""),&hInet);
   if(nRet==SUCCESS)
   {
      nRet = L_InetHttpOpenRequest(hInet,HTTP_POST,TEXT("/form.asp"),TEXT(""),TEXT("HTTP/1.0"),0);
      if(nRet==SUCCESS)
      {
         L_TCHAR szResponse[2048];
         L_UINT32 lsize;
         L_UINT uStatus;
         HANDLE fp;

         nv[0].pszName = TEXT("email");
         nv[0].pszValue = TEXT("myemail@somewhere.com");
         nv[1].pszName = TEXT("name");
         nv[1].pszValue = TEXT("First Last");
    
         nRet=L_InetHttpSendForm(hInet,nv,2); 
         if(nRet!=SUCCESS)
         {
            MessageBox(NULL, TEXT("Error Sending Form"), TEXT("Error"),MB_ICONEXCLAMATION);
            nRet = L_InetHttpCloseRequest(hInet);
            if(nRet != SUCCESS)
               return nRet;
            nRet = L_InetHttpDisconnect(hInet);
            if(nRet != SUCCESS)
               return nRet;
            return nRet;
         }

         nRet = L_InetHttpGetServerStatus(hInet,&uStatus);
         if(nRet != SUCCESS)
            return nRet;
         if(uStatus==L_HTTP_STATUS_OK)
         {
            lsize = 2048;
            nRet = L_InetHttpGetResponse(hInet,(L_CHAR *)szResponse,&lsize);
            if(nRet != SUCCESS)
               return nRet;
           
            fp =CreateFile(TEXT("output.htm"), GENERIC_WRITE, 0, NULL, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
    
            while(lsize!=0)
            {
               WriteFile(fp,szResponse, lsize, &dwSizeWrite, NULL); 
               lsize = 1048;
               nRet = L_InetHttpGetResponse (hInet,(L_CHAR *)szResponse,&lsize);
               if(nRet != SUCCESS)
                  return nRet;
            }
            CloseHandle(fp);
         }
         else
            MessageBox(NULL,TEXT("Problem With Server"), TEXT("Error"),MB_ICONEXCLAMATION);
         nRet = L_InetHttpCloseRequest(hInet); 
         if(nRet != SUCCESS)
            return nRet;
      }
      else
         return nRet;
      nRet = L_InetHttpDisconnect(hInet);
      if(nRet != SUCCESS)
         return nRet;
   }
   else 
      return nRet;
   return SUCCESS;
}

/*
Here is a sample form.asp that can be used with this sample.
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<BODY>
<table>
<tr>
<td>Email:</td>
<td><% Response.Write Request("Email")%></td>
</tr>
<tr>
<td>Name:</td>
<td><% Response.Write Request("Name")%></td>
</tr>
</table>
</BODY>
<HTML>
*/