Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Локальный чат [Delphi, Windows]


Страницы:   1 2

Рома ©   (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 (считаю, что там протоколы реализованы наилучшим образом). Может у кого есть исходники - пожалуйста на мыло.


Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо