Помогите зделать POST запрос для отправки СМС [D7, WinXP]
mm0 © (2005-07-24 06:06:00)
Необходимо зделать пост запрос на сайт,если запрос будет
выполнен правильно,то должна появится надпись "ваше сообщение
успешно отправлено".
Я зделал 2-варианта,но неодин успешно невыполнятся.В
чем ошибка?.Помогие.
ФОРМА:
***cайт:
http://www.dti.ruраздел:Отправка SMS
***
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:00) [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.
Наверх 
ЧАТ |
Орешник |
|
