Форум программистов
 
Расширенный поиск
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 31.08.2007, 20:54   #1
Teen4jump
Форумчанин
 
Аватар для Teen4jump
 
Регистрация: 19.06.2007
Сообщений: 88
Репутация: 47
По умолчанию Обмен сообщениями между IdTcpClient и idTcpServer

Необходимо написать прогу обмена сообщениями сервера с клиентом...
При отправке собщения клиентом, клиент зависает.
Код сервера:

procedure TForm2.IdTCPServer1Execute(AContext : TIdContext);
begin
Memo1.Lines.Add(Acontext.Connection .Socket.ReadLn);
end;

Код клиента:

procedure TForm2.Button1Click(Sender: TObject);
begin
IdTCPClient1.Host:=Edit2.Text;
IdTCPClient1.Connect;
IdTCPClient1.SendCmd(edit1.Text);
end;
Teen4jump вне форума   Ответить с цитированием
Старый 01.09.2007, 00:42   #2
Teen4jump
Форумчанин
 
Аватар для Teen4jump
 
Регистрация: 19.06.2007
Сообщений: 88
Репутация: 47
По умолчанию

Ну почему клиент зависает?((( Подскажите кто знает......
Teen4jump вне форума   Ответить с цитированием
Старый 03.09.2007, 13:28   #3
Квэнди
Профессионал
 
Аватар для Квэнди
 
Регистрация: 13.12.2006
Адрес: Москва
Сообщений: 3,859
Репутация: 1192

icq: 637233
По умолчанию

Все зависит от того на какой конкретно сточке он "зависает"
__________________
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи
Квэнди вне форума   Ответить с цитированием
Старый 05.09.2007, 09:25   #4
Pitbull
детский тренер
Участник клуба
 
Аватар для Pitbull
 
Регистрация: 08.06.2007
Адрес: г.Попасная, Украина
Сообщений: 532
Репутация: 220

icq: 266282071
По умолчанию

Сервер:
procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
zapros:string;
begin
zapros:=AThread.Connection .ReadLn();
memo1.Lines.add(zapros);
if SameText(zapros, 'QUIT') then Disconnect;

end;

Клиент:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
s:string;
begin
with IdTCPClient1 do
begin
try
Connect;
SendCmd(edit1.Text);
WriteLn('Quit');

finally
Disconnect;
end;
Я добавиль Disconnect - єто желательно делать....
Если у тебя делфи 6 , то подключи в сервере idcontext,idIOHandlerSocket.......
А вообще можно пользоваться readln и writeln, если 7-я Делфи и GetResponse ,sendCmd соответственно в 6-й
__________________
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
Pitbull вне форума   Ответить с цитированием
Ответ



Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обмен сообщениями(миничат) через IdTcpClient и idTcpServer =LeonZone= Работа с сетью в Delphi 3 07.08.2010 13:01
IdTcpClient и idTcpServer xTANATOSx Работа с сетью в Delphi 9 17.05.2008 23:11
передача файла от idtcpclient к idtcpserver SeЯgey Работа с сетью в Delphi 1 13.05.2008 11:21
обмен сообщениями между клиентом и сервером используя ClientSocket и ServerSocket xTANATOSx Работа с сетью в Delphi 3 04.10.2007 15:17




15:36.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru