Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.08.21;
Скачать: CL | DM;

Вниз

Клиент чата на TcpClient   Найти похожие ветки 

 
Der1983 ©   (2005-04-22 11:46) [0]

Есть такой вот сервер чата dvschat.net и хотелось бы написать свойго клиента для него....
Возникла проблема с ReceiveBuf в TcpClient...
При TcpClient1.ReceiveBuf приложение долго висит а потом выдает в мемо несколько буферов.

вот мой код

procedure TForm1.Button2Click(Sender: TObject);
var
 bufe: array[0..128] of char;
 str: String;

begin
 str := "";
 try
   if TcpClient1.Connect then
   begin

     while true do
     begin
       Application.ProcessMessages;
       begin
      len := TcpClient1.ReceiveBuf(bufe[0], 128, 0);
         if len = 0 then Break;
         str := str + Copy(bufe, 1, len);
       end;
     end;
     Memo1.Lines.Add(str);
   end;
 finally
   //if TcpClient1.Connected then memo1.Lines.Add("+OK")
end;


 
XElx   (2005-05-13 17:15) [1]

if TcpClient1.Connect then
  begin

На Connect матюхается...
ТОже мучаюсь... Если что - по мылу alsm2000@inbox.ru


 
Eraser ©   (2005-05-13 22:15) [2]

Der1983 ©

Какой протокол используется на dvschat.net? HTTP? Тогда и используй компоненты для работы с http... имхо проще чем самому переизобретать велосипед.



Страницы: 1 вся ветка

Текущий архив: 2005.08.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
14-1122457362
NewWonder
2005-07-27 13:42
2005.08.21
Делюсь большой радостью!


4-1119763511
Гость2
2005-06-26 09:25
2005.08.21
Как недоаустить повторного открытия моего приложения?


14-1122458902
ЯВ
2005-07-27 14:08
2005.08.21
Тоже о ГАИ, но по другому вопросу....


1-1123077939
Vitali
2005-08-03 18:05
2005.08.21
Временное зависание Delphi


14-1122443534
Layner
2005-07-27 09:52
2005.08.21
Можно ли в среде D7 показывать строки