📄 clwininet.pas
字号:
INTERNET_OPTION_VERSION = 40;
{$EXTERNALSYM INTERNET_OPTION_VERSION}
INTERNET_OPTION_USER_AGENT = 41;
{$EXTERNALSYM INTERNET_OPTION_USER_AGENT}
INTERNET_OPTION_END_BROWSER_SESSION = 42;
{$EXTERNALSYM INTERNET_OPTION_END_BROWSER_SESSION}
INTERNET_OPTION_PROXY_USERNAME = 43;
{$EXTERNALSYM INTERNET_OPTION_PROXY_USERNAME}
INTERNET_OPTION_PROXY_PASSWORD = 44;
{$EXTERNALSYM INTERNET_OPTION_PROXY_PASSWORD}
INTERNET_OPTION_CONTEXT_VALUE = 45;
{$EXTERNALSYM INTERNET_OPTION_CONTEXT_VALUE}
INTERNET_OPTION_CONNECT_LIMIT = 46;
{$EXTERNALSYM INTERNET_OPTION_CONNECT_LIMIT}
INTERNET_OPTION_SECURITY_SELECT_CLIENT_CERT = 47;
{$EXTERNALSYM INTERNET_OPTION_SECURITY_SELECT_CLIENT_CERT}
INTERNET_OPTION_POLICY = 48;
{$EXTERNALSYM INTERNET_OPTION_POLICY}
INTERNET_OPTION_DISCONNECTED_TIMEOUT = 49;
{$EXTERNALSYM INTERNET_OPTION_DISCONNECTED_TIMEOUT}
INTERNET_OPTION_CONNECTED_STATE = 50;
{$EXTERNALSYM INTERNET_OPTION_CONNECTED_STATE}
INTERNET_OPTION_IDLE_STATE = 51;
{$EXTERNALSYM INTERNET_OPTION_IDLE_STATE}
INTERNET_OPTION_OFFLINE_SEMANTICS = 52;
{$EXTERNALSYM INTERNET_OPTION_OFFLINE_SEMANTICS}
INTERNET_OPTION_SECONDARY_CACHE_KEY = 53;
{$EXTERNALSYM INTERNET_OPTION_SECONDARY_CACHE_KEY}
INTERNET_OPTION_CALLBACK_FILTER = 54;
{$EXTERNALSYM INTERNET_OPTION_CALLBACK_FILTER}
INTERNET_OPTION_CONNECT_TIME = 55;
{$EXTERNALSYM INTERNET_OPTION_CONNECT_TIME}
INTERNET_OPTION_SEND_THROUGHPUT = 56;
{$EXTERNALSYM INTERNET_OPTION_SEND_THROUGHPUT}
INTERNET_OPTION_RECEIVE_THROUGHPUT = 57;
{$EXTERNALSYM INTERNET_OPTION_RECEIVE_THROUGHPUT}
INTERNET_OPTION_REQUEST_PRIORITY = 58;
{$EXTERNALSYM INTERNET_OPTION_REQUEST_PRIORITY}
INTERNET_OPTION_HTTP_VERSION = 59;
{$EXTERNALSYM INTERNET_OPTION_HTTP_VERSION}
INTERNET_OPTION_RESET_URLCACHE_SESSION = 60;
{$EXTERNALSYM INTERNET_OPTION_RESET_URLCACHE_SESSION}
INTERNET_OPTION_ERROR_MASK = 62;
{$EXTERNALSYM INTERNET_OPTION_ERROR_MASK}
INTERNET_FIRST_OPTION = INTERNET_OPTION_CALLBACK;
{$EXTERNALSYM INTERNET_FIRST_OPTION}
INTERNET_LAST_OPTION = INTERNET_OPTION_PROXY;
{$EXTERNALSYM INTERNET_LAST_OPTION}
{ values for INTERNET_OPTION_PRIORITY }
INTERNET_PRIORITY_FOREGROUND = 1000;
{$EXTERNALSYM INTERNET_PRIORITY_FOREGROUND}
{ handle types }
INTERNET_HANDLE_TYPE_INTERNET = 1;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_INTERNET}
INTERNET_HANDLE_TYPE_CONNECT_FTP = 2;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_CONNECT_FTP}
INTERNET_HANDLE_TYPE_CONNECT_GOPHER = 3;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_CONNECT_GOPHER}
INTERNET_HANDLE_TYPE_CONNECT_HTTP = 4;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_CONNECT_HTTP}
INTERNET_HANDLE_TYPE_FTP_FIND = 5;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_FTP_FIND}
INTERNET_HANDLE_TYPE_FTP_FIND_HTML = 6;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_FTP_FIND_HTML}
INTERNET_HANDLE_TYPE_FTP_FILE = 7;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_FTP_FILE}
INTERNET_HANDLE_TYPE_FTP_FILE_HTML = 8;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_FTP_FILE_HTML}
INTERNET_HANDLE_TYPE_GOPHER_FIND = 9;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_GOPHER_FIND}
INTERNET_HANDLE_TYPE_GOPHER_FIND_HTML = 10;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_GOPHER_FIND_HTML}
INTERNET_HANDLE_TYPE_GOPHER_FILE = 11;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_GOPHER_FILE}
INTERNET_HANDLE_TYPE_GOPHER_FILE_HTML = 12;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_GOPHER_FILE_HTML}
INTERNET_HANDLE_TYPE_HTTP_REQUEST = 13;
{$EXTERNALSYM INTERNET_HANDLE_TYPE_HTTP_REQUEST}
{ values for INTERNET_OPTION_SECURITY_FLAGS }
SECURITY_FLAG_SECURE = $00000001; { can query only }
{$EXTERNALSYM SECURITY_FLAG_SECURE}
SECURITY_FLAG_SSL = $00000002;
{$EXTERNALSYM SECURITY_FLAG_SSL}
SECURITY_FLAG_SSL3 = $00000004;
{$EXTERNALSYM SECURITY_FLAG_SSL3}
SECURITY_FLAG_PCT = $00000008;
{$EXTERNALSYM SECURITY_FLAG_PCT}
SECURITY_FLAG_PCT4 = $00000010;
{$EXTERNALSYM SECURITY_FLAG_PCT4}
SECURITY_FLAG_IETFSSL4 = $00000020;
{$EXTERNALSYM SECURITY_FLAG_IETFSSL4}
SECURITY_FLAG_STRENGTH_WEAK = $10000000;
{$EXTERNALSYM SECURITY_FLAG_STRENGTH_WEAK}
SECURITY_FLAG_STRENGTH_MEDIUM = $40000000;
{$EXTERNALSYM SECURITY_FLAG_STRENGTH_MEDIUM}
SECURITY_FLAG_STRENGTH_STRONG = $20000000;
{$EXTERNALSYM SECURITY_FLAG_STRENGTH_STRONG}
SECURITY_FLAG_40BIT = SECURITY_FLAG_STRENGTH_WEAK;
{$EXTERNALSYM SECURITY_FLAG_40BIT}
SECURITY_FLAG_128BIT = SECURITY_FLAG_STRENGTH_STRONG;
{$EXTERNALSYM SECURITY_FLAG_128BIT}
SECURITY_FLAG_56BIT = SECURITY_FLAG_STRENGTH_MEDIUM;
{$EXTERNALSYM SECURITY_FLAG_56BIT}
SECURITY_FLAG_UNKNOWNBIT = $80000000;
{$EXTERNALSYM SECURITY_FLAG_UNKNOWNBIT}
SECURITY_FLAG_NORMALBITNESS = SECURITY_FLAG_40BIT;
{$EXTERNALSYM SECURITY_FLAG_NORMALBITNESS}
SECURITY_FLAG_IGNORE_REVOCATION = $00000080;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_REVOCATION}
SECURITY_FLAG_IGNORE_UNKNOWN_CA = $00000100;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_UNKNOWN_CA}
SECURITY_FLAG_IGNORE_WRONG_USAGE = $00000200;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_WRONG_USAGE}
SECURITY_FLAG_IGNORE_CERT_CN_INVALID = INTERNET_FLAG_IGNORE_CERT_CN_INVALID;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_CERT_CN_INVALID}
SECURITY_FLAG_IGNORE_CERT_DATE_INVALID = INTERNET_FLAG_IGNORE_CERT_DATE_INVALID;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_CERT_DATE_INVALID}
SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTPS = INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTPS;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTPS}
SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTP = INTERNET_FLAG_IGNORE_REDIRECT_TO_HTTP;
{$EXTERNALSYM SECURITY_FLAG_IGNORE_REDIRECT_TO_HTTP}
function InternetGetLastResponseInfo(var lpdwError: DWORD; lpszBuffer: PChar;
var lpdwBufferLength: DWORD): BOOL; stdcall;
{$EXTERNALSYM InternetGetLastResponseInfo}
type
TclInternetGetLastResponseInfo = function (var lpdwError: DWORD; lpszBuffer: PChar;
var lpdwBufferLength: DWORD): BOOL; stdcall;
(*function InternetGetLastResponseInfoA(var lpdwError: DWORD; lpszBuffer: PAnsiChar;
var lpdwBufferLength: DWORD): BOOL; stdcall;
{$EXTERNALSYM InternetGetLastResponseInfoA}
function InternetGetLastResponseInfoW(var lpdwError: DWORD; lpszBuffer: PWideChar;
var lpdwBufferLength: DWORD): BOOL; stdcall;
{$EXTERNALSYM InternetGetLastResponseInfoW}
*)
{ callback function for InternetSetStatusCallback }
type
INTERNET_STATUS_CALLBACK = TFarProc;
{$EXTERNALSYM INTERNET_STATUS_CALLBACK}
TFNInternetStatusCallback = INTERNET_STATUS_CALLBACK;
PFNInternetStatusCallback = ^TFNInternetStatusCallback;
LPINTERNET_STATUS_CALLBACK = PFNInternetStatusCallback;
{$EXTERNALSYM LPINTERNET_STATUS_CALLBACK}
function InternetSetStatusCallback(hInet: HINTERNET;
lpfnInternetCallback: PFNInternetStatusCallback): PFNInternetStatusCallback; stdcall;
{$EXTERNALSYM InternetSetStatusCallback}
type
TclInternetSetStatusCallback = function(hInet: HINTERNET;
lpfnInternetCallback: PFNInternetStatusCallback): PFNInternetStatusCallback; stdcall;
{ status manifests for Internet status callback }
const
INTERNET_STATUS_RESOLVING_NAME = 10;
{$EXTERNALSYM INTERNET_STATUS_RESOLVING_NAME}
INTERNET_STATUS_NAME_RESOLVED = 11;
{$EXTERNALSYM INTERNET_STATUS_NAME_RESOLVED}
INTERNET_STATUS_CONNECTING_TO_SERVER = 20;
{$EXTERNALSYM INTERNET_STATUS_CONNECTING_TO_SERVER}
INTERNET_STATUS_CONNECTED_TO_SERVER = 21;
{$EXTERNALSYM INTERNET_STATUS_CONNECTED_TO_SERVER}
INTERNET_STATUS_SENDING_REQUEST = 30;
{$EXTERNALSYM INTERNET_STATUS_SENDING_REQUEST}
INTERNET_STATUS_REQUEST_SENT = 31;
{$EXTERNALSYM INTERNET_STATUS_REQUEST_SENT}
INTERNET_STATUS_RECEIVING_RESPONSE = 40;
{$EXTERNALSYM INTERNET_STATUS_RECEIVING_RESPONSE}
INTERNET_STATUS_RESPONSE_RECEIVED = 41;
{$EXTERNALSYM INTERNET_STATUS_RESPONSE_RECEIVED}
INTERNET_STATUS_CTL_RESPONSE_RECEIVED = 42;
{$EXTERNALSYM INTERNET_STATUS_CTL_RESPONSE_RECEIVED}
INTERNET_STATUS_PREFETCH = 43;
{$EXTERNALSYM INTERNET_STATUS_PREFETCH}
INTERNET_STATUS_CLOSING_CONNECTION = 50;
{$EXTERNALSYM INTERNET_STATUS_CLOSING_CONNECTION}
INTERNET_STATUS_CONNECTION_CLOSED = 51;
{$EXTERNALSYM INTERNET_STATUS_CONNECTION_CLOSED}
INTERNET_STATUS_HANDLE_CREATED = 60;
{$EXTERNALSYM INTERNET_STATUS_HANDLE_CREATED}
INTERNET_STATUS_HANDLE_CLOSING = 70;
{$EXTERNALSYM INTERNET_STATUS_HANDLE_CLOSING}
INTERNET_STATUS_REQUEST_COMPLETE = 100;
{$EXTERNALSYM INTERNET_STATUS_REQUEST_COMPLETE}
INTERNET_STATUS_REDIRECT = 110;
{$EXTERNALSYM INTERNET_STATUS_REDIRECT}
INTERNET_STATUS_INTERMEDIATE_RESPONSE = 120;
{$EXTERNALSYM INTERNET_STATUS_INTERMEDIATE_RESPONSE}
INTERNET_STATUS_STATE_CHANGE = 200;
{$EXTERNALSYM INTERNET_STATUS_STATE_CHANGE}
{ the following can be indicated in a state change notification: }
INTERNET_STATE_CONNECTED = $00000001; { connected state (mutually exclusive with disconnected) }
{$EXTERNALSYM INTERNET_STATE_CONNECTED}
INTERNET_STATE_DISCONNECTED = $00000002; { disconnected from network }
{$EXTERNALSYM INTERNET_STATE_DISCONNECTED}
INTERNET_STATE_DISCONNECTED_BY_USER = $00000010; { disconnected by user request }
{$EXTERNALSYM INTERNET_STATE_DISCONNECTED_BY_USER}
INTERNET_STATE_IDLE = $00000100; { no network requests being made (by Wininet) }
{$EXTERNALSYM INTERNET_STATE_IDLE}
INTERNET_STATE_BUSY = $00000200; { network requests being made (by Wininet) }
{$EXTERNALSYM INTERNET_STATE_BUSY}
{ if the following value is returned by InternetSetStatusCallback, then }
{ probably an invalid (non-code) address was supplied for the callback }
INTERNET_INVALID_STATUS_CALLBACK = (-1);
{$EXTERNALSYM INTERNET_INVALID_STATUS_CALLBACK}
{ prototypes }
function FtpFindFirstFile(hConnect: HINTERNET; lpszSearchFile: PChar;
var lpFindFileData: TWin32FindData; dwFlags: DWORD;
dwContext: DWORD): HINTERNET; stdcall;
{$EXTERNALSYM FtpFindFirstFile}
type
TclFtpFindFirstFile = function (hConnect: HINTERNET; lpszSearchFile: PChar;
var lpFindFileData: TWin32FindData; dwFlags: DWORD;
dwContext: DWORD): HINTERNET; stdcall;
(*function FtpFindFirstFileA(hConnect: HINTERNET; lpszSearchFile: PAnsiChar;
var lpFindFileData: TWin32FindDataA; dwFlags: DWORD;
dwContext: DWORD): HINTERNET; stdcall;
{$EXTERNALSYM FtpFindFirstFileA}
function FtpFindFirstFileW(hConnect: HINTERNET; lpszSearchFile: PWideChar;
var lpFindFileData: TWin32FindDataW; dwFlags: DWORD;
dwContext: DWORD): HINTERNET; stdcall;
{$EXTERNALSYM FtpFindFirstFileW}
function FtpGetFile(hConnect: HINTERNET; lpszRemoteFile: PChar;
lpszNewFile: PChar; fFailIfExists: BOOL; dwFlagsAndAttributes: DWORD;
dwFlags: DWORD; dwContext: DWORD): BOOL stdcall;
{$EXTERNALSYM FtpGetFile}
function FtpGetFileA(hConnect: HINTERNET; lpszRemoteFile: PAnsiChar;
lpszNewFile: PAnsiChar; fFailIfExists: BOOL; dwFlagsAndAttributes: DWORD;
dwFlags: DWORD; dwContext: DWORD): BOOL stdcall;
{$EXTERNALSYM FtpGetFileA}
function FtpGetFileW(hConnect: HINTERNET; lpszRemoteFile: PWideChar;
lpszNewFile: PWideChar; fFailIfExists: BOOL; dwFlagsAndAttributes: DWORD;
dwFlags: DWORD; dwContext: DWORD): BOOL stdcall;
{$EXTERNALSYM FtpGetFileW}
function FtpPutFile(hConnect: HINTERNET; lpszLocalFile: PChar;
lpszNewRemoteFile: PChar; dwFlags: DWORD; dwContext: DWORD): BOOL; stdcall;
{$EXTERNALSYM FtpPutFile}
function FtpPutFileA(hConnect: HINTERNET; lpszLocalFile: PAnsiChar;
lpszNewRemoteFile: PAnsiChar; dwFlags: DWORD; dwContext: DWORD): BOOL; stdcall;
{$EXTERNALSYM FtpPutFileA}
function FtpPutFileW(hConnect: HINTERNET; lpszLocalFile: PWideChar;
lpszNewRemoteFile: PWideChar; dwFlags: DWORD; dwContext: DWORD): BOOL; stdcall;
{$EXTERNALSYM FtpPutFileW}
*)
function FtpDeleteFile(hConnect: HINTERNET; lpszFileName: PChar): BOOL; stdcall;
{$EXTERNALSYM FtpDeleteFile}
type
TclFtpDeleteFile = function (hConnect: HINTERNET; lpszFileName: PChar): BOOL; stdcall;
(*function FtpDeleteFileA(hConnect: HINTERNET; lpszFileName: PAnsiChar): BOOL; stdcall;
{$EXTERNALSYM FtpDeleteFileA}
function FtpDeleteFileW(hConnect: HINTERNET; lpszFileName: PWideChar): BOOL; stdcall;
{$EXTERNALSYM FtpDeleteFileW}
function FtpRenameFile(hConnect: HINTERNET; lpszExisting: PChar;
lpszNew: PChar): BOOL; stdcall;
{$EXTERNALSYM FtpRenameFile}
function FtpRenameFileA(hConnect: HINTERNET; lpszExisting: PAnsiChar;
lpszNew: PAnsiChar): BOOL; stdcall;
{$EXTERNALSYM FtpRenameFileA}
function FtpRenameFileW(hConnect: HINTERNET; lpszExisting: PWideChar;
lpszNew: PWideChar): BOOL; stdcall;
{$EXTERNALSYM FtpRenameFileW}
*)
function FtpOpenFile(hConnect: HINTERNET; lpszFileName: PChar;
dwAccess: DWORD; dwFlags: DWORD; dwContext: DWORD): HINTERNET; stdcall;
{$EXTERNALSYM FtpOpenFile}
type
TclFtpOpenFile = function (hConnect: HINTERNET; lpszFileName: PChar;
dwAccess: DWORD; dwFlags: DWORD; dwContext: DWORD): HINTERNET; stdcall;
(*function FtpOpenFileA(hConnect: HINTERNET; lpszFileName: PAnsiChar;
dwAccess: DWORD; dwFlags: DWORD; dwContext: DWORD): HINTERNET; stdcall;
{$EXTERNALSYM FtpOpenFileA}
function FtpOpenFileW(hConnect: HINTERNET; lpszFileName: PWideChar;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -