Регистрация Главная Сообщество
Сообщения за день Справка Регистрация

немогу понять

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 11.08.2011, 14:30   #1
 Разведчик
Аватар для tonyr
 
tonyr никому не известный тип
Регистрация: 08.08.2011
Сообщений: 3
Популярность: 2
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
Exclamation немогу понять

procedure TForm1.Button2Click(Sender: TObject);
эта часть кода выделяется красным, что в нем не так: var
PostData:TStringList;
begin
PostData.Add('todo=obliginfo');
PostData.Add('from_id='+ Edit1.Text);
PostData.Add('name=klink993');
PostData.Add('domain=nextmail.ru');
PostData.Add('password=11223320');
PostData.Add('pwdconf=11223320');
PostData.Add('fulname=аТЙК');
PostData.Add('sex=Male');
PostData.Add('bday=2011-06-03');
PostData.Add('region=29');
PostData.Add('regcode='+edt1.Text);
PostData.Add('agreed=yes');
PostData.Add('question=уЧПК УПВУФЧЕООЩК ЧПРТПУ(РПМЕ ЧЧПДБ ОЙЦЕ).');
PostData.Add('manualquest= ');
PostData.Add('answer= ');
PostData.Add('email= ');
PostData.Add('timezone=3');
PostData.Add('antibot=4776');
IdHTTP1.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.nextmail_oru.',PostData) ;
end;
  Ответить с цитированием
Старый 11.08.2011, 14:43   #2
Заблокирован
 Разведчик
Аватар для Sexafil
 
Sexafil никому не известный тип
Регистрация: 10.08.2011
Сообщений: 3
Популярность: 12
Сказал(а) спасибо: 3
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: немогу понять

Цитата:
Сообщение от tonyrПосмотреть сообщение
procedure TForm1.Button2Click(Sender: TObject);
эта часть кода выделяется красным, что в нем не так: var
PostData:TStringList;
begin
PostData.Add('todo=obliginfo');
PostData.Add('from_id='+ Edit1.Text);
PostData.Add('name=klink993');
PostData.Add('domain=nextmail.ru');
PostData.Add('password=11223320');
PostData.Add('pwdconf=11223320');
PostData.Add('fulname=аТЙК');
PostData.Add('sex=Male');
PostData.Add('bday=2011-06-03');
PostData.Add('region=29');
PostData.Add('regcode='+edt1.Text);
PostData.Add('agreed=yes');
PostData.Add('question=уЧПК УПВУФЧЕООЩК ЧПРТПУ(РПМЕ ЧЧПДБ ОЙЦЕ).');
PostData.Add('manualquest= ');
PostData.Add('answer= ');
PostData.Add('email= ');
PostData.Add('timezone=3');
PostData.Add('antibot=4776');
IdHTTP1.Post('http://nextmail.ru/reg/obligatory.phtml?r1=91&i=.nextmail_oru.',PostData) ;
end;

так та тема для пхп и даже если ты запятую не поставил уже массу ошибок выдаст
  Ответить с цитированием
Старый 11.08.2011, 14:52   #3
 Разведчик
Аватар для tonyr
 
tonyr никому не известный тип
Регистрация: 08.08.2011
Сообщений: 3
Популярность: 2
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: немогу понять

тогда какой код лучше для авторегистратора на дельфине?
  Ответить с цитированием
Старый 11.08.2011, 16:38   #4
 Старший сержант
Аватар для SCratORS
 
SCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слухуSCratORS у всех на слуху
Регистрация: 30.07.2010
Сообщений: 232
Популярность: 1456
Сказал(а) спасибо: 5
Поблагодарили 150 раз(а) в 56 сообщениях
Отправить сообщение для SCratORS с помощью ICQ Отправить сообщение для SCratORS с помощью Skype™
 
По умолчанию Re: немогу понять

Забыл после Begin Написать =)
PostData:= TStringList.create;
  Ответить с цитированием
Старый 11.08.2011, 18:57   #5
Знаток Dark Orbit
 Рыцарь-защитник
Аватар для Mebius
 
Mebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского СоюзаMebius трижды герой Советского Союза
Регистрация: 14.06.2010
Сообщений: 584
Популярность: 6626
Сказал(а) спасибо: 86
Поблагодарили 847 раз(а) в 266 сообщениях
Отправить сообщение для Mebius с помощью ICQ Отправить сообщение для Mebius с помощью Skype™
 
По умолчанию Re: немогу понять

во первых процессор сам что ль должен знать где и когда надо создавать переменную класса? (PostData:=TStringList.Create

во вторых память за тебя телепатический гномик будет освобождать? (PostData.Free)

[Ссылки могут видеть только зарегистрированные пользователи. ]. откуда это вообще взято? что то мне подсказывает, что это хрень полная, а не ссылка куда пост шлется


Цитата:
Сообщение от tonyrПосмотреть сообщение
тогда какой код лучше для авторегистратора на дельфине?

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

Последний раз редактировалось Mebius; 11.08.2011 в 19:01.
  Ответить с цитированием
Старый 11.08.2011, 20:06   #6
 Разведчик
Аватар для tonyr
 
tonyr никому не известный тип
Регистрация: 08.08.2011
Сообщений: 3
Популярность: 2
Сказал(а) спасибо: 12
Поблагодарили 1 раз в 1 сообщении
 
По умолчанию Re: немогу понять

спс=)
  Ответить с цитированием
Ответ


Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не могу понять LittleAngel Общение и обсуждение, архив Lineage 2 5 01.09.2010 20:32
[Помогите!] не погу понять!! sasha317 Общение и обсуждение, архив Point Blank 1 26.06.2010 10:31
не могу понять diablo1211 Общение и обсуждение, архив Point Blank 1 21.03.2010 17:07

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 10:02.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net