Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Сети";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Вниз

Please помагите, как программно послать сообщение на определённый   Найти похожие ветки 

 
snoup   (2002-05-16 20:40) [0]

Please помагите, как программно послать сообщение на определённый UIN?????


 
Song   (2002-05-16 20:44) [1]

Брочь 3 эдита и 1 мемо и TClientSocket

var
Form1: TForm1;
csend: string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
cSend := "POST http://wwp.icq.com/scripts/WWPMsg.dll HTTP/2.0" + chr(13) + chr(10);
cSend := cSend + "Referer: http://wwp.mirabilis.com" + chr(13) + chr(10);
cSend := cSend + "User-Agent: Mozilla/4.06 (Win95; I)" + chr(13) + chr(10);
cSend := cSend + "Connection: Keep-Alive" + chr(13) + chr(10);
cSend := cSend + "Host: wwp.mirabilis.com:80" + chr(13) + chr(10);
cSend := cSend + "Content-type: application/x-www-form-urlencoded" + chr(13) + chr(10);
cSend := cSend + "Content-length:8000" + chr(13) + chr(10);
cSend := cSend + "Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*" +
chr(13) + chr(10) + chr(13) + chr(10);
cSend := cSend + "from=" + edit1.Text + " &fromemail=" + edit2.Text +
" &fromicq: 110206786" + " &body=" + memo1.Text + " &to=" + edit3.Text + "&Send=";
clientsocket1.Active := True;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
Socket: TCustomWinSocket);
begin
clientsocket1.Socket.SendText(csend);
clientsocket1.Active := False;
end;


 
snoup   (2002-05-16 20:54) [2]

>Song
Спасибо огромное за код но плиз скажите какой едит соотвецтвует чему???? А то я малость не понимаю!


 
Song   (2002-05-16 21:05) [3]

Edit1 - От кого (имя)
Edit2 - От кого (мыло)
Edit3 - Кому (UIN)
Memo1 - Сообщение


 
Fly`   (2002-05-16 21:26) [4]

Во... а еще встречный вопрос, если можна.
Можно ли СМСки посылать програмно ?


 
Song   (2002-05-16 21:31) [5]

Нет ничего невозможного.


 
Fly`   (2002-05-16 21:34) [6]

а как ?... какие адреса нужны и порты ?... и можно ли это бесплатно делать ?...


 
snoup   (2002-05-16 21:58) [7]

>Song
Сорри за моё ламерство, но скажите какой ип писать у клиента!???


 
Song   (2002-05-16 22:08) [8]

Host:="wwp.mirabilis.com";
Port:=80;


 
snoup   (2002-05-16 22:14) [9]

>Song
Спасибо огромное вы мне помогли!


 
Новенький в Делфи   (2002-05-16 23:01) [10]

2 Fly.. насчёт СМС, ищешь в инете сайт который этим бесплатно занимается, пишешь прогу, которая бы отправляла на этот сайт нужную инфу в нужном виде и готово:)


 
Slym   (2002-05-17 09:28) [11]

www.aist.tck.ru - пейдж гейт
На форме есть скрытое поле, идентифицирующее загруженную страничку (динамически создается), отправляешь левый form_id и он тебе фак У :(
Как с этим бороться?



Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2002.07.29;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.57 MB
Время: 0.034 c
14-95526
cyborg
2002-07-01 21:51
2002.07.29
Вау!


3-95211
Nicolaus
2002-07-05 11:45
2002.07.29
TOracleQuery -> DBGrid


4-95611
Burmistroff
2002-05-22 13:54
2002.07.29
Как закрыть приложение с правами SYSTEM?


7-95576
KPbIC
2002-05-12 03:46
2002.07.29
Enable/disable divice


14-95509
Andrew_k
2002-06-21 13:11
2002.07.29
Глюкс!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский