ЧАТЮ для клиента и сервера

[-HunteR-]

Мне нужен для модемной связи
+++++++++
Ребята, помогите хотя бы с созданием статуса, чтобы при выборе он был показан у собеседника и чтобы при этом не терялся текст сообщиний
+++++++++
Ещё: Как сделать, чтобы цвет фона в Edit загружался с текста memo Или другого едита типо такого:
Edit1.Color := Edit2.text;
Пишет, что типы не совместимы.

[Dj_smart]

Пишет, что типы не совместимы.

А что ты хотел? Цвет - это же int , а text - это str !
-Hunter- !
Оказывается можно организовать модемную связь через i_net!
Всё очень просто! Вот список команд:

// Инициализация сети
// Если в результате получаем false, значит произошли ошибки
function NET_Init: boolean;

// Высвобождение ресурсов под сеть
procedure NET_Free;

// Очистка буфера записи
// т.е. сначала нужно очистить буфер, затем записать в него
// данные при помощи NET_Write и послать их через NET_Send
// после отправки буфер не очищается, т.е. можно ещё раз
// вызвать NET_Write и послать этот же буфер кому-то другому
procedure NET_Clear;

// Очистка буфера APL пакетов
// прерывает попытки посылки всех APL пакетов из очереди
procedure NET_ClearAPL;

// Внешний IP адрес
function NET_GetExternalIP: PChar;

// Имя компьютера
function NET_GetHost: PChar;

// Локальный IP адрес
function NET_GetLocalIP: PChar;

// Переводит хост в IP адрес
// к примеру для 'www.ru' вернёт '194.87.0.50'
function NET_HostToIP(Host: PChar): PChar;

// Инициализирует сокет на указанном порту
// если значене порта выставленно в 0, то выбирается
// любой свободный порт. Возвращает идентификатор сокета
// Сокет всего один, т.к. для большинства задач больше и не нужно ;)
function NET_InitSocket(Port: WORD): integer;

// Записывает Count байт из Buf (указатель на что-либо) в буфер
// исходящих данных
function NET_Write(Buf: pointer; Count: integer): boolean;

// А вот Net_send это то, что тебе нужно! при входе в чат добавь edit и когда наступает процесс отправки, то    <<<<<<<<<<<
// отправлять не широковещательным пакетом
// а так NET_Send(edit1.text, 21666, false): boolean;
// Отправляет данные содержащиеся в исходящем буфере на отправку
// по указанному IP адресу и Port.
// В случае если IP = nil посылается широковещательный пакет (только локальные сети)
// APL (Anti Packet Lost) указывает, нужна ли гарантированная доставка для этих данных
// которая не работает для широковещательных рассылок :)
function NET_Send(IP: PChar; Port: WORD; APL: boolean): integer;

// Вытащить Count байт из входящего буфера пакетов
// Count желательно указывать максимально большим, т.к. не прочитанные из пакета данные будут утеряны
// В IP и Port записываются IP адрес и порт компьютера приславшего пакет
// Результат - кол-во полученных байт, также записывается в RecvBytes
// Рекомендуется производить проверку пришедших данных как можно чаще (например, раз в тик игрового цикла)
// вызывать эту функцию нужно до тех пор, пока RecvBytes (или результат)
// превышают 0 байт :)
function NET_Recv(Buf: pointer; Count: integer; var IP: PChar; var Port: integer; var RecvBytes: integer): integer;

// Обновление APL менеждера, с случае если посылка APL пакетов не используется
// вызов данной функции становится бессмысленным
procedure NET_Update;

[-HunteR-]

Да не нужен мне этот I-Net!!!

[-HunteR-]

Подскажите хотя бы как сохранить цвета edit'ов memo'в и др. при отключении чата, а при загрузке чтобы восстанавливались.
***
И как кнопка Enter в дельфи обозначается есть такой код:
If key='кнопка отправки' then Sendbtn.Click;
Он должен по нажатию на кнопку Enter делать иммитацию клика по кнопке отправить.
Не знаю как Enter обозначается.

[BOBAH13]

А вы не догадались по события OnKeyDown попробывать так сделать ShowMessage(IntToStr(Key)); покажет вам номер клавиши нажатой... ну нажмете Enter и увидите

[-HunteR-]

BOBAH13
Спасибо, большое

[DeCoder]

Дополнительный вопрос по теме: как реализовать бан по ip?

[Квэнди]

один вопрос одна тема. закрыто.