Отправка данных методом post

[ANDEREY]

Здраствуите!
Помогите пожалуиста написать программу которая отправляет php скрипту данные методом post, например http://gw.kubangsm.ru/cgi-bin/cgi.ex...ch_put_sms_win зделать чтоб номер телефона это был Edit, отправить Button и т.д

[beemoto]

Вот (неправерял но должно пахать)):

var
  Form1: TForm1;
  Data:TStringList;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Data:=TStringList.Create;
Data.Add('SmsNick=' + edit1.text);
Data.Add('count='+ Memo1.text);
idhttp1.Post('http://gw.kubangsm.ru/cgi-bin/cgi.exe?function=ch_send_sms',data);
end;

вроде всё правильно понятно

[Phantom]

Существует очень хороший компонент idhttp (вкладка IndyClients).
Через данный компонент, информация (включая файлы) идет как от обычной формы методом POST.

Вот небольшая процедура которая передает в PHP скрипт файл и информацию о нем

procedure TForm2.Button2Click(Sender: TObject);
var
  {определяем переменные для выполнения поставленной задачи} 
  FileName: string; //имя файла :)
  response: string; //переменная для возращения HTML кода страницы
  formData: TIdMultiPartFormDataStream; //для передачи информации
begin
  FileName := 'c:\pic.gif'; 
  formData := TIdMultiPartFormDataStream.Create;
  {Передаем файл}
  formData.AddFile('File',fileName,'application/octet-stream');
  {Передаем информацию}
  formData.AddFormField('param1', 'value1');
  
  {
   Далее отсылаем все в php скрипт. 
   переменной response, результат выполнения скрипта (проще говоря 
   HTML код сгенерированной скриптом страницы).
  }
  
  response := idHTTP1.Post('http://myhost/ppost.php',formData);

 {
  Ну а дальше пишешь обработчик который выясняет отправлена  
  информация или нет.  
 }
end;

Вот в принципе и вся премудрость удачи тебе в разработке

[ДаниярЛ2]

Помогите плизззззз
Надо отправить запрос на сайт.
Вот исходники формы

<form name="frt_s" method="post" action="chek_anslist.php">
    <table style="width: 319px; height: 83px;">
        <tbody>
            <tr>
                <td class="t2">&quot;Введите номер листа</td>
            </tr>
            <tr>
                <td><input name="date_begin" maxlength="6" id="date_begin" />&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value="Проверить" /></td>
            </tr>
        </tbody>
    </table>
</form>

[webber9989]

Сообщение от ДаниярЛ2

Помогите плизззззз
Надо отправить запрос на сайт.
Вот исходники формы

<form name="frt_s" method="post" action="chek_anslist.php">
    <table style="width: 319px; height: 83px;">
        <tbody>
            <tr>
                <td class="t2">&quot;Введите номер листа</td>
            </tr>
            <tr>
                <td><input name="date_begin" maxlength="6" id="date_begin" />&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value="Проверить" /></td>
            </tr>
        </tbody>
    </table>
</form>

procedure TForm1.Button1Click(Sender: TObject);
 begin
  params:=TStringList.Create;

  params.add('date_begin=здесь_номер_листа');
  IdHttp1.Post('адрес_сайта/chek_anslist.php',params);
 end;