paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 06:06:17 +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; I.Free;
end; end;
M.Position:=0; 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 try
CopyFrom(M,0); CopyFrom(M,0);
M.Position:=0; M.Position:=0;
Finally Finally
Free; Free;
end; end;}
CT:=ContentType; CT:=ContentType;
if Pos('MULTIPART/FORM-DATA',Uppercase(CT))<>0 then if Pos('MULTIPART/FORM-DATA',Uppercase(CT))<>0 then
ProcessMultiPart(M,CT) ProcessMultiPart(M,CT)