EGSoV@yandex.ru
Можете объяснить как, а то я никогда с TICQClient не работал, не говоря уж об отправке SMS.
Да, и если можно всё-таки хотелось бы узнать как можно с помощью ссылки, т.е. по интернету.
Вот я находил код, но говорят, что что-то со шлюзом(удалили что-ли этот
). Было так:
Код:
var
vWebAddr, vPostData, vFlags, vFrame, vHeaders: OleVariant;
iLoop: Integer;
text,stPostData: String;
begin
text:=Memo1.Text;
stPostData:='to='+ComboBox1.Text+'&msg='+text+'&dcs=0';
vHeaders:= 'Content-Type:application/x-www-form-urlencoded'+ #10#13#0;
vPostData:= VarArrayCreate([0, Length(stPostData)], varByte);
for iLoop := 0 to Length(stPostData)- 1 do
begin
vPostData[iLoop]:= Ord(stPostData[iLoop+1]);
end;
vPostData[Length(stPostData)]:= 0;
TVarData(vPostData).vType:= varArray;
vWebAddr:='http://sms.smarts-gsm.ru/sms.cgi';
vFlags:=navNoWriteToCache;
vFrame:=EmptyParam;
try
WebBrowser1.Navigate2(vWebAddr,vFlags,vFrame,vPostData,vHeaders);
except
end;
Раньше было: если рассмотреть HTML код страницы, то видили следующую картину:
Код:
<FORM METHOD=POST ACTION="http://sms.smarts-gsm.ru/sms.cgi">
<INPUT TYPE=text NAME=to VALUE="" SIZE=15>[номер абонента]
<TEXTAREA NAME=msg COLS=30 ROWS=5> </TEXTAREA>
<SELECT NAME=dcs>
<OPTION VALUE=0>Обычный SMS
<OPTION VALUE=24 >Flash SMS
<OPTION VALUE=200 >Индикация голосового сообщения (Вкл.)
<OPTION VALUE=192 >Индикация голосового сообщения (Выкл.)
<OPTION VALUE=201 >Иидикация наличия факса (Вкл.)
<OPTION VALUE=193 >Иидикация наличия факса (Вкл.)
<OPTION VALUE=202 >Индикация сообщения E-Mail ( Вкл. )
<OPTION VALUE=194 >Индикация сообщения E-Mail ( Выкл. )
<INPUT TYPE=reset VALUE="Clean">
<INPUT TYPE=Submit VALUE="Send >>">
</FORM>
Помогите если можете и таким способом.