Форум: "KOL";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Вниз
Локальный чат Найти похожие ветки
← →
Рома © (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
← →
ECM © (2004-12-17 10:36) [16]2 boodilink & Tim2000
Похоже тут требуется разъяснение(что-то часто спрашивают, или это один и тот же чел?):
Если MCK-проект только что создан,способом описаным в KOLmirrorReadme.* то функция Project-Options-Application-Load Icon недоступна. Причиной тому служит закомментированная строка
//{$R *.res}
в Dpr-файле проекта.
Эта строка будет автоматом комментироваться при генерации исходников
MCK-пакетом. Для того чтобы этого не происходило, надо в компоненте проекта TKOLProject установить dprResource=TRUE и
убедиться что строка раскоментировалась.
Таким же убразом можно поступать если есть необходимость
добавлять номер версии проекта из IDE...
← →
Gandalf © (2004-12-17 14:45) [17]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
Что это такое???? плиз скажте я на экзамене
← →
ECM © (2005-09-16 16:37) [20]Это твердая двойка!... :)
... А не записаны ли в конце области памяти на которую указывает переменная Buffer и которая имеет размер BuffLen символы "u" и "s"...?
← →
Vladimir Kladov (2005-09-16 19:34) [21]и кроме того, для этого выражения Delphi сгенерирует очень неэффективный код: он будет строить динамическую Ansi строку из двух символов и сравнивать ее с Ansi строкой - константой. Плохой пример.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2006.05.21;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.016 c
