Re[3]: IRC
Original Message From: "KeeL" <dima***@s*****.by>
To: "comp.soft.prog.prog (2864311)" <spir***@c*****.ru>
Sent: Tuesday, December 23, 2003 4:47 PM
на
procedure TForm1.ConnectButtonClick(Sender: TObject);
begin
CS.Host:=d.Host;//d- моя структура для заполнения данных из файла
CS.Port:=d.Port;
CS.Active:=true;
end;
procedure TForm1.Connect(Sender: TObject; Socket: TCustomWinSocket);
begin
CS.Socket.SendText('nick '+d.Nick+#10);
CS.Socket.SendText('user '+d.Nick+' kk kk '+d.RealName+#10);
CS.Socket.SendText('privmsg NickServ@*.RusNet :IDENTIFY ' +d.Pass+#10);
CS.Socket.SendText('join '+channel+#10);
end;
disconnect example
procedure TForm1.N5Click(Sender: TObject);
begin
if CS.Active then
begin
CS.Socket.SendText('quit :До встречи'+#10);
CS.Close;
end;
end;
C уважением Sad Spirit
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru
-*Информационный канал Subscribe.Ru
Написать в лист: mailto:comp.soft.prog.prog-list@subscribe.ru
Отписаться: mailto:comp.soft.prog.prog--unsub@subscribe.ru
http://subscribe.ru/ mailto:ask@subscribe.ru
