Скачать: CL | DM;

Многопотоковая отправлялка SMS   Найти похожие ветки 

← →
Sollo ©   (2004-08-26 09:26) [0]

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

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

---

← →
Digitman ©   (2004-08-26 09:34) [1]

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;

---

← →
Alex Konshin ©   (2004-08-26 20:36) [2]

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

---

← →
RaPtoR_1   (2004-08-26 22:18) [3]

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

---

← →
Алхимик ©   (2004-08-27 02:41) [4]

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

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

---

← →
Sollo ©   (2004-08-27 06:33) [5]

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

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

---

← →
Sollo ©   (2004-08-27 06:51) [6]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.041 c