-
Notifications
You must be signed in to change notification settings - Fork 159
Description
procedure TIdCmdTCPClient.DoReplyUnknownCommand(AContext: TIdContext; ALine: string) in IdCmdTCPClient
to change to
procedure TIdCmdTCPClient.DoReplyUnknownCommand(AContext: TIdContext; const ALine: string).
procedure TIdCmdTCPServer.DoReplyUnknownCommand(AContext: TIdContext; ALine: string);
to change to
procedure TIdCmdTCPServer.DoReplyUnknownCommand(AContext: TIdContext; const ALine: string);
in IdCmdTCPServer.pas
procedure TIdCommandHandler.DoCommand(const AData: string; AContext: TIdContext; AUnparsedParams: string);
to change to
procedure TIdCommandHandler.DoCommand(const AData: string; AContext: TIdContext; const AUnparsedParams: string);
and
procedure TIdCommandHandler.DoParseParams(AUnparsedParams: string; AParams: TStrings);
to change to
procedure TIdCommandHandler.DoParseParams(const AUnparsedParams: string; AParams: TStrings);
in IdCommandHandlers.pas
function TIdIOHandler.ReadLn(ATerminator: string; AByteEncoding: IIdTextEncoding
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;
{$IFDEF USE_CLASSINLINE}inline;{$ENDIF}
to change to
function TIdIOHandler.ReadLn(const ATerminator: string; AByteEncoding: IIdTextEncoding
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;
{$IFDEF USE_CLASSINLINE}inline;{$ENDIF}
and
function TIdIOHandler.ReadLnSplit(var AWasSplit: Boolean; ATerminator: string = LF;
ATimeout: Integer = IdTimeoutDefault; AMaxLineLength: Integer = -1;
AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;
to change to
function TIdIOHandler.ReadLnSplit(var AWasSplit: Boolean; const ATerminator: string = LF;
ATimeout: Integer = IdTimeoutDefault; AMaxLineLength: Integer = -1;
AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
): string;
and
procedure TIdIOHandler.Capture(ADest: TStream; ADelim: string;
AUsesDotTransparency: Boolean = True; AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
);
to change to
procedure TIdIOHandler.Capture(ADest: TStream; const ADelim: string;
AUsesDotTransparency: Boolean = True; AByteEncoding: IIdTextEncoding = nil
{$IFDEF STRING_IS_ANSI}; ADestEncoding: IIdTextEncoding = nil{$ENDIF}
);
in IdIOHandler.pas
function TIdTCPConnection.SendCmd(AOut: string; const AResponse: Array of Int16;
AEncoding: IIdTextEncoding = nil): Int16;
to change to
function TIdTCPConnection.SendCmd(const AOut: string; const AResponse: Array of Int16;
AEncoding: IIdTextEncoding = nil): Int16;
and
function TIdTCPConnection.SendCmd(AOut: string; const AResponse: Int16 = -1;
AEncoding: IIdTextEncoding = nil): Int16;
to change to
function TIdTCPConnection.SendCmd(const AOut: string; const AResponse: Int16 = -1;
AEncoding: IIdTextEncoding = nil): Int16;
and
function TIdTCPConnection.SendCmd(AOut: string; const AResponse: string;
AEncoding: IIdTextEncoding = nil): string;
to change to
function TIdTCPConnection.SendCmd(const AOut: string; const AResponse: string;
AEncoding: IIdTextEncoding = nil): string;
in IdTCPConnection.pas
All of the AURL parameters needs a const in IdHTTP.pas