WMLogin

Пользователей всего:

515329

Пользователей сегодня:

Пользователей online:

148

Выплачено ($):	7`611`296,35
Выплат:	8`120`507
Писем прочитано:	1`024`989`113

Новые вопросы

Задать свой вопрос

Новые идеи

ТГ канал Беседка приток новых людей в сайт Increasing withdraw limit.Вывод денег в криптовалюте Tron, лайткоин КОПИЛОЧКА ИЛИ ЛОТЕРЕЯ Штрафы для рекламодателей.беседка переход в к последнему сообщению Вывод средств.Авито Ошибка вывода средств.Возможность удалять записи в дневнике пользователя

Создать свою идею


	5 Все темы Мои темы Популярные темы Закрытые темы Все ответы

Тема #170065

Внимание! В разделе запрещается:

Мат (оскорбления)
Частично реклама
Нарушение законодательства РФ
Попрошайничество и просьбы одолжить деньги, кредиты или монеты

	# +2 [04.03.2013 17:27] kovdens 0.00 +14
	Где тут ошибка? Delphi кодеры, сюда! Пишут, что тут ошибка: http://4.firepic.org/4/images/2013-03/04/dwc4n3uduqgw.jpg begin sleep(1000); httpsend.HTTPMethod('POST','s+Edit1.Text') Application.ProcessMessages end Вот полный текст: unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, OleCtrls, SHDocVw, httpsend, ssl_openssl; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; Label1: TLabel; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation var Stop : boolean; {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var s: string; httpsend: THTTPSend; begin Button2.Enabled:=True; Button1.Enabled:=False; Stop:=False; s:='https://bla-bla-bla'; while not(Stop) do begin sleep(1000); httpsend.HTTPMethod('POST','s+Edit1.Text') Application.ProcessMessages end end; procedure TForm1.Button2Click(Sender: TObject); begin Stop:=True; Button2.Enabled:=False; Button1.Enabled:=True; end; end. дам центы за хорошие ответы!
	Раздел: Другое, последний комментарий: 04.03.2013 17:44 Тема закрыта пользователем MiSsiS_IA
Проголосовали: azverin, #997157

Ответы
Ответов всего: 13	тема закрыта

	# +1 [04.03.2013 17:28] azverin 0.00 +24 Я знаю где ошибка
Проголосовали: kovdens

	# +1 [04.03.2013 17:28] kovdens 0.00 +14 azverin пишет Я знаю где ошибка не надо говорить, что в ДНК
Проголосовали: azverin

	# +1 [04.03.2013 17:29] azverin 0.00 +24 kovdens пишет не надо говорить, что в ДНК Не, в коде)
Проголосовали: kovdens

	# 0 [04.03.2013 17:30] kovdens 0.00 +14 azverin пишет kovdens пишет не надо говорить, что в ДНК Не, в коде) ну так скажи)

	# +1 [04.03.2013 17:31] #950088 пошёл-ка я пива выпью.... потом скажу....
Проголосовали: kovdens

	# +2 [04.03.2013 17:31] #1376936 kovdens пишет HTTPMethod('POST','s+Edit1.Text') не правильнее было бы HTTPMethod('POST','s'+Edit1.Text)? в delphi не шарю, поэтому ссори, если не так
Проголосовали: kovdens, #1316842

	# 0 [04.03.2013 17:32] kovdens 0.00 +14 #950088 пишет пошёл ка я пива выпью.... потом скажу.... ну что такое? Добавлено спустя 02 минуты 10 секунд #950088 пишет пошёл-ка я пива выпью.... потом скажу.... http://4.firepic.org/4/images/2013-03/04/dwc4n3uduqgw.jpg

	# +1 [04.03.2013 17:35] #950088 kovdens пишет #950088 пишет пошёл ка я пива выпью.... потом скажу.... ну что такое? я тут без пол-литра не обойдусь.... нужно вдохновение....
Проголосовали: kovdens

	# +1 [04.03.2013 17:36] #748928 Не понял каким образом Stop изменит своё значение на true? Чтобы Click сработал необходимо, чтобы цикл While закончился.
Проголосовали: kovdens

0 [04.03.2013 17:39] kovdens

0.00

+14

#748928 пишет Не понял каким образом Stop изменит своё значение на true?
Чтобы Click сработал необходимо, чтобы цикл While закончился.

да это работает все работает пока не нажму старт http://4.firepic.org/4/images/2013-03/04/dwc4n3uduqgw.jpg
http://4.firepic.org/4/images/2013-03/04/qh8txd8zysh7.jpg

0 [04.03.2013 17:40] #1316842

#1376936 пишет

kovdens пишет HTTPMethod('POST','s+Edit1.Text')

не правильнее было бы
HTTPMethod('POST','s'+Edit1.Text)?

в delphi не шарю, поэтому ссори, если не так

httpsend.HTTPMethod('POST','s+Edit1.Text')

приклей к s свой текст до... а то у тебя во втрором поле передается именно s+Edit1.Text а не урла
второй момент стоп = передаче...

0 [04.03.2013 17:41] kovdens

0.00

+14

Добавлено спустя 100500 секунд

#1316842 пишет

#1376936 пишет

kovdens пишет HTTPMethod('POST','s+Edit1.Text')

не правильнее было бы
HTTPMethod('POST','s'+Edit1.Text)?

в delphi не шарю, поэтому ссори, если не так

httpsend.HTTPMethod('POST','s+Edit1.Text')

приклей к s свой текст до... а то у тебя во втрором поле передается именно s+Edit1.Text а не урла

s:='https://bla-bla-bla';

+2 [04.03.2013 17:44] #1316842

kovdens пишет Stop:=False;
s:='https://bla-bla-bla';
while not(Stop) do
begin
sleep(1000);
httpsend.HTTPMethod('POST','s+Edit1.Text')
Application.ProcessMessages
end

Stop:=False;
s:='https://bla-bla-bla'+Edit1.Text;
while not(Stop) do
begin
sleep(1000);
Stop=httpsend.HTTPMethod('POST',s)
Application.ProcessMessages
end

раскуривай что возвращает httpsend при успешной передаче... и что при неуспешной.

з.ы. на делфях не кодю... кодю на пыхе и чуток в шарпе...

Проголосовали: #748928, kovdens

Видеоурок

Беседка

Интеграция медиа

НОВОСТИ

19.04.2024Технические работы с СБП
подробнее>>03.04.2024Выплаты
подробнее>>

Юридическая помощь

Новые темы

Новая фармилка телеграм!УРА!!! Пятница!!!Окно для скринов при выполнении задания.Сегодня ровно 33 Трям, здравствуйте! Принимаю поздравления и раздаю халяву даров посоны UPD:3 копейки раздаю Сабатон - Голубой вагон (Ребятки, это песня!)Взвейтесь кострами, синие ночи!150$ На Халяву!1$

Обсудить свою тему

Тема #170065

Где тут ошибка? Delphi кодеры, сюда!