![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Локальный чат [Delphi, Windows]
Рома © (2004-05-06 18:36:00)Здравствуйте! Я решил написать чат для локальной сети. Смысл: вводишь ip, соединяешься и чатишься. Но не могу найти helpa по этой теме. Смотрел примеры с библиотеками, искал в форуме, в статьях - ничего. Может кто может помочь? Хоть какой-нибудь кусок кода? В VCL просто кидаешь на форму tcpclient/server, настраиваешь и всё. Реально хотелось бы узнать, как быть с mck.
Vladimir Kladov (2005-09-16 19:34:00) [1]и кроме того, для этого выражения Delphi сгенерирует очень неэффективный код: он будет строить динамическую Ansi строку из двух символов и сравнивать ее с Ansi строкой - константой. Плохой пример.
ECM (2005-09-16 16:37:00) [2]Это твердая двойка!... :)
... А не записаны ли в конце области памяти на которую указывает переменная Buffer и которая имеет размер BuffLen символы 'u' и 's'...?
12345678910 (2005-09-16 16:04:00) [3]if PChar(LongWord(Buffer) + BufLen - 2)^ + PChar(LongWord(Buffer) + BufLen - 1)^ = 'us' then
Что это такое???? плиз скажте я на экзамене
Andrei (2005-03-26 08:11:00) [4]Удалено модератором
Gandalf (2004-12-17 14:45:00) [5]FAQ
ECM (2004-12-17 10:36:00) [6]2 boodilink & Tim2000
Похоже тут требуется разъяснение(что-то часто спрашивают, или это один и тот же чел?):
Если MCK-проект только что создан,способом описаным в KOLmirrorReadme.* то функция Project-Options-Application-Load Icon недоступна. Причиной тому служит закомментированная строка
//{$R *.res}
в Dpr-файле проекта.
Эта строка будет автоматом комментироваться при генерации исходников
MCK-пакетом. Для того чтобы этого не происходило, надо в компоненте проекта TKOLProject установить dprResource=TRUE и
убедиться что строка раскоментировалась.
Таким же убразом можно поступать если есть необходимость
добавлять номер версии проекта из IDE...
Tim2000 (2004-12-17 10:17:00) [7]Удалено модератором
Примечание: Offtopic
boodilnik (2004-12-16 18:23:00) [8]Удалено модератором
Примечание: Offtopic
Gandalf (2004-08-20 11:19:00) [9]2DeLine - [OFFTOPIC]
DeLine (2004-08-20 09:49:00) [10]Дюди... дайте пожалуйста ссылку где есть инфа со скринами, по написанию чата на дельфи!
Рома (2004-05-09 19:31:00) [11]Спасибо! Установил одну из этих компонент и всё сделал!
Dentall (2004-05-09 00:05:00) [12]На сайте bonanzas.rinet.ru есть неплохие компоненты TCP-клиента и сервера для KOL. (TCPSocket)
Рома (2004-05-08 23:16:00) [13]В примере server (KOLICS) всё сильно замудрено . Если вы хорошо разбираетесь в в этих библиотеках, то не могли бы выложить код этих действий, желательно минимальный:
1)создание клиента и сервера (с назначением портов и адресов)
2)послание клиентом строки серверу
3)обработка сервером события присоединения и получения этой строки
Я пытался что-то сделать, но получается лажа:
procedure TForm1.SrvSocketSessionAvailable(Sender: PObj; Error: Word);
var
NewHSocket : TSocket;
begin
{ We need to accept the client connection }
NewHSocket := sos.Accept;
{ And then associate this connection with our client socket }
soc.Dup(NewHSocket);
MsgOK(sos.ReceiveStr);
end;
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
soc:=NewWSocket(nil);
soc.Port:='12345';
soc.Addr:='127.0.0.1';
sos:=NewWSocket(nil);
sos.SocksPort:='12345';
sos.Listen;
sos.OnSessionConnected:=SrvSocketSessionAvailable;
end;
procedure TForm1.Button1Click(Sender: PObj);
begin
soc.Connect;
soc.SendStr('roma');
soc.Close
end;
Вот.
Gandalf (2004-05-08 19:56:00) [14]MCK там нет. Переведены основные протоколы по большей части http,ftp,pop,smtp,icmp - но из-за того что убрана обработка except частенько вылетает, но протоколы не полностью реализованны - у меня руки не доходят...
RA (2004-05-08 19:46:00) [15]Хотелось бы еще в кратце узнать чо там уже есть и чего там еще нет. МСК там сразу вижу, что нет.
Gandalf (2004-05-08 17:30:00) [16]2Рома
Обычно write/read send/recv (sendto/recvto)
Какая библиотека?
2RA
Линк сойдет?
http://kol.mastak.ru/files/lib/KOLICS.rar
Там сорцы
Рома (2004-05-07 23:07:00) [17]Нет, что то тут не так. После создания переменной PWSocket каким образом переслать строку, и принять её? Просто кусок кода.
RA (2004-05-07 18:48:00) [18]Вышли мне исходники на мыло.
Gandalf (2004-05-07 17:54:00) [19]Лучше мне помоги kolics до ума довести - там и pop и smtp есть - в приниципе они даже работают, надо обработку except-вернуть, и немного вещей вернуть...
RA (2004-05-07 17:01:00) [20]Да, все хочу на КОЛ переписать компоненты для работы с протоколами, как то TNMSMTP, TNMPOP3 и др. Вот только не могу найти исходники Net Masters (считаю, что там протоколы реализованы наилучшим образом). Может у кого есть исходники - пожалуйста на мыло.