Форум АНТИЧАТ - CGI на Delphi. Проблема с file upload

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - CGI на Delphi. Проблема с file upload (https://forum.antichat.xyz/showthread.php?t=48590)

CGI на Delphi. Проблема с file upload

Пишу скрипт для загрузки файлов на сервер:

Код:

program upload;



{$APPTYPE CONSOLE}

{$E cgi}



uses

  windows;



var

  ch: char;

  s: string;

  buffer: PChar;

  contlength, ecode, i: integer;



procedure putfile(filename: string);

var

  f: textfile;

begin

  assignfile(f, filename);

  reset(f);

    while not (eof(f)) do

      begin

        readln(f,s);

        writeln(s);

      end;

  closefile(f);

end;



begin

  putfile('headers.txt');

  writeln;

  getmem(buffer, 256);

  if GetEnvironmentVariable('CONTENT_LENGTH',buffer,256) > 0 then

    begin

      val(buffer,contlength,ecode);

      s := '';

      for i := 1 to contlength do

        begin

          read(ch);

          s := s + ch;

        end;

      writeln(s);

      exit;

    end

  else

    begin

      putfile('top.txt');

      putfile('form.txt');

      putfile('bottom.txt');

    end;

  freemem(buffer);

end.

headers.txt :

Content-Type: text/html

top.txt :

<html>
<head>
<title>File Upload</title>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251">
</head>
<body>

form.txt :

<style>
.tb td {padding: 5px}
</style>
<form method="post" encrypte="multipart/form-data">
<input type="hidden" name="checked" value="yes">
<table class="tb">
<tr><td><input type="file" name="filename"></td></tr>
<tr><td><input type="submit" value="Ok"></td></tr>
</table>
</form>

bottom.txt :

</body>
</html>

В итоге скрипт показывает строку POST параметров, а само содержимое файла нет. + CONTENT_LENGTH показывает размер POST данных, не учитывая размер файла. Что не так?

Мо моему переменная s инициализируется позже чем идет первое обращение к ней. В начале тела программы стоит putfile('headers.txt'); в которой уже нужна s. Остальное вроде аналогично. А может я и гоню... :)

Код:

procedure putfile(filename: string);

var

  s: string;

  f: textfile;

begin

  assignfile(f, filename);

  reset(f);

    while not (eof(f)) do

      begin

        readln(f,s);

        writeln(s);

      end;

  closefile(f);

end;

Вот так правильней будет. Но сути проблемы не решает

Цитата:

Сообщение от Joker-jar

Вот так правильней будет. Но сути проблемы не решает

Не будет правильней. Объявление переменой в процедуре не инициализирует ее! У нас идет обращение к переменой s в процедуре putfile('headers.txt'); в строке readln(f,s);. Но процедура putfile('headers.txt'); расположена в самом начале тела программы
begin
putfile('headers.txt');
writeln;
getmem(buffer, 256);
if GetEnvironmentVariable .....

и переменная s в этот момент еще не инициализирована, т.е. ни чему не равна. ЕЕ инициализация происходит уже НИЖЕ в строках
s := '';
for i := 1 to contlength do
begin
read(ch);
s := s + ch;
.....
А значит в начале програмы процедура putfile('headers.txt'); выполняется с неполными данными...
нету s. Она хоть и объявлена в процедуре но не инициализирована... Оттрасируй програмку и посмотри на значение s при выполнении putfile('headers.txt'); вначале...

Тогда глобальная пусть будет не s а sd, s - локальная, там все нормально (putfile(filename: string) - подает содержимое файла filename на стандартный ввод, работает без глюков). В sd считываются данные со стандартного вывода, где, по идее, должно быть содержимое закачиваемого файла, но там кроме checked=yes&filename=1.txt ничего нет. Как добраться до него? Просьба помочь по делу.

Joker-jar, а не проще ли использовать ApacheModule?
с этим модулем разобраться проще некуда...
не мучайте себя...

Да ДжокерДжар, я затупил с переменной s.... короче я неправ. Пытаюсь разобраться с програмкой... повторно. Скрипты для веба на дельфи это для меня новинка.

Это не для практической, а для учебной цели (такое задание). А встал в самом начале :(

Короче, почитал доки, поспрашивал задротов и вот что выяснил: Apache, прежде чем отдать http-запрос CGI-скрипту, вырезает оттуда блок данных файла и сохраняет его в свою временную директорию. Далее скрипт должен узнать путь к этой директории (через переменные окружения 'TEMP', 'TMP') и оттуда скопировать полученный файл / сделать с ним что угодно. Но тут снова появилось несколько вопросов. Никогда не слышал, чтоб у Apache была какая-то временная директория, что подтвердилось просмотром httpd.conf - никакого похожего параметра не нашел. Во-вторых, в переменных окружения отсутствует этот самый путь. У IIS есть, а вот у Apache нет (хотя это может быть и потому, что он не настроен как надо). Кто-нибудь знает, предусмотрена ли в httpd какая-нибудь команда, задающая путь ко временному каталогу. Второй вопрос - как Apache обзывает эти самые файлы, ведь реальные клиентские имена он не знает?

С этим всем разобрался. Теперь надо парсить multipart... Вопрос закрыт