Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Socket Threads????? [D7, WinXP]

Nigger © (2003-04-23 14:26:00)
Помогите разобраться! Почему не происходит соединение сокета и посылка информации? и как это делается??

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.

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

sapsi (2003-04-25 08:11:00) [1]
Предложение:
To Digitman, Polevi и другим специалистам по сокетам, потокам написать статью и разместить на этом сайте.
Там разобрать основные принципы работы с примерами.
Можно просто собрать из их же ответов.
Чтобы не повторялись одни и те же вопросы.
Причем практически каждый день.

Nigger (2003-04-24 23:12:00) [2]
Почему никто не хочет отвечать??? Может я слишком глупый вопрос задал?

Nigger (2003-04-23 19:50:00) [3]
Процедура execute почему-то не выполняется.

Наверх

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