[fpc-devel] Convert C++ Array[1] to FPC

[ik]

{$PACKRECORDS C}
...
 type
    LPSSLPROTOCOL = ^SSLPROTOCOL;
    SSLPROTOCOL = record
     dwProtocol : DWORD;
     dwVersion  : DWORD;
     dwFlags    : DWORD;
 end;
 _SSLPROTOCOL = SSLPROTOCOL;


On Sat, Feb 23, 2008 at 5:59 AM, Sooky Boo <sookyboo at gmail.com> wrote:
>
>
> Please help I am unsure how to port from C++ to fpc this code.
> The function this must be passed to says that the structure pointer or size
> is invalid.
>
> ----C++----
> typedef struct _SSLPROTOCOL {
>     DWORD dwProtocol;
>     DWORD dwVersion;
>     DWORD dwFlags;
> } SSLPROTOCOL, FAR *LPSSLPROTOCOL;
>
> typedef struct _SSLPROTOCOLS {
>     DWORD dwCount;
>     SSLPROTOCOL ProtocolList[1];   // array of 'count' structures
> } SSLPROTOCOLS, FAR *LPSSLPROTOCOLS;
>
> ----My Attempt FPC Delphi Mode----
>
> type  SSLPROTOCOL = record
>     dwProtocol : DWORD;
>     dwVersion  : DWORD;
>     dwFlags    : DWORD;
> end;
> _SSLPROTOCOL = SSLPROTOCOL;
> LPSSLPROTOCOL = ^SSLPROTOCOL;
>
> type SSLPROTOCOLS = record
>      dwCount :DWORD;
>      ProtocolList : array[0..0] of SSLPROTOCOL;   // array of 'count'
> structures
> end;
>  _SSLPROTOCOLS = SSLPROTOCOLS;
>  LPSSLPROTOCOLS = ^SSLPROTOCOLS;
>   PSSLPROTOCOLS = ^SSLPROTOCOLS;
> ---- ----
> Thanks in advance.
> If my port seems correct are there any ideas what could be the problem?
> _______________________________________________
>  fpc-devel maillist  -  fpc-devel at lists.freepascal.org
>  http://lists.freepascal.org/mailman/listinfo/fpc-devel
>
>



-- 
http://ik.homelinux.org/