On 2/23/08, ik <[EMAIL PROTECTED]> wrote: > {$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 <[EMAIL PROTECTED]> 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@lists.freepascal.org > > http://lists.freepascal.org/mailman/listinfo/fpc-devel > > > > > > > > -- > http://ik.homelinux.org/ > _______________________________________________ > fpc-devel maillist - fpc-devel@lists.freepascal.org > http://lists.freepascal.org/mailman/listinfo/fpc-devel >
Unfortunately still doesn't work :( _______________________________________________ fpc-devel maillist - fpc-devel@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-devel