Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 21.04.2009, 19:29   #41
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

зачем те таймер?)

напиши в var
Код:
var
stream:tmemorystream;
потом в самомо начале напиши
stream:=tmemorystream.create;

и вместо
Код:
idhttp1.Post('http://www.megafonkavkaz.ru/sms',data);
напиши

Код:
idhttp1.Post('http://www.megafonkavkaz.ru/sms',data,stream);
теперь с потока сохрани html страницу, например
Код:
stream.savetofile('e:\1.html')
открой и посмотри, там те сервер напишет ошибку, ну а дальше сам посмотри
Joe_Tribbiani вне форума
Старый 21.04.2009, 19:38   #42
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Ошибку даёт
синим текстом
idhttp1.Post('http://www.megafonkavkaz.ru/sms',data,stream);
подчеркивает
mustang007 вне форума
Старый 21.04.2009, 19:43   #43
Joe_Tribbiani
Форумчанин
 
Аватар для Joe_Tribbiani
 
Регистрация: 14.02.2009
Сообщений: 110
По умолчанию

аа )) даа)) , ну наверное потому что
Код:
list:=TStringList.Create;
а ты пишеш:
Код:
idhttp1.Post('http://www.megafonkavkaz.ru/sms',data,stream);
Joe_Tribbiani вне форума
Старый 24.04.2009, 20:12   #44
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

неет! чё та другое!
вот код:
Код:
procedure TForm1.Button6Click(Sender: TObject);
var
stream:tmemorystream;
list: TStringList;
begin
list:=TStringList.Create;
button7.Enabled:=true;
list.Add('phone_number=' + edit1.text);
list.Add('msg=' + memo1.text);
list.Add('passwd='+ edit8.text);
list.Add('sender='+ Edit7.text);
list.Add('to_translit='+ CheckBox1.Hint);
idhttp1.Post('http://www.megafonkavkaz.ru/sms',list,stream);
stream.savetofile('c:\1.html');
 list.Free;
    IdHTTP1.Disconnect;
Timer1.Enabled:=true;
end;
end.
но он после отправки сообщения ошибку даёт!
__________________________________
О всё заработало! я stream убрал и заработало!
мока можете помочь в image загрузить

Последний раз редактировалось mustang007; 24.04.2009 в 20:58.
mustang007 вне форума
Старый 30.04.2009, 18:24   #45
oe24
 
Регистрация: 29.04.2009
Сообщений: 8
Хорошо

Я извиняюсь, mustang007, подскажи, пожалуйста, каким ты сниффером и как пользовался для определения что именно посылает браузер в POSТ (ну, например, как у тебя sender, phone_number).
Очень нужно! Подскажи, пожалуйста!!!
Спасибо.
oe24 вне форума
Старый 30.04.2009, 19:07   #46
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Это можно наити в исходном коде страницы.
А так определял через этот сниффер http://slil.ru/27498859
mustang007 вне форума
Старый 01.05.2009, 08:32   #47
oe24
 
Регистрация: 29.04.2009
Сообщений: 8
Вопрос

mustang007!
Тысяча извинений!!! Я не понял, как определить эти параметры через сниффер, который ты посоветовал. Ты не мог бы объяснить, пожалуйста!!!
Я делаю аналогичную фигню для freesms.mts.by
oe24 вне форума
Старый 01.05.2009, 10:50   #48
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Вводите URL, далее когда загрузится страница заполняете поля и нажимаете отправить, он вам даст post данные
mustang007 вне форума
Старый 01.05.2009, 16:06   #49
oe24
 
Регистрация: 29.04.2009
Сообщений: 8
По умолчанию

Извините, но у меня ничего не появляется после нажатия на кнопку "отправить"? Никакого POSTa не вижу... Подскажите, детальней, пожалуйста?.. Спасибо!
И ещё: не могли бы Вы выложить исходники Вашей разработанной программы, то, что есть. Спасибо.
oe24 вне форума
Старый 01.05.2009, 17:02   #50
mustang007
Пользователь
 
Регистрация: 13.04.2009
Сообщений: 72
По умолчанию

Ой там на сервере кнопка другая кнопка там без post данных кажется, я посмотрел в исходном коде там пост тока один.
Скажите ваш регион если кранодарский краи то от сюдого можно отправить http://gw.kubangsm.ru/cgi-bin/cgi.ex...ch_put_sms_win
mustang007 вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обход капчи kobe24 Общие вопросы по программированию, компьютерный форум 13 09.03.2009 20:28
Загрузка в Image и считование Cookies Volt Общие вопросы Delphi 0 04.02.2009 15:42
Загрузка .ico на image через Resource delphin100 Мультимедиа в Delphi 6 28.01.2009 18:44
Вывод капчи, работа с куками. NikLik Работа с сетью в Delphi 3 10.10.2008 11:58
Image, загрузка JPEG Terran Мультимедиа в Delphi 4 19.12.2007 20:08