VPF::IdHTTP -> передача параметров скрипту

Snowy

Дата 12.7.2006, 18:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Вот код маппера.
http://forum.vingrad.ru/index.php?showtopi...st&p=689298
Настрой его на подключение к серверу. Хост - adres, порт 80.
В браузере и программе настрой прокси: хост - localhost, порт - порт мапера.
В указанный файл будет сброшен весь траффик.
Если и есть разница в запросах - увидишь её в файле.

inside

Дата 12.7.2006, 18:13 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

вот здесь выдается 0... Для меня только этот код сложноват. Кто-нибудь понимает - где именно ошибка? (точнее не ошибка - это move из File::Copy, а почему не получается скопировать?)

Код


    my($from,$to) = @_;

    my($fromsz,$tosz1,$tomt1,$tosz2,$tomt2,$sts,$ossts);

    if (-d $to && ! -d $from) {
    $to = _catname($from, $to);
    }

    ($tosz1,$tomt1) = (stat($to))[7,9];
    $fromsz = -s $from;
    if ($^O eq 'os2' and defined $tosz1 and defined $fromsz) {
      # will not rename with overwrite
      unlink $to;
    }
    return 1 if rename $from, $to;

    # Did rename return an error even though it succeeded, because $to
    # is on a remote NFS file system, and NFS lost the server's ack?
    return 1 if defined($fromsz) && !-e $from &&           # $from disappeared
                (($tosz2,$tomt2) = (stat($to))[7,9]) &&    # $to's there
                ($tosz1 != $tosz2 or $tomt1 != $tomt2) &&  #   and changed
                $tosz2 == $fromsz;                         # it's all there

    ($tosz1,$tomt1) = (stat($to))[7,9];  # just in case rename did something

    {
        local $@;
        eval {
            local $SIG{__DIE__};
            copy($from,$to) or die;
            my($atime, $mtime) = (stat($from))[8,9];
            utime($atime, $mtime, $to);
            unlink($from)   or die;
        };
        return 1 unless $@;
    }
    ($sts,$ossts) = ($! + 0, $^E + 0);

    ($tosz2,$tomt2) = ((stat($to))[7,9],0,0) if defined $tomt1;
    unlink($to) if !defined($tomt1) or $tomt1 != $tomt2 or $tosz1 != $tosz2;
    ($!,$^E) = ($sts,$ossts);
    return 0;

Это сообщение отредактировал(а) Snowy - 13.7.2006, 10:09

inside

Дата 12.7.2006, 18:36 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

Snowy, в Мапере поставил - хост - Айпи сервера, порт -80
В Браузере И Программе - хост- localhost, порт - 80.
всё правильно?

Браузер вообще ничего не отображает - ошибка 501. Программа вроде подключается, но логи не пишет. Где я накосячил?

inside

Дата 12.7.2006, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 37
Регистрация: 12.7.2006

Репутация: нет
Всего: нет

Snowy, ты не поверишь - я засунул отправку запроса в обработку EndWork IdFTP.... Знаю, поступок героический, но понял, что косяк в этом после того, как досконально перепробовал все остальные варианты. Спасибо тебе большое =)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »