source: cprs/branches/tmg-cprs/CPRS-Chart/TMG_Extra/HTMLEdit/IEDownloadAcc.pas@ 1802

Last change on this file since 1802 was 541, checked in by Kevin Toppenberg, 15 years ago

TMG Ver 1.1 Added HTML Support, better demographics editing

File size: 6.5 KB
Line 
1//*************************************************************************
2// *
3// IEDownload_Acc 2009 *
4// For Delphi *
5// *
6// Freeware unit *
7// by *
8// and Eran Bodankin *
9// bsalsa@gmail.com *
10// *
11// Updated versions: *
12// http://www.bsalsa.com *
13//*************************************************************************
14{LICENSE:
15THIS SOFTWARE IS PROVIDED TO YOU "AS IS" WITHOUT WARRANTY OF ANY KIND,
16EITHER EXPRESSED OR IMPLIED INCLUDING BUT NOT LIMITED TO THE APPLIED
17WARRANTIES OF MERCHANTABILITY AND/OR FITNESS FOR A PARTICULAR PURPOSE.
18YOU ASSUME THE ENTIRE RISK AS TO THE ACCURACY AND THE USE OF THE SOFTWARE
19AND ALL OTHER RISK ARISING OUT OF THE USE OR PERFORMANCE OF THIS SOFTWARE
20AND DOCUMENTATION. BSALSA PRODUCTIONS DOES NOT WARRANT THAT THE SOFTWARE IS ERROR-FREE
21OR WILL OPERATE WITHOUT INTERRUPTION. THE SOFTWARE IS NOT DESIGNED, INTENDED
22OR LICENSED FOR USE IN HAZARDOUS ENVIRONMENTS REQUIRING FAIL-SAFE CONTROLS,
23INCLUDING WITHOUT LIMITATION, THE DESIGN, CONSTRUCTION, MAINTENANCE OR
24OPERATION OF NUCLEAR FACILITIES, AIRCRAFT NAVIGATION OR COMMUNICATION SYSTEMS,
25AIR TRAFFIC CONTROL, AND LIFE SUPPORT OR WEAPONS SYSTEMS. BSALSA PRODUCTIONS SPECIFICALLY
26DISCLAIMS ANY EXPRESS OR IMPLIED WARRANTY OF FITNESS FOR SUCH PURPOSE.
27
28You may use, change or modify the component under 4 conditions:
291. In your website, add a link to "http://www.bsalsa.com"
302. In your application, add credits to "Embedded Web Browser"
313. Mail me (bsalsa@gmail.com) any code change in the unit
32 for the benefit of the other users.
334. Please, consider donation in our web site!
34{*******************************************************************************}
35
36unit IEDownloadAcc;
37
38interface
39
40{$I EWB.inc}
41
42uses
43 ActiveX, SysUtils, ShlObj, Windows, UrlMon, IEConst;
44
45{$IFDEF DELPHI6_UP}
46type
47 {Authentiae }
48 _AUTHENTICATEF = (
49 AUTHENTICATEF_PROXY = $00000001,
50 AUTHENTICATEF_BASIC = $00000002,
51 AUTHENTICATEF_HTTP = $00000004);
52 AUTHENTICATEF = _AUTHENTICATEF;
53
54 {PutProperty }
55 _MONIKERPROPERTY = (
56 MIMETYPEPROP = 0,
57 USE_SRC_URL = $00000001,
58 CLASSIDPROP = $00000002,
59 TRUSTEDDOWNLOADPROP = $00000003,
60 POPUPLEVELPROP = $00000004);
61 MONIKERPROPERTY = _MONIKERPROPERTY;
62
63 {CIP_STATUS }
64 _CIP_STATUS = (
65 CIP_DISK_FULL = 0,
66 CIP_ACCESS_DENIED = 1,
67 CIP_NEWER_VERSION_EXISTS = 2,
68 CIP_OLDER_VERSION_EXISTS = 3,
69 CIP_NAME_CONFLICT = 4,
70 CIP_TRUST_VERIFICATION_COMPONENT_MISSING = 5,
71 CIP_EXE_SELF_REGISTERATION_TIMEOUT = 6,
72 CIP_UNSAFE_TO_ABORT = 7,
73 CIP_NEED_REBOOT = 8,
74 CIP_NEED_REBOOT_UI_PERMISSION = 9);
75 CIP_STATUS = _CIP_STATUS;
76
77 {BSCF Enumerated Type}
78 _BSCF = (
79 BSCF_FIRSTDATANOTIFICATION = $00000001,
80 BSCF_INTERMEDIATEDATANOTIFICATION = $00000002,
81 BSCF_LASTDATANOTIFICATION = $00000004,
82 BSCF_DATAFULLYAVAILABLE = $00000008,
83 BSCF_AVAILABLEDATASIZEUNKNOWN = $00000010,
84 BSCF_SKIPDRAINDATAFORFILEURLS = $00000020);
85 BSCF = _BSCF;
86
87
88type
89 pauthinfo = ^TAUTHENTICATEINFO;
90 _tagAUTHENTICATEINFO = record
91 dwFlags: LongInt;
92 dwReserved: LongInt;
93 end;
94 TAUTHENTICATEINFO = _tagAUTHENTICATEINFO;
95 AUTHENTICATEINFO = _tagAUTHENTICATEINFO;
96
97type
98 IAuthenticateEx = interface(IAuthenticate)
99 ['{2AD1EDAF-D83D-48B5-9ADF-03DBE19F53BD}']
100 function AuthenticateEx(out phwnd: HWND; out pszUsername,
101 pszPassword: LPWSTR; var pauthinfo: AUTHENTICATEINFO): HResult; stdcall;
102 end;
103{$ENDIF}
104
105
106type
107 IBindStatusCallbackEx = interface(IBindStatusCallback)
108 ['{AAA74EF9-8EE7-4659-88D9-F8C504DA73CC}']
109 function GetBindInfoEx(out grfBINDF: DWORD; var pbindinfo: BINDINFO;
110 out grfBINDF2: DWORD; out pdwReserved: DWORD): HResult; stdcall;
111 end;
112
113type
114 ICatalogFileInfo = interface(IUnknown)
115 ['{711C7600-6B48-11D1-B403-00AA00B92AF1}']
116 function GetCatalogFile(out ppszCatalogFile: LPSTR): HResult;
117 function GetJavaTrust(out ppJavaTrust: Pointer): HResult;
118 end;
119
120type
121 IHttpNegotiate2 = interface(IHttpNegotiate)
122 ['{4F9F9FCB-E0F4-48EB-B7AB-FA2EA9365CB4}']
123 function GetRootSecurityId(var SecurityIdBuffer: TByteArray; var
124 BufferSize: DWord; dwReserved: DWORD): HResult; stdcall;
125 end;
126
127type
128 IHttpNegotiate3 = interface(IHttpNegotiate2)
129 ['{57b6c80a-34c2-4602-bc26-66a02fc57153}']
130 function GetSerializedClientCertContext(out ppbCert: Byte;
131 var pcbCert: DWORD): HResult; stdcall;
132 end;
133{$IFDEF DELPHI6_UP}
134type
135 IMonikerProp = interface(IUnknown)
136 ['{A5CA5F7F-1847-4D87-9C5B-918509F7511D}']
137 function PutProperty(mkp: MONIKERPROPERTY; val: LPCWSTR): HResult; stdcall;
138 end;
139{$ENDIF}
140
141
142
143type
144 IBindHost = interface(IUnknown)
145 ['{fc4801a1-2ba9-11cf-a229-00aa003d7352}']
146 function CreateMoniker(szName: POLEStr; BC: IBindCtx; out mk: IMoniker;
147 dwReserved: DWORD): HResult; stdcall;
148 function MonikerBindToStorage(Mk: IMoniker; BC: IBindCtx; BSC:
149 IBindStatusCallback; const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult; stdcall;
150 function MonikerBindToObject(Mk: IMoniker; BC: IBindCtx; BSC:
151 IBindStatusCallback; const iid: TGUID; out pvObj{$IFNDEF DELPHI8_UP}: Pointer{$ENDIF}): HResult; stdcall;
152 end;
153
154type
155 INTERNET_PER_CONN_OPTION = record
156 dwOption: DWORD;
157 Value: record
158 case Integer of
159 1: (dwValue: DWORD);
160 2: (pszValue: PChar); {Unicode/ANSI}
161 3: (ftValue: TFileTime);
162 end;
163 end;
164
165 LPINTERNET_PER_CONN_OPTION = ^INTERNET_PER_CONN_OPTION;
166 INTERNET_PER_CONN_OPTION_List = record
167 dwSize: DWORD;
168 pszConnection: LPTSTR;
169 dwOptionCount: DWORD;
170 dwOptionError: DWORD;
171 intOptions: LPINTERNET_PER_CONN_OPTION;
172 end;
173 LPINTERNET_PER_CONN_OPTION_List = ^INTERNET_PER_CONN_OPTION_List;
174
175
176
177function CreateURLMonikerEx(MkCtx: IMoniker; szURL: LPCWSTR;
178 out mk: IMoniker; dwFlags: DWORD): HRESULT; stdcall; external UrlMonLib;
179
180implementation
181
182end.
Note: See TracBrowser for help on using the repository browser.