VPF::Как отправить сообщение клиенту

MERTVITz

Дата 18.11.2005, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.5.2005

Репутация: нет
Всего: нет

Как отправить сообщение клиенту с сервера? и как потом обработаь получение сообщения у клиента.

Romikgy

Дата 18.11.2005, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

Скачай с сайта инди демки , там все описанно , а вообще как я понял все в потоке крутится и через write(ln) & read(ln) , ну или через буфер/поток-стрим

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

MERTVITz

Дата 22.11.2005, 07:39 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.5.2005

Репутация: нет
Всего: нет

Я смотрел в инди примерах ничего подходящего нет. Проблема в том, что перед отключением клиента ему нужно послать сообщение и вот как это сообщение перехватить у клиента... Если можно небольшой примерчик

Romikgy

Дата 22.11.2005, 12:53 (ссылка)

(нет голосов)

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 3
Всего: 146

Это куски из демки:
на сервере есть такой код:

Код


if Command = 'QUIT' then
    begin
    AThread.Connection.WriteLn('Goodbye!');
    AThread.Connection.Disconnect;
    end

в клиенте на кнопке разрыва:

Код


procedure TfrmMain.btnDisconnectClick(Sender: TObject);
var otv: string;
begin
Writeln('QUIT');
otv:=ReadLn;
if otv='GoodBay!' then
begin
//Здесь делай что те нужно
end;
if IdTCPClient.Connected then
    try
    IdTCPClient.Disconnect; // we can disconnect from either the server or the client side
    btnConnect.Enabled := true;
    btnDisconnect.Enabled := false;
    except on E : Exception do
        ShowMessage(E.Message);
    end;
end;

А вооще я переделал только 2 функции , так что далее разбирайся сам smile

смысл должен быть понятен.
В прикрипленном файле полный текст сервера и клиента из демок, там без переделки smile

Добавлено @ 13:03
Только так наверное правильнее (дельфи под рукой нет)

Код


IdTCPClient.Writeln('QUIT');    
otv:=IdTCPClient.ReadLn;

Присоединённый файл ( Кол-во скачиваний: 15 )

tcpservcli.zip 6,94 Kb

--------------------

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

MERTVITz

Дата 22.11.2005, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 13.5.2005

Репутация: нет
Всего: нет

Ну ето понятно вся проблема вот в чем что етот пример должен работать наоборот на сервере нажимаем кнопку Disconnect происходит отключение клиента, а перед отключением посылается сообщение которые надо поймать у клиента и показать пользователю

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »