KaitoNakamura
commented
3 years ago AnsiChar and AnsiString and PAnsiChar and PAnsiString are not available in Delphi on Linux, so silvio uses his own TMarshaller for Delphi and FPC. You can only use PUTF8Char, it is the same as PANSIChar (in Linux it is mapped : UTF8Char = _AnsiChar; PUTF8Char = _PAnsiChar;)
@silvioprog : you use "AsAnsi" from the SysUtils and the return is a pointer to an ANSIString and not to an ANSIChar !!!!
function {$IFDEF FPC}TMarshaller{$ELSE}TMarshallerHelper{$ENDIF}.ToCString( const S: string): MarshaledAString; begin Result := {$IFDEF FPC} MarshaledAString(S) {$ELSE} AsAnsi(S, CP_UTF8).ToPointer {$ENDIF}; end;
Beanv587
silvioprog
If the parameter is a double-byte string(E.g. Chinese), the function will return a garbled string.
Steps to reproduce:
TestCode：
procedure THTTPServer.DoRequest(ASender: TObject; ARequest: TBrookHTTPRequest; AResponse: TBrookHTTPResponse); begin //Path contains Chinese AResponse.Download('G:\编程\TestFiles\1.txt'); end;
Open the browser and it will prompt File not found, click the breakpoint on the function sg_httpres_download, you will find that the variable filename is garbled
Environment:
In fact, PAnsiChar(AnsiString(AFileName)) can be used to solve this problem.
procedure TBrookHTTPResponse.Download(const AFileName: TFileName; AStatus: Word); var M: TMarshaller; R: cint; begin SgLib.Check; if FCompressed then begin R := sg_httpres_zdownload(FHandle, PAnsiChar(AnsiString(AFileName)), AStatus); CheckZLib(R); end else R := sg_httpres_download(FHandle, PAnsiChar(AnsiString(AFileName)), AStatus); CheckAlreadySent(R); if R = ENOENT then raise EFileNotFoundException.Create(SFileNotFound); SgLib.CheckLastError(R); end;