![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Решил написать программу для передачи данных в скрипт на веб-сервере.
Помогите исправить код, прога не пашет, уже час сижу... Отдельно написал для запроса капчи, всё получилось, а вот с этим проблемы(( Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, pngimage; type Tname = class(TForm) IdHTTP1: TIdHTTP; IdAntiFreeze1: TIdAntiFreeze; name: TEdit; tel: TEdit; Button1: TButton; Memo1: TMemo; Memo2: TMemo; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var name: Tname; implementation {$R *.dfm} procedure Tname.Button1Click(Sender: TObject); var PostData:TStringList; begin try PostData:=TStringList.Create; PostData.Add('name=keeper'); PostData.Add('tel=8800000000'); IdHTTP1.Post('http://zverteam.ru/php/update.php',PostData); Memo1.Text:=IdHTTP1.Post('http://zverteam.ru/php/update.php', PostData); finally PostData.Free; end; end; end. Вообще никаких реакций на нажатие кнопки. Ссылки рабочие, сама форма находится по адресу _http://zverteam.ru/php Последний раз редактировалось keeper.ok, 18.02.2011 в 12:13. |