Если вы здесь, то, следовательно, желание использовать Интернет для своих приложений имеется. Осталось выяснить, как это желание реализовать.

Поскольку VFP не имеет в своем арсенале функций для прямой работы с Интернет, то, стало быть, потребуются какие-то прочие поставщики информации и управления. И в первую очередь это Windows API функции из набора Wininet. Windows Internet (WinINet) API позволяет приложениям взаимодействовать с протоколами Gopher, FTP и HTTP для доступа к ресурсам Internet. Какие конкретно функции вы должны использовать, зависит от поставленной задачи, но порядок их вызова также важен. Об этом чуть позже.

Кроме функций WinINet для работы понадобятся функция некоторые функции ядра Kernel32, декларации которых также приведены в первой таблице, а их описание в соответствующей статье, куда вы сможете перейти по ссылке, щелкнув по имени функции.

В последущих таблицах перечислены основные функции WinInet, которые потребуются для создания приложений, работающих с ресурсами Internet. Щелчок по имени функции перебросит вас к странице с ее описанием.

Declare Integer GetLastError In Kernel32

Declare Integer FileTimeToSystemTime In Kernel32 ;
   String @lpcBuffer, String @lpcBuffer

Declare Integer InternetAttemptConnect In WinInet ;
   Integer dwReserved

Declare Integer InternetCheckConnection In wininet ;
   STRING  lpszUrl,;
   INTEGER nFlags,;
   INTEGER dwReserved

Declare Integer InternetOpen In WinInet ;
   String @lpcAgent, ;
   Integer nAccessType, ;
   String @lpcProxyName, ;
   String @lpcProxyBypass, ;
   Integer nFlags

Declare Integer InternetConnect In WinInet ;
   Integer nInet_Handle, ;
   String @lpcServer, ;
   Short nPort, ;
   String @lpcUserName, ;
   String @lpcPassword, ;
   Integer nService, ;
   Integer nFlags, ;
   Integer nContext

Declare Integer InternetGetConnectedState In WinInet ;
   Integer @nContext, 
   Integer nFlags

Declare Integer InternetCloseHandle In WinInet ;
   Integer nConnect_Handle

Declare Integer InternetGetLastResponseInfo In WinInet ;
   Integer @nError, ;
   String @lpcBuffer, ;
   Integer @nMax_Path

Declare Integer InternetDial In WinInet ;
   Integer nHandle, ;
   String @lpcDialUp, ;
   Integer nAccessType, ;
   Integer @nConnect_Handle, ;
   Integer nFlags

Declare Integer InternetHangUp In WinInet ;
   Integer nConnect_Handle, ;
   Integer nFlags

Declare Integer InternetAutodial In WinInet ;
   Integer nAccessType, ;
   Integer nHandle

Declare Integer InternetAutodialHangup In WinInet ;
   Integer nFlags

Declare Integer InternetGoOnline In WinInet ;
   String @lpcURL, ;
   Integer nHandle, ;
   Integer nFlags

Declare Integer InternetCanonicalizeUrl IN wininet; 
    String lpszUrl,; 
    String @lpszBuffer,; 
    Integer @lpdwBufferLength,; 
    Integer nFlags 

DECLARE INTEGER InternetOpenUrl IN wininet; 
    INTEGER hInternet,; 
    STRING  lpszUrl,; 
    STRING  lpszHeaders,; 
    INTEGER dwHeadersLength,; 
    INTEGER nFlags,; 
    INTEGER nContext 

Declare Integer InternetCrackUrl IN wininet ; 
   String lpszUrl,;
   Integer dwUrlLength,; 
   Integer dwFlags, ;
   String @lpUrlComponents 

Declare Integer InternetCreateUrl  In wininet;
  String lpUrlComponents,;
  Integer dwFlags,;
  String @lpszUrl,;
  Integer @lpdwUrlLength

Declare Integer InternetCombineUrl IN wininet; 
    String lpszBaseUrl,;
    String lpszRelativeUrl
    String @lpszBuffer,; 
    Integer @lpdwBufferLength,; 
    Integer dwFlags 

• FtpCreateDirectory - декларация, описание
• FtpDeleteFile - декларация, описание
• FtpFindFirstFile - декларация, описание
• InternetFindNextFile - декларация, описание
• FtpGetCurrentDirectory - декларация, описание
• FtpGetFile - декларация, описание
• FtpOpenFile - декларация, описание
• FtpPutFile - декларация, описание
• FtpRemoveDirectory - декларация, описание
• FtpRenameFile - декларация, описание
• FtpSetCurrentDirectory - декларация, описание
• InternetGetLastResponseInfo - декларация, описание

* FTP Functions
 
Declare Integer FtpCreateDirectory In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcDirectory
 
Declare Integer FtpDeleteFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcFileName
 
Declare Integer FtpFindFirstFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcSearchStr, ;
   String @lpcWIN32_FIND_DATA, ;
   Integer nFlags, ;
   Integer nContext
 
Declare Integer InternetFindNextFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcWIN32_FIND_DATA
 
Declare Integer FtpGetCurrentDirectory In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcDirectory, ;
   Integer @nMax_Path
 
Declare Integer FtpGetFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcRemoteFile, ;
   String @lpcNewFile, ;
   Integer nFailIfExists, ;
   Integer nAttributes, ;
   Integer nFlags, ;
   Integer nContext
 
Declare Integer FtpOpenFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcRemoteFile, ;
   Integer nAccessType, ;
   Integer nFlags, ;
   Integer nContext
 
Declare Integer FtpPutFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcLocalFile, ;
   String @lpcNewRemoteFile, ;
   Integer nFlags, ;
   Integer nContext
 
Declare Integer FtpRemoveDirectory In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcDirectory
 
Declare Integer FtpRenameFile In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcRemoteFile, ;
   String @lpcNewFile
 
Declare Integer FtpSetCurrentDirectory In WinInet ;
   Integer nConnect_Handle, ;
   String @lpcDirectory
 
Declare Integer InternetGetLastResponseInfo In WinInet ;
   Integer @nError, ;
   String @lpcBuffer, ;
   Integer @nMax_Path