Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Передача текста через Buf с помощью Socket  (Прочитано 2888 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Shouldercannon
Помогающий

ru
Offline Offline

« : 12-12-2020 18:47 » 

Доброго времени суток!
Передаю текст
Код: (Delphi)
var
  s: String;
  I: Integer;
begin
  if ClientSocket1.Active then
  begin
    s := ETransfer.Text;
    I := Length(s);
    ClientSocket1.Socket.SendBuf(s, SizeOf(I));
  end;
end;
Получаю текст
Код: (Delphi)
var
  s: String;
  I: Integer;
begin
  I := Socket.ReceiveLength;
  SetLength(s, I);
  Socket.ReceiveBuf(s, I);
  EReceiving.Text := s;
end;
Тип сокета stNonBlocking

Делал передачу 12 раз, каждый раз передавая на один символ больше получаю проблему на картинке ниже.
Чем больше текст тем хуже.

* 1.png (40.52 Кб - загружено 64 раз.)
Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 12-12-2020 21:58 » 

Проблема не видна. Поясни словами.
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Shouldercannon
Помогающий

ru
Offline Offline

« Ответ #2 : 13-12-2020 02:23 » 

В поле Получаю приходят данные при; 1, 4, 8, 12 символов. Всё что между ними - пустота, не выводятся в поле Получаю.
Типа строка - это не массив, это отдельный тип в делфи, поэтому подставлять ее вместо буфера бессмысленно
как вариант, можно туда передать s[1], тогда должно пройти
но SizeOf(I) это ровно 4 (для win-64 - 8)
независимо от длины строки
нужно посылать длина строки в символах * размер символа в байтах, т.е.
Length(S) * SizeOf(char)
« Последнее редактирование: 13-12-2020 02:55 от Shouldercannon » Записан
Алексей++
глобальный и пушистый
Глобальный модератор

ru
Offline Offline
Сообщений: 13


WWW
« Ответ #3 : 13-12-2020 06:04 » new

ClientSocket1.Socket.SendBuf(s, SizeOf(I)); - это не логично, тогда уж ближе к истине

ClientSocket1.Socket.SendBuf(s,I);

но при этом нужно брать указатель на внутренний буфер s

(дельфи не знаю, конкретно подсказать не смогу Улыбаюсь )
Записан

Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines