paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Content type better handling : text/xml;charset=UTF-8 does succeed even with the ";charset=UTF-8"

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@477 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa 2008-06-09 12:01:39 +00:00
parent 76eccaaa0c
commit 5cac370447
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
wst/trunk/server_service_intf.pas
View File

@ -454,11 +454,11 @@ end;
procedure TBaseServiceBinder.HandleRequest(ARequestBuffer: IRequestBuffer);
Var
f : IFormatterResponse;
s : string;
s, msgFormat : string;
m : TServiceVerbMethod;
strm : TStream;
cllCtx : ICallContext;
i : Integer;
i, j: Integer;
hdr : THeaderBlock;
typRegItm : TTypeRegistryItem;
begin
@ -466,7 +466,16 @@ begin
if ( Length(s) = 0 ) then begin
s := ARequestBuffer.GetContentType();
end;
f := GetFormatterRegistry().Find(s) as IFormatterResponse;
//Extract the base ContentType : type "/" subtype *( ";" parameter )
j := Length(s);
for i := 0 to Pred(Length(s)) do begin
if ( s[i] = ';' ) then begin
j := ( i - 1 );
Break;
end;
end;
msgFormat := Copy(s,1,j);
f := GetFormatterRegistry().Find(msgFormat) as IFormatterResponse;
if not Assigned(f) then
Error('No formatter for that content type : "%s"',[s]);
try