Apathy^^
Сообщений: 96
Оценки: 10
Присоединился: 2011-07-01 17:14:09.226666
|
Пытаюсь начать писать программу но пока фигово выходит, не подскажите почему смс не идет?пост запрос вообще на ту страницу делаю? с капчей все правильно или нет?сайт для отправки http://cell.motivtelecom.ru/ekb/smssend PS впервые работаю с сетью-нуб нубом. Очень надеюсь на вашу помощь8|
//---------------------------------------------------------------------------
#include <jpeg.hpp>
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <string>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "SHDocVw_OCX"
#pragma resource "*.dfm"
TForm1 *Form1;
AnsiString name,code,phone,txt,senddate,hdelay,mdelay,captcha,page,cookie;
int Position;
TStringList *list = new TStringList;
TMemoryStream *Stream=new TMemoryStream;
TStringList *sms= new TStringList();
TMemoryStream *result= new TMemoryStream();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
page= IdHTTP1->Get("http://cell.motivtelecom.ru/ekb/smssend");
Edit4->Text=senddate;
IdHTTP1->Get("http://cell.motivtelecom.ru/ekb/phpcaptcha/image?rand=7675571",Stream);
Stream->SaveToFile("c:\\1.jpg");
Image1->Picture->LoadFromFile("c:\\1.jpg");
delete Stream;
IdHTTP1->Response->ExtraHeaders->Extract("Set-cookie", list);
//cookie = list->CommaText;
//cookie=cookie.SubString(cookie.Pos("ycc")+4,32);
Memo1->Lines->Add(list);
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{
name=Edit1->Text;
code=ComboBox1->Text;
if(code=="900 19")code=0;
if(code=="900 20")code=1;
if(code=="900 21")code=2;
if(code=="902 87")code=3;
if(code=="904 16")code=4;
if(code=="904 17")code=5;
if(code=="904 38")code=6;
if(code=="904 54")code=7;
if(code=="904 98")code=8;
if(code=="908 64")code=9;
if(code=="908 90")code=10;
if(code=="908 91")code=11;
if(code=="908 92")code=12;
if(code=="950 19")code=13;
if(code=="950 20")code=14;
if(code=="950 63")code=15;
if(code=="950 64")code=16;
if(code=="950 65")code=17;
if(code=="952 13")code=18;
if(code=="952 14")code=19;
if(code=="952 72")code=20;
if(code=="952 73")code=21;
if(code=="952 74")code=22;
if(code=="953 00")code=23;
if(code=="953 03")code=24;
if(code=="953 04")code=25;
if(code=="953 05")code=26;
if(code=="953 38")code=27;
if(code=="953 60")code=28;
phone=Edit3->Text;
txt=Memo1->Text;
senddate=Edit4->Text;
hdelay=Edit5->Text;
mdelay=Edit6->Text;
captcha=Edit7->Text;
sms->Add("smssend[name]="+name);
sms->Add("smssend[code]="+code);
sms->Add("smssend[phone]="+phone);
sms->Add("smssend[txt]="+txt);
sms->Add("smssend[send_date]="+senddate);
sms->Add("smssend[hdelay]="+hdelay);
sms->Add("smssend[mdelay]="+mdelay);
sms->Add("smssend[captcha]="+captcha);
IdHTTP1->Post("http://cell.motivtelecom.ru/ekb/smssend",sms,result);
result->SaveToFile("in.html");
}
//---------------------------------------------------------------------------
|