[fpc-pascal] Problem with string manager

Joao Morais jcmoraisjr at gmail.com
Wed Sep 9 21:10:18 CEST 2009


Hello list.

The following cgi script shows "??" in the browser if cwstring is
declared, and works as expected if the declaration is removed. Is
there something I can change in order to work with widestrings,
cwstring and special chars? fixes_2_4 with linux.

Thanks.

Joao Morais

============================

{$mode objfpc}{$H+}

uses
  Classes, SysUtils, httpDefs, custcgi, cwstring;

type
  TCGIApp = class(TCustomCGIApplication)
  public
    procedure HandleRequest(ARequest: TRequest; AResponse: TResponse); override;
  end;

procedure TCGIApp.HandleRequest(ARequest: TRequest; AResponse: TResponse);
var
  ac: widestring;
begin
  ac := 'é';
  AResponse.Contents.Add(ac);
end;

begin
  with TCGIApp.Create(nil) do
    try
      Initialize;
      Run;
    finally
      Free;
    end;
end.



More information about the fpc-pascal mailing list