paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 21:19:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Commented out some debug-code which causes problems on windows

Browse Source 
git-svn-id: trunk@8293 -
This commit is contained in:
joost 2007-08-20 21:10:32 +00:00
parent d041db6cb9
commit bc5225b8ae
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-web/src/custcgi.pp
View File

@ -414,13 +414,15 @@ begin
I.Free;
end;
M.Position:=0;
With TFileStream.Create('/tmp/query',fmCreate) do
// joost, aug 20th: I've removed this. It doesn't work with windows and I think
// it's a debug-only thing...
{ With TFileStream.Create('/tmp/query',fmCreate) do
try
CopyFrom(M,0);
M.Position:=0;
Finally
Free;
end;
end;}
CT:=ContentType;
if Pos('MULTIPART/FORM-DATA',Uppercase(CT))<>0 then
ProcessMultiPart(M,CT)