TSaljiPorukuDretva = Class(TThread)
...
procedure TSaljiPorukuDretva.Execute();
begin
while (not(KlientSoket.Socket.Connected)) do
begin
Sleep(100);
end;
KlientSoket.Socket.SendText(podaci);
KlientSoket.Close;
Terminate;
end;
==========================================
TTModul = Class(TThread)
...
==========================================
Nesreca = Class(TModul)
...
procedure TNesreca.Execute();
begin
with TSaljiPorukuDretva.Create(true) do
begin
podatakTekst:='1';
IPadresa := '127.0.0.1';
inicijalizacija();
FreeOnTerminate:=true;
Resume;
end;
....
repeat
Sleep(10);
until Terminated;
zasto ne zeli poslati poruku?
dok u form1 objektu napravim onbutton click i unutra
with TSaljiPorukuDretva.Create(true) do
begin
podatakTekst:='1';
IPadresa := '127.0.0.1';
inicijalizacija();
FreeOnTerminate:=true;
Resume;
end;
uredno se posalje poruka.. =(