Delphi: Есть php скрипт на сайте как из дельфи передать POST запрос

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by LOger, 9 Feb 2013.

  1. LOger

    LOger New Member

    Joined:
    11 Nov 2012
    Messages:
    23
    Likes Received:
    0
    Reputations:
    -11
    Есть php скрипт на сайте как из дельфи передать POST запрос что бы это условие сработало и вывелось 'privet'

    Code:
    <?php
    $money = "string";
    if($_POST['money'] == 'hello'){ 
    echo 'privet'; 
    } 
    ?>
    

    Делаю так но нихера не получается :

    Code:
    procedure TForm1.btn1Click(Sender: TObject);
     var list: TStringList;
    begin
      list:= TStringList.Create;
      list.Add('money = hello');
      mmo1.Text:= ge1.Post('http://water-server.p.ht/gl_str.php',list);
      ShowMessage('dfgfdg');
      ge1.Post('http://water-server.p.ht/gl_str.php',list);
      mmo1.Text:= ge1.Get('http://water-server.p.ht/gl_str.php');
    end;
    
     
  2. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    Code:
    <?php
    $money = "string";
    if($_POST['money'] == 'hello'){ 
    echo 'privet'; 
    } 
    ?>
    $money нигде не используется.
    Code:
    list.Add('money = hello');
    Не нужно окружать символ = пробелами.
     
  3. LOger

    LOger New Member

    Joined:
    11 Nov 2012
    Messages:
    23
    Likes Received:
    0
    Reputations:
    -11
    пара

    $money используется тут

    Code:
    if($_POST['money'] == 'hello'){ 
    
     
  4. Chrome~

    Chrome~ Elder - Старейшина

    Joined:
    13 Dec 2008
    Messages:
    936
    Likes Received:
    162
    Reputations:
    27
    $money и 'money' - разные вещи.