Hi Rob, did you receive my answer? I sent it again, below. ----- Original Message ----- From: "mauro russo" <[EMAIL PROTECTED]> To: <[email protected]> Sent: Thursday, February 01, 2007 10:54 AM Subject: Re: [delphi-en] __Fastcall and PAscal
>I have two constructors. > I noted that if I use only one, by taking of the word "overload", I can > call by passing nil. > > constructor Create();overload; > > constructor Create( > ActiveIO, ActiveRS232, ActiveRS485 : boolean; > ChipOnRS232, BarcodeOnRS232, LcdOnBoard : > boolean; > SecTimeoutInDestroyingInternalThreads : Cardinal; > SecTimeoutOnIO, SecTimeoutOnRS232IfNoChip, > SecTimeoutOnRS485 : Cardinal; > AllReconnectionIfChipReconnect, > AllReconnectionIfOneReconnect : boolean; > JSChipProcedure : TUniBoardProcJSChip; > JSChipMethod : TUniBoardMethodJSChip; > JSUserPointer : Pointer; > CorruptionProc : TUniBoardProcCorruption; > CorruptionMethod : TUniBoardMethodCorruption; > CorruptionUserPointer : Pointer; > H_EventOnReceiveMessages : THandle; > H_EventsOnReconnection : array of THandle; > ProbabileIp : String > ); overload; > > I have a class TMyClass > > with two methods: > > procedure JustStartMethod2( IdThread : integer; CodObj : integer ; > MyPointer : Pointer ); stdcall; > > procedure CorrMethodTest( IdThread : int; > ObjId : int; > Channel : int; > CodeLauncher : integer; > CodeCorruption : integer; > ParameterCorruption : integer; > UserPointer : Pointer ); stdcall; > > The call, done in a third method of TMyClass, is > > TUniplanBoard.Create( CB_ActiveIOecov.Checked, > CB_ActiveRS232.Checked, > CB_ActiveRS485.Checked, > not CBnoAtmel.Checked, > CB_BarcodeOnRS232.Checked, > not CBatmelLCD.Checked, > 0,0,0,0, > true,false, > nil,JustStartMethod2,nil, > nil,nil, nil, //instead of > nil,CorrMethodTest,nil, => compiler error. It disappears if i use > "nil,CorrMethodTest,nil" > 0,EmptyArray,'172.16.12.145') > > The types definition are > > type TUniBoardProcJSChip = Procedure( IdThread : TUniBoardThreadId; > ObjId : TUniBoardObjectId; > UserPointer : Pointer ); stdcall; > type TUniBoardMethodJSChip = Procedure( IdThread : TUniBoardThreadId; > ObjId : TUniBoardObjectId; > UserPointer : Pointer ) > of object; stdcall; > > type TUniBoardProcCorruption = Procedure( IdThread : TUniBoardThreadId; > ObjId : TUniBoardObjectId; > Channel : TUniBoardChannels; > CodeLauncher : integer; > CodeCorruption : integer; > ParameterCorruption : integer; > UserPointer : Pointer ); stdcall; > > type TUniBoardMethodCorruption = Procedure( IdThread : TUniBoardThreadId; > ObjId : TUniBoardObjectId; > Channel : TUniBoardChannels; > CodeLauncher : integer; > CodeCorruption : integer; > ParameterCorruption : integer; > UserPointer : Pointer ) > of object; stdcall; > > If > > > > ----- Original Message ----- > From: Rob Kennedy > To: [email protected] > Sent: Wednesday, January 31, 2007 10:55 PM > Subject: Re: [delphi-en] __Fastcall and PAscal > > > mauro russo wrote: > > why the compiler gets me an error if i pass 'nil' > > a parameter having as type a procedure of object? > > It shouldn't. Please show your code, including the declaration of the > function you're trying to call and the line of code where you try to call > it. > > -- > Rob > > > > > > > ------------------------------------------------------------------------------ > > > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.432 / Virus Database: 268.17.18/662 - Release Date: > 31/01/2007 15.16 > > ---------- > > Questa email è stata verificata dal sistema centralizzato antivirus della > UniPlan Software > > > [Non-text portions of this message have been removed] > > > > ----------------------------------------------------- > Home page: http://groups.yahoo.com/group/delphi-en/ > To unsubscribe: [EMAIL PROTECTED] > Yahoo! Groups Links > > > > > > > -- > No virus found in this incoming message. > Checked by AVG Free Edition. > Version: 7.5.432 / Virus Database: 268.17.18/662 - Release Date: > 31/01/2007 15.16 > ---------- Questa email è stata verificata dal sistema centralizzato antivirus della UniPlan Software [Non-text portions of this message have been removed]
