Решил написать программу для передачи данных в скрипт на веб-сервере.
Помогите исправить код, прога не пашет, уже час сижу...
Отдельно написал для запроса капчи, всё получилось, а вот с этим проблемы((
Код:
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