Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Какие то странные вещщи творятся

Автор: 777Vasa777 6.7.2006, 17:47

Доброго времени суток
Начал недавно программировать с помощью компонентов Indy и началось.
У меня вот какая проблема
Пишк прогу для обмена тектовыми сообщениями
Streamami разными файлами.
код клиента

Код


var
data:String;
begin
cln.Connect;
try
data:=cln.ReadLn;
cln.Write(edit1.Text);
data:=cln.ReadLn;
addlist(data);
finally
cln.Disconnect;
end;
end;

коннеккт
читаю приветсвие с сервера

код сервера

Код


procedure TForm1.ServConnect(AThread: TIdPeerThread);
begin
AThread.Connection.Write('Hi');
listcmd.Items.Add('Connect');
end;

Так во время чтения приветсявия клиентом он наглухо виснет
если кинуть на форму антифриз то нечего не передается
почему ? smile

Автор: _hunter 6.7.2006, 18:52

засунь чтение приветствия в отдельный поток.

P.S.
а что тут странного?..

Автор: bravo 7.7.2006, 23:37

Цитата(_hunter @ 6.7.2006, 18:52

)

P.S.
а что тут странного?..

А можно поподробнее? Тоже интересует данный вопрос, хоть и не сталкивался, но мне это нужно.

Автор: Poseidon 8.7.2006, 01:08

Цитата(_hunter @ 6.7.2006, 18:52

)

а что тут странного?..

Мне кажется странным вот это:

Цитата(777Vasa777 @ 6.7.2006, 17:47

)

если кинуть на форму антифриз то нечего не передается

Скорее всего что-то не так сделано...

Автор: Snowy 10.7.2006, 10:39

Используй WriteLn вместо Write и будет тебе щастя.