Recent

Author Topic: Strange BUG.  (Read 2027 times)

XyberX

  • New Member
  • *
  • Posts: 43
Strange BUG.
« on: June 23, 2017, 08:08:40 pm »
 When I Pass one Procedure with the same param's for Indy HTTPServer :

 HTTPServer.OnCommandGet         := aCommandGet;
 HTTPServer.OnCommandOther       := aCommandOther;

 He told to me : uRESTDWBase.pas(434,37) Error: Wrong number of parameters specified for call to "aCommandGet"

 Whats Wrong ?

XyberX

  • New Member
  • *
  • Posts: 43
Re: Strange BUG.
« Reply #1 on: June 23, 2017, 08:15:54 pm »
on Delphi work normal.

 {$IFDEF LCL}
 //Problema no Passar eventos para o Indy em Lazarus
 HTTPServer.OnCommandGet         := aCommandGet;
 HTTPServer.OnCommandOther       := aCommandOther;
 {$ELSE}
 HTTPServer.OnCommandGet         := aCommandGet;
 HTTPServer.OnCommandOther       := aCommandOther;
 {$ENDIF}

XyberX

  • New Member
  • *
  • Posts: 43
Re: Strange BUG.
« Reply #2 on: June 23, 2017, 08:28:08 pm »
 Fix, on Lazarus need @ to reference Procedure kkkkkkkkkkkkk.

 

TinyPortal © 2005-2018