Форум: "Сети";
Текущий архив: 2005.08.21;
Скачать: [xml.tar.bz2];
ВнизКлиент чата на 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c