IdHTTP

[akimov_aleks]

Подскожите что не так

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var FS:TFileStream;
  Data:TStringList;
  S:string;
begin
rsltedit.Text:='recognizing...';
Button1.Enabled:=false;
S:=IdHTTP1.Get('http://mobile.beeline.kz/ru/astana/sms/send.wbp');
FS:=TFileStream.Create('captcha.jpg',FMCreate);
IdHTTP1.Get('http://mobile.beeline.kz/ru/astana/sms/mamimg.aspx/mamimg.jpg', FS);
FS.Free;

rsltedit.Text:=recognize(filenameedit.Text,apikeyedit.Text,false,false,false,0,0);// антикапачи

Data:=TStringList.Create;
Data.Add('smstext='+edit3.Text);
Data.Add('smstoprefix='+edit1.Text);
Data.Add('smsto=register='+edit2.Text);
Data.Add('confirmcode='+rsltedit.Text);

S:=IdHTTP1.Post('http://mobile.beeline.kz/ru/astana/sms/send.wbp', Data);

Button1.Enabled:=true;
end; 


ошшиб.JPG

[mihali4]

[QUOTE]1. Не создавать темы с названиями, не отражающими суть вопроса, в том числе с названиями "ComboBox", "Edit" и т.п., а также темы с
названиями "Помогите...", "Решите...", "Ошибка...", "Нужна помощь", "Срочно..." и тому подобными. Такие темы будут удалены без предупреждения.[/

2. Не использовать прикрепленные файлы для исходного текста программы. Для кода есть тег CODE (значок # в редакторе ответа). Для скриншотов сложных математических формул есть тег IMG (значок картинки там же).
Темы с вложениями вместо исходного кода, а также с неправильно оформленным кодом будут мгновенно закрываться, а нарушитель - получать нарушение №6 - "Нарушение правил форума" и штраф 6 очков.
QUOTE]

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор