paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 22:49:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* packrecords as per mantis 15009 + checking the packed records.

Browse Source 
git-svn-id: trunk@14081 -
This commit is contained in:
marco 2009-11-06 11:58:45 +00:00
parent 59811e1012
commit 1c93e8ad9d
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
packages/winunits-base/src/wininet.pp
View File

@ -20,6 +20,12 @@ interface
Uses Windows; Uses Windows;
{$ifdef win64}
{$packrecords 8}
{$else}
{$packrecords 4}
{$endif}
// //
// Internet APIs // Internet APIs
// //
@ -1389,7 +1395,7 @@ Const
Type Type
INTERNET_ASYNC_RESULT = packed record INTERNET_ASYNC_RESULT = record
dwResult : DWORD_PTR; dwResult : DWORD_PTR;
dwError : DWORD; dwError : DWORD;
end; end;
@ -1401,7 +1407,7 @@ Type
PINTERNETASYNCRESULT = PINTERNET_ASYNC_RESULT; PINTERNETASYNCRESULT = PINTERNET_ASYNC_RESULT;
{ INTERNET_DIAGNOSTIC_SOCKET_INFO - info about the socket in use } { INTERNET_DIAGNOSTIC_SOCKET_INFO - info about the socket in use }
INTERNET_DIAGNOSTIC_SOCKET_INFO =packed record INTERNET_DIAGNOSTIC_SOCKET_INFO = record
Socket : DWORD_PTR; Socket : DWORD_PTR;
SourcePort : DWORD; SourcePort : DWORD;
DestPort : DWORD; DestPort : DWORD;
@ -1411,7 +1417,7 @@ Type
LPINTERNET_DIAGNOSTIC_SOCKET_INFO = ^INTERNET_DIAGNOSTIC_SOCKET_INFO; LPINTERNET_DIAGNOSTIC_SOCKET_INFO = ^INTERNET_DIAGNOSTIC_SOCKET_INFO;
PINTERNET_DIAGNOSTIC_SOCKET_INFO = LPINTERNET_DIAGNOSTIC_SOCKET_INFO; PINTERNET_DIAGNOSTIC_SOCKET_INFO = LPINTERNET_DIAGNOSTIC_SOCKET_INFO;
INTERNET_PREFETCH_STATUS = packed record INTERNET_PREFETCH_STATUS = record
dwStatus, dwStatus,
dwSize : DWord; dwSize : DWord;
end; end;
@ -1422,7 +1428,7 @@ Type
PINTERNETPREFETCHSTATUS= PINTERNET_PREFETCH_STATUS; PINTERNETPREFETCHSTATUS= PINTERNET_PREFETCH_STATUS;
LPINTERNETPREFETCHSTATUS= PINTERNET_PREFETCH_STATUS; LPINTERNETPREFETCHSTATUS= PINTERNET_PREFETCH_STATUS;
INTERNET_PROXY_INFO = packed record INTERNET_PROXY_INFO = record
dwAccessType : DWORD; dwAccessType : DWORD;
lpszProxy : LPCTSTR; lpszProxy : LPCTSTR;
lpszProxyBypass : LPCTSTR; lpszProxyBypass : LPCTSTR;
@ -1904,7 +1910,7 @@ Type
PFN_AUTH_NOTIFY = function (dwContext:DWORD_PTR; dwReturn:DWORD; lpreserved:LPVOID):DWORD;stdcall; PFN_AUTH_NOTIFY = function (dwContext:DWORD_PTR; dwReturn:DWORD; lpreserved:LPVOID):DWORD;stdcall;
InternetAuthNotifyCallback = PFN_AUTH_NOTIFY; InternetAuthNotifyCallback = PFN_AUTH_NOTIFY;
_INTERNET_CACHE_ENTRY_INFOA = packed record _INTERNET_CACHE_ENTRY_INFOA = record
dwStructSize : DWORD; dwStructSize : DWORD;
lpszSourceUrlName : LPSTR; lpszSourceUrlName : LPSTR;
lpszLocalFileName : LPSTR; lpszLocalFileName : LPSTR;
@ -1930,7 +1936,7 @@ Type
LPINTERNET_CACHE_ENTRY_INFOA = PINTERNET_CACHE_ENTRY_INFOA; LPINTERNET_CACHE_ENTRY_INFOA = PINTERNET_CACHE_ENTRY_INFOA;
PLPINTERNET_CACHE_ENTRY_INFOA = ^LPINTERNET_CACHE_ENTRY_INFOA; PLPINTERNET_CACHE_ENTRY_INFOA = ^LPINTERNET_CACHE_ENTRY_INFOA;
_INTERNET_CACHE_ENTRY_INFOW = packed record _INTERNET_CACHE_ENTRY_INFOW = record
dwStructSize : DWORD; dwStructSize : DWORD;
lpszSourceUrlName : LPWSTR; lpszSourceUrlName : LPWSTR;
lpszLocalFileName : LPWSTR; lpszLocalFileName : LPWSTR;
@ -2047,7 +2053,7 @@ Type
PAutoProxyHelperVtbl = ^AutoProxyHelperVtbl; PAutoProxyHelperVtbl = ^AutoProxyHelperVtbl;
AutoProxyHelperVtbl = packed record AutoProxyHelperVtbl = record
IsResolvable : TIsResolvable; IsResolvable : TIsResolvable;
GetIPAddress : TGetIPAddress; GetIPAddress : TGetIPAddress;
ResolveHostName : TResolveHostName; ResolveHostName : TResolveHostName;