Форум: "Сети";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Вниз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 и другим специалистам по сокетам, потокам написать статью и разместить на этом сайте.
Там разобрать основные принципы работы с примерами.
Можно просто собрать из их же ответов.
Чтобы не повторялись одни и те же вопросы.
Причем практически каждый день.
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2003.06.30;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c