Помогите зделать POST запрос для отправки СМС

← →
mm0 (2005-07-24 06:06) [0]

Необходимо зделать пост запрос на сайт,если запрос будет выполнен правильно,то должна появится надпись "ваше сообщение успешно отправлено".
Я зделал 2-варианта,но неодин успешно невыполнятся.В чем ошибка?.Помогие.

ФОРМА:

<form name="form1" method="post" action="/?fsid=50">
<input type="hidden" name="act" value="send">
<input name="phone" type="text" class="form-fld" maxlength="11">
<textarea name="message" cols="40" rows="5" wrap="PHYSICAL" class="form-fld"></textarea>
<input type="submit" name="Submit" value="Отправить SMS" class="form-fld">
</form>

***cайт:http://www.dti.ru раздел:Отправка SMS
***<form name="form1" method="post" action="http://www.dti.ru/?fsid=50">

var
mes0,num1:string;
begin
...
mes0:="123";
num1:="7904220xxxx";xxxx-любые 4-цифры ;такие номера у нас в городе есть.....
...

Вариант1
....
uses IdMultipartFormData;
....
var
data: TIdMultiPartFormDataStream;
begin
data := TIdMultiPartFormDataStream.Create;
try
{ add the used parameters for the script }
data.AddFormField("act", "send");
data.AddFormField("phone", num1);
data.AddFormField("message", mes0);

{ Call the Post method of TIdHTTP and read the result into TMemo }
Memo1.Lines.Text := IdHTTP1.Post("http://www.dti.ru/index.php/?fsid=50", data);
finally
data.Free;
end;

Вариант2:
var
i: Integer;
EncodedStr: string;
Header: OleVariant;
Post: OleVariant;
begin
// Make the post string URL encoded
EncodedStr := "act=send&phone="+num1+"&message="+mes0;
// The post must be an array. But without null terminator (-1)
Post := VarArrayCreate([0, Length(EncodedStr) - 1], varByte);
// Put Post in array
for I := 1 to Length(EncodedStr) do
Post[I - 1] := Ord(EncodedStr[I]);
Header := "Content-Type: application/x-www-form-urlencoded" + #10#13;
status:=tsend;
WebBrowser1.Navigate("http://www.dti.ru/index.php/?fsid=50", EmptyParam,
EmptyParam, Post, Header);
end;

← →
XProger © (2005-08-20 00:41) [1]

program sms_send;

uses
Windows, Dialogs,
ShellApi,
SysUtils;

var
zMsg, zNum, zDay, zMonth, zYear : string;
ff : _SYSTEMTIME;
begin
GetSystemTime(ff);
if InputQuery("Сообщение", "Введите сообщение для засранца", zMsg) then
if zMsg <> "" then
begin
zNum := "8165320";
zDay := IntToStr(ff.wDay+1);
zMonth := IntToStr(ff.wMonth);
zYear := IntToStr(ff.wYear);
ShellExecute(0, nil, PChar("http://sms.mts.ru/cgi-bin/cgi.exe?function=sms_send&isFree=1&MMObjectType=0&MMObjectID=&To=7916"+zNum+"&Msg="+zMs g+"&count="+IntToStr(Length(zMsg))+"&Hour=10&Min=43&Day="+zDay+"&Mon="+zMonth+"&Year="+zYear+"&Lang=2"), "", "", SW_HIDE);
end;
end.

Помогите зделать POST запрос для отправки СМС Найти похожие ветки