[Lazarus] Error 500

[Mattias Gaertner]

On Tue, 5 Apr 2011 12:14:58 -0300
silvioprog <silvioprog at gmail.com> wrote:

> 2011/4/5 silvioprog <silvioprog at gmail.com>:
> > Hi.
> >
> > In a simple CGI app, I try to use TFreeTypeFont class, but without success.
> > The error returned is "Error 500"(see log in [1]).
> >
> > In attached I send a small sample to reproduce the error.
> >
> > *Lazarus 0.9.31 r30005 FPC 2.5.1 i386-win32-win32/win64 / XAMPP 1.7.3!
> > on Windows Seven 64.*
> >
> > Thx.
> >
> > [1]:
> > ---------------------------
> > Date: Tue, 05 Apr 2011 14:54:11 GMT
> > Server: Apache/2.2.14 (Win32) DAV/2 mod_ssl/2.2.14 OpenSSL/0.9.8l
> > mod_autoindex_color PHP/5.3.1 mod_apreq2-20090110/2.7.1 mod_perl/2.0.4
> > Perl/v5.10.1
> > Vary: accept-language,accept-charset
> > Accept-Ranges: bytes
> > Connection: close
> > Content-Type: text/html; charset=iso-8859-1
> > Content-Language: pt-br
> > ---------------------------
> >
> > 500 Internal Server Error
> 
> I'm trying to write a text in an image and show in the browser. This
> code[1] not works (returns error 500).

Look into your apache logs for more details.

 
> [1] (http://www.mail-archive.com/lazarus@lists.lazarus.freepascal.org/msg18488/t.pp):
> uses
>   FPCanvas, FPImage, FPImgCanv, FTFont, FPWritePNG;
> 
> var
>   img: TFPMemoryImage;
>   c: TFPImageCanvas;
>   f: TFreeTypeFont;
> begin
>   img := TFPMemoryImage.Create(500, 100);
>   c := TFPImageCanvas.Create(img);
>   f := TFreeTypeFont.Create;
>   c.Clear;
>   c.Pen.FPColor := colRed;
>   f.Name := 'Times';
>   f.Size := 14;
>   f.FPColor := colRed;
>   c.Font := f;
>   c.TextOut(10, 20, 'sample text 12345');
>   img.SaveToFile('test.png');

Has the cgi script write permissions when running as apache user?


>   f.Free;
>   c.Free;
>   img.Free;
> end.


Mattias