Socket Threads?????

← →
Nigger (2003-04-23 14:26) [0]

Помогите разобраться! Почему не происходит соединение сокета и посылка информации? и как это делается??

TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
ActionList1: TActionList;
Button2: TButton;
TcpClient1: TTcpClient;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

type
TScan = class(TClientSocketThread)
ClientSocket: TCustomIpClient;
public
procedure Execute; override;
end;

var
Form1: TForm1;
Sock : array[1..255] of TScan;
stop : boolean = false;
z : Integer;
ServerSocketThread: TServerSocketThread;

implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
z:=1;
stop:=false;
repeat
Sock[z]:=TScan.Create(ServerSocketThread);
Application.ProcessMessages;
Memo1.Clear;
Memo1.Lines.Add(IntToStr(Sock[z].Handle)+#32+IntToStr(Sock[z].ThreadID));
inc(z);
sleep(100);
until (stop=true)or(z>3);
end;

procedure TScan.Execute;
begin
Sock[z].ServerSocketThread.ClearThreadPool;
Sock[z].ClientSocket.RemotePort:="80";
Sock[z].ClientSocket.RemoteHost:="ya.ru";
Sock[z].ClientSocket.Open;
Sock[z].ClientSocket.Sendln("123");
Sock[z].ClientSocket.Close;
ClientSocket.RemoteHost:="ya.ru";
ClientSocket.RemotePort:="80";
ClientSocket.Open;
ClientSocket.Sendln("123");
ClientSocket.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
stop:=true;
end;
end.

Очень сильно надо!!!

← →
Nigger (2003-04-23 19:50) [1]

Процедура execute почему-то не выполняется.

← →
Nigger (2003-04-24 23:12) [2]

Почему никто не хочет отвечать??? Может я слишком глупый вопрос задал?

← →
sapsi (2003-04-25 08:11) [3]

Предложение:
To Digitman, Polevi и другим специалистам по сокетам, потокам написать статью и разместить на этом сайте.
Там разобрать основные принципы работы с примерами.
Можно просто собрать из их же ответов.
Чтобы не повторялись одни и те же вопросы.
Причем практически каждый день.

Socket Threads????? Найти похожие ветки