[hunt]

Помогите отправить правильно запрос, сделал пол программы, программа уже умеет получать картинку капчи, а вот отправлять обратно не могу научить. При отправке прога просто закрываеться и все...
сайт
irk.ru/sms/
то что идет с браузера
http://www.pictureshack.ru/images/6881123.JPG
то что шлет прога
http://www.pictureshack.ru/images/3585321.JPG

procedure TForm1.Button1Click(Sender: TObject);
var
data:TStringList;
begin
data:= TStringList.Create;
try
data.Add('_method POST');
data.Add('irk '+Edit2.Text);
data.Add('data[_name] Sms');
data.Add('data[Sms][number] '+ComboBox1.Text);
data.Add('data[Sms][massage] peter888 русский текст');
data.Add('data[Sms][code] '+edit1.Text);
IdHTTP1.Post('http://www.irk.ru/sms/', data);
finally
data.Free;
end;
end;

что не так?
на форме есть кнопка "отправить", её нужно как то тоже нажать?

[PhoeniX]

Код:

data.Add('_method POST'); // Эту строчку нах удали
data.Add('irk='+Edit2.Text); // Названия и значения раздели не пробелами, а знаком =
....

И всё заработает.

[pesi]

На счет _method POST не соглашусь.
Могут возникнуть проблеммы с текстом смс:
1. Придется перегонять в Utf8.
2. Если текст имеет переход на новую строку тобишь #13#10.

[hunt]

data.Add('irk='+Edit2.Text);
Так тоже пробовал, не хочет и так работать, там же отчетливо видно на втором скрине что вообще не чего не посылает методом POST.

[pesi]

Код:

var
Data: TStringList;
Otvet: String;
begin
data:= TStringList.Create;
try
data.Add('_method=POST');
data.Add('data[_name]=Sms');
data.Add('data[Sms][number]='+ComboBox1.Text);
data.Add('data[Sms][massage]=peter888 русский текст');
data.Add('data[Sms][code ]='+edit1.Text); //после code уберите пробел а то получается тег [CODЕ]
data.Add('irk='+Edit2.Text);
Otvet:=IdHTTP1.Post('http://www.irk.ru/sms/', data); //получили ответ и смотрим, что там написано
finally
data.Free;
end;
end;

[hunt]

ВСЕМ спс, проблема была чуть в другом, но = тоже на до было! С русским текстом скорее всего тоже будет проблема, по этому поводу позже отпишусь!

[hunt]

data.Add('data[Sms][message]=peter888 русский текст');
русский текст вообще не как не приходит!

[pesi]

Код:

data.Add('data[Sms][message]='+AnsiToUtf8('peter888 русский текст'));

[hunt]

ОК все работает!
Вобщее это пока так текст вводиться, а по задумке текст из TMemo туда будет поподать.

Чего то оно не хотит с TMemo работать, может есть что то удачнее, подскажие плиз.......

[pesi]

Приходит только первая строка?

[hunt]

вообще не хочет посылать, а точнее я не знаю как это зделать хочется так

data.Add('data[Sms][message]='+AnsiToUtf8+(TMemo1.Lines));

но знаю что непавельно, AnsiToUtf8 работает со строками, надо наверное цыкл что бы он по строкам считывал с Мемо и в [Sms][message] загонял, а с другой стороны там строк не надо смс в одну строку можно, просто дизайн программы зделан что там где смс вводишь окно широкое.

Еще одна проблема, то ли сайт, то у меня прога, не дает повторно отправить тот же текст, нужно обязательно менять хотя бы один символ, а в значение результата строницы(

Otvet:=IdHTTP1.Post('http://www.irk.ru/sms/', data); //получили ответ и смотрим, что там написано

) приходит что смс отправлено!

[pesi]

Код:

data.Add('data[Sms][message]='+AnsiToUtf8(Memo1.Text));

Или если что так

Код:

data.Add('data[Sms][message]='+AnsiToUtf8(StringReplace(Memo1.Text, #13#10, '', [rfReplaceAll, rfIgnoreCase]));

[hunt]

у мемо нет свойства техт, там добавляеться по строкам в Lines(Tstring) это массив из строк получается.

Сделал так, data.Add('data[Sms][message]='+AnsiToUtf8(Edit3.Text));
Растянул эдит, можно сделать так что бы текст в эдите писался не в одну строчку, а переходил на следующюю.
Но проблама того что повторно не отправляет тот же текст даже на другой номер не ушла, капчу естественно обнавляю.

[pesi]

Как это нет Memo1.Text, куда оно делось?

[PhoeniX]

Memo1.Lines.Text... *ROFL* *LOL*