Поток исполняется 15 раз - Общие вопросы Delphi

grafgrial · 06.06.2011, 15:06

написал поток, на сайте записывает страну и город из edit только почему то 15 раз умдряется записать, почему?

Код:

procedure TNewd.execute;
//var logd:string;
begin
//logd:=Transliteration(Form2.edit1.Text);
try
    Http2:= TIdHTTP.Create(Application);
    Data:= TStringList.Create;
    Http2.AllowCookies := true;
    Http2.HandleRedirects := true;
    Data.Add('country=' +Form2.edit1.Text);
    Data.Add('city=' + Form2.edit2.Text);
    Data.Add('knopka=Import');
    Http2.Post('http://.../temp.php', Data);
finally
    Data.Free;
    Http2.Free;
end;
end;

на сайте стоит этот код

Код:

<?
  $script=$_SERVER["PHP_SELF"];  
  $file="log.txt";                
        $method = $_SERVER["REQUEST_METHOD"];
        if($method == "POST"){
           $country = @$_POST['country'];
            $city = @$_POST['city'];
        if (!get_magic_quotes_gpc()) {
                $country = addslashes($country);
                $city = addslashes($city);
        }
            $fl = fopen($file,"a+");
            flock($fl,LOCK_EX);
                fputs($fl,$country.'=-= '.$city."\n");
            flock($fl,LOCK_UN);
            fclose($fl);
            Header("Location: $script");
            exit;
    }
?>
<!DOCTYPE HTML PUBLIC '-//W3C//DTD HTML 4.01 Transitional//EN' 'http://www.w3.org/TR/html4/loose.dtd'>

<html>
<head>
<title>Информатор версии программы</title>
<meta http-equiv='Content-Type' content='text/html; charset=windows-1251'>
</head>
<body>
<form action="<?=$script?>" method="post">
<pre>
Country <input type="text" name="country" size="30">
City <input type="text" name="city" size="30">

<input type="submit" name="knopka" value="Import">
</pre>
</form>

kakawkin · 06.06.2011, 15:59

а зачем ты ж весь код написал между
try
finally

???

grafgrial · 07.06.2011, 12:37

не в этом дело

mss · 07.06.2011, 12:42

Цитата:

не в этом дело

Конечно не в этом)
Смотри внимательно кривой пых-скрипт на сайте. Проблема-то в нем, а не в Делфи и не в потоке - никто иной как он "умудряется")

07.06.2011, 12:37	#3
grafgrial Просто хороший Форумчанин Регистрация: 26.03.2010 Сообщений: 562	не в этом дело Помог, нажми весы слева

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
LINQ.. исполняется впервые)))	Teksa	Общие вопросы .NET	0	06.10.2010 10:17
Поток. Не получается создать поток. Выдает ошибки при запуске	bigory	Общие вопросы по Java, Java SE, Kotlin	3	23.09.2010 00:40
поток	Артэс	Общие вопросы C/C++	9	08.07.2010 12:12
поток	Артэс	Общие вопросы C/C++	3	09.12.2009 22:20
ПОТОК	Neymexa	Общие вопросы .NET	5	12.05.2009 01:03

06.06.2011, 15:59	#2
kakawkin Форумчанин Регистрация: 21.09.2009 Сообщений: 431	а зачем ты ж весь код написал между try finally ???