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

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

Многопотоковая отправлялка SMS [D7]


Sollo ©   (2004-08-26 09:26:00) 

Люди !
Подскажите плиз как мне решить проблемку.

SMS через TClientSocket на сервер я отправлять умею, а вот как сделать так, чтобы программа создавала несколько нитей по отпрвавке понять не могу.
Нужно: чтобы создался поток содержащий TClientSocket, без формы, сокет отправляет данные, обмен завершается и нить прекращает свое существование.


Sollo   (2004-08-27 06:51:00) [1]

Digitman ©
Спасибо большое за ответ !
Алхимик ©
Спасибо за поддержку ! :)


Sollo   (2004-08-27 06:33:00) [2]

Alex Konshin ©
Однообразно мыслите ! :(

Я охранную систему делаю, которая будет отправлять сообщение на телефоны.


Алхимик   (2004-08-27 02:41:00) [3]


> [2] Alex Konshin ©   (26.08.04 20:36)
> Ничего личного, но нафига спамерам помогать?
> Я не вижу этому никакого мирного применения.

Делали как то опрос сети игровых автоматов через SMS.
Заказчик захотел.


RaPtoR_1   (2004-08-26 22:18:00) [4]

Удалено модератором
Примечание: Оффтоп...


Alex Konshin   (2004-08-26 20:36:00) [5]

Ничего личного, но нафига спамерам помогать?
Я не вижу этому никакого мирного применения.


Digitman   (2004-08-26 09:34:00) [6]

procedure TMyThread.Execute;
var
 cs: TClientSocket;
begin
 try
  cs := TClientSocket.Create(nil);
  with cs do
  try
    ClientType := ctBlocking;
    Host := ...;
    Port := ...;
    Open;
    SendText(...);
    ReturnValue := 1;
  finally
    Free;
  end;    
 except
   ReturnValue := 0;
 end;
end;


Наверх

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