API
2008-06-21 18:03:18 UTC
procedure
TIdFTPServer.CommandCheckSum(ASender:
TIdCommand);
..
if Pos('"', LBuf) > 0 then {do
not localize}
begin
Fetch(LBuf, '"'); {do not localize}
LFileName := Fetch(LBuf, '"');
{do not localize}
end else begin
//LFileName := Fetch(LBuf);
LFileName := LBuf; // 21062008!
end;
..
Above change will help with lot of ftp
clients that wants to checksum but
doesn't do " marks..
kind regards
TIdFTPServer.CommandCheckSum(ASender:
TIdCommand);
..
if Pos('"', LBuf) > 0 then {do
not localize}
begin
Fetch(LBuf, '"'); {do not localize}
LFileName := Fetch(LBuf, '"');
{do not localize}
end else begin
//LFileName := Fetch(LBuf);
LFileName := LBuf; // 21062008!
end;
..
Above change will help with lot of ftp
clients that wants to checksum but
doesn't do " marks..
kind regards