Многопотоковая отправлялка 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.
Заказчик захотел.

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