Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Send ICQ message [D7, Win95/98, WinXP]


Wiz@rd ©   (2004-04-04 22:33:00) 

Как послать мессагу на ICQ? Раньше работал такой код:

PUrl := ' http://wwp.icq.com/scripts/WWPMsg.dll?to='+Ptoicqnumber+'&from='+PFrom+'&fromemail='+Pfromemail+'&subject='+PSubject+'& body='+PBody;
StrURL := PUrl;

strRead := '';
hHttpSession := InternetOpen ('GetURL', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, INTERNET_FLAG_NO_CACHE_WRITE );
InternetQueryOption(hHttpSession , INTERNET_OPTION_CONNECT_TIMEOUT , @nTimeOut , nRead);
nTimeOut := TimeOut;
InternetSetOption(hHttpSession , INTERNET_OPTION_CONNECT_TIMEOUT , @nTimeOut , nRead);

try
  hReqUrl := InternetOpenURL (hHttpSession, PChar(StrUrl), nil, 0,0,0);
finally
  InternetCloseHandle (hReqUrl);
  InternetCloseHandle (hHttpSession);
end;

А щас чё та не работает - видимо линк поменялся


Wiz@rd   (2004-04-06 11:14:00) [1]

У всех работает - а у него нет!

Покажи пример - может я чё то не так делаю?


  (2004-04-05 21:47:00) [2]

Удалено модератором


Wiz@rd   (2004-04-05 11:32:00) [3]

Там есть ICQClient - я знаю - но надо минимум кода для отправки - лучше линк какого-нить скрипта


Wiz@rd   (2004-04-05 11:31:00) [4]

да знаю я этот сайт - я там уже задал такой же вопрос


Verg   (2004-04-05 11:22:00) [5]

http://www.cobans.net/


Wiz@rd   (2004-04-05 11:20:00) [6]

Не неработает...


93028472384   (2004-04-05 00:37:00) [7]

шли на мыло xxxxxxx@pager.icq.com, где ххххххх - нумер уйна


Наверх

Титульная страница Поиск, карта сайта Написать письмо