Ok, the exception was a great addition =)
It corners the error here:
procedure TRequest.InitPostVars;
Var
M : TCapacityStream;
Cl : Integer;
B : Byte;
CT : String;
begin
{$ifdef CGIDEBUG}
SendMethodEnter('InitPostVars');
{$endif}
CL:=ContentLength;
M:=TCapacityStream.Create;
Try
if CL<>0 then
begin
M.Capacity:=Cl;
M.WriteBuffer(Content[1], Cl);
end;
M.Position:=0;
CT:=ContentType;
if Pos('MULTIPART/FORM-DATA',Uppercase(CT))<>0 then
ProcessMultiPart(M,CT, ContentFields)
else if Pos('APPLICATION/X-WWW-FORM-URLENCODED',Uppercase(CT))<>0 then
ProcessUrlEncoded(M, ContentFields)
else if CL<>0 then
begin
{$ifdef CGIDEBUG}
SendDebug('InitPostVars: unsupported content type:'+CT);
{$endif}
Raise Exception.CreateFmt(SErrUnsupportedContentType,[CT]);
<------- error here
--
Felipe Monteiro de Carvalho
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
