Локальный чат

← →
Рома © (2004-05-06 18:36) [0]

Здравствуйте! Я решил написать чат для локальной сети. Смысл: вводишь ip, соединяешься и чатишься. Но не могу найти helpa по этой теме. Смотрел примеры с библиотеками, искал в форуме, в статьях - ничего. Может кто может помочь? Хоть какой-нибудь кусок кода? В VCL просто кидаешь на форму tcpclient/server, настраиваешь и всё. Реально хотелось бы узнать, как быть с mck.

← →
Gandalf © (2004-05-06 22:40) [1]

Вернее с KOL. Берешь библиотеку Socket и работаешь - принцип тот же.

← →
RA © (2004-05-07 17:01) [2]

Да, все хочу на КОЛ переписать компоненты для работы с протоколами, как то TNMSMTP, TNMPOP3 и др. Вот только не могу найти исходники Net Masters (считаю, что там протоколы реализованы наилучшим образом). Может у кого есть исходники - пожалуйста на мыло.

← →
Gandalf © (2004-05-07 17:54) [3]

Лучше мне помоги kolics до ума довести - там и pop и smtp есть - в приниципе они даже работают, надо обработку except-вернуть, и немного вещей вернуть...

← →
RA © (2004-05-07 18:48) [4]

Вышли мне исходники на мыло.

← →
Рома © (2004-05-07 23:07) [5]

Нет, что то тут не так. После создания переменной PWSocket каким образом переслать строку, и принять её? Просто кусок кода.

← →
Gandalf © (2004-05-08 17:30) [6]

2Рома
Обычно write/read send/recv (sendto/recvto)
Какая библиотека?

2RA
Линк сойдет?
http://kol.mastak.ru/files/lib/KOLICS.rar
Там сорцы

← →
RA © (2004-05-08 19:46) [7]

Хотелось бы еще в кратце узнать чо там уже есть и чего там еще нет. МСК там сразу вижу, что нет.

← →
Gandalf © (2004-05-08 19:56) [8]

MCK там нет. Переведены основные протоколы по большей части http,ftp,pop,smtp,icmp - но из-за того что убрана обработка except частенько вылетает, но протоколы не полностью реализованны - у меня руки не доходят...

← →
Рома © (2004-05-08 23:16) [9]

В примере 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;

Вот.

← →
Dentall © (2004-05-09 00:05) [10]

На сайте bonanzas.rinet.ru есть неплохие компоненты TCP-клиента и сервера для KOL. (TCPSocket)

← →
Рома © (2004-05-09 19:31) [11]

Спасибо! Установил одну из этих компонент и всё сделал!

← →
DeLine (2004-08-20 09:49) [12]

Дюди... дайте пожалуйста ссылку где есть инфа со скринами, по написанию чата на дельфи!

← →
Gandalf © (2004-08-20 11:19) [13]

2DeLine - [OFFTOPIC]

← →
boodilnik (2004-12-16 18:23) [14]

Удалено модератором
Примечание: Offtopic

← →
Tim2000 (2004-12-17 10:17) [15]

Удалено модератором
Примечание: Offtopic

2 boodilink & Tim2000
Похоже тут требуется разъяснение(что-то часто спрашивают, или это один и тот же чел?):
Если MCK-проект только что создан,способом описаным в KOLmirrorReadme.* то функция Project-Options-Application-Load Icon недоступна. Причиной тому служит закомментированная строка
//{$R *.res}
в Dpr-файле проекта.
Эта строка будет автоматом комментироваться при генерации исходников
MCK-пакетом. Для того чтобы этого не происходило, надо в компоненте проекта TKOLProject установить dprResource=TRUE и
убедиться что строка раскоментировалась.
Таким же убразом можно поступать если есть необходимость
добавлять номер версии проекта из IDE...

FAQ

← →
Andrei (2005-03-26 08:11) [18]

Удалено модератором

← →
12345678910 (2005-09-16 16:04) [19]

if PChar(LongWord(Buffer) + BufLen - 2)^ + PChar(LongWord(Buffer) + BufLen - 1)^ = "us" then

Что это такое???? плиз скажте я на экзамене

Это твердая двойка!... :)

... А не записаны ли в конце области памяти на которую указывает переменная Buffer и которая имеет размер BuffLen символы "u" и "s"...?

← →
Vladimir Kladov (2005-09-16 19:34) [21]

и кроме того, для этого выражения Delphi сгенерирует очень неэффективный код: он будет строить динамическую Ansi строку из двух символов и сравнивать ее с Ansi строкой - константой. Плохой пример.

Локальный чат Найти похожие ветки