Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.03.04;
Скачать: CL | DM;

Вниз

cgi не пишет в файл(txt). Но файл создает.   Найти похожие ветки 

 
Vlad Oshin ©   (2007-02-13 15:37) [0]

Запущен IIS. На кнопку формы подвешен этот обработчик

procedure InitParams; //инициализация
var
STR: string;
StdIn:cardinal;
Size: cardinal;
Actual:dword;
begin
StdIn := GetStdHandle(STD_INPUT_HANDLE);
Size := SetFilePointer(StdIn, 0, nil, FILE_END);
SetFilePointer(StdIn, 0, nil, FILE_BEGIN);
SetLength(STR,Size+1);
if (Size <= 0) then Exit;
ReadFile(StdIn, STR[1], Size, dword(Actual), nil);
STR[Size+1] := #0;
InParams:=PChar(@STR[1])
end;
// само ===============================================
var
UserId, Password: string;
f:textfile;
begin
InitParams;
UserId:=ParamByName("USERID");
Password:=ParamByName("PASSWORD");
WriteLn("Content-Type: text/html");
WriteLn;
WriteLn("<html>");
WriteLn("<head>");
if(UserId="1") and (Password="1")
 then begin
       WriteLn("<title>СGI скрипт: доступ разрешен</title>");
       WriteLn("</head>");
       WriteLn("<body>");
       WriteLn;
       WriteLn("<h1>доступ разрешен</h1>");
      end
 else begin
       WriteLn("<title>СGI скрипт: ошибка авторизации</title>");
       WriteLn("</head>");
       WriteLn("<body>");
       WriteLn;
       WriteLn("<h1>ошибка авторизации</h1>");
      end;
WriteLn(" UserID: "+UserId+"");
WriteLn(" Password: "+Password+"");
WriteLn("</body>");
WriteLn("</html>");
// тут выдает как надо: доступ разрешен UserID: 1 Password: 1

// следующее отрабатывает сразу (файл создается, но он пустой). Почему?
assignfile(f,"c:\myIlog.txt");
filemode:=2;
if fileexists("c:\myIlog.txt") then reset(f)
                               else rewrite(f);
append(f);
writeln(f,"UserID:"+UserID);
writeln(f,"Password:"+Password);
writeln(f);


 
Плохиш ©   (2007-02-13 15:41) [1]

closefile(f); ?


 
Правильный Вася   (2007-02-13 15:47) [2]

права-то есть?


 
Vlad Oshin ©   (2007-02-13 15:48) [3]

блин.. сам же всем советую..
сколько еще раз наступать на эти грабли :)

причем и было closefile(f);
только после условия, которое не выполняется, как оказалось



Страницы: 1 вся ветка

Текущий архив: 2007.03.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.041 c
2-1171433995
Шматко О.Н
2007-02-14 09:19
2007.03.04
Нужен совет


2-1171536281
SQL
2007-02-15 13:44
2007.03.04
Проблемма с вводом даты в Windows XP


2-1171613708
kulkse
2007-02-16 11:15
2007.03.04
программа возвращает значение


15-1170847937
ПЛОВ
2007-02-07 14:32
2007.03.04
ADO Express Patch Utility


15-1170650293
Ssilent
2007-02-05 07:38
2007.03.04
Может кто знает?