Как передать через сокеты положение картинки на форме?

@gylayko · Регистрация: 28.09.2011

Студворк — интернет-сервис помощи студентам

мне нужно постоянно передавать положения перемещающейся по форме картинки (мячик). делаю так
сервер:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TfrmPingPong.ServerSocket1ClientConnect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ShowMessage('соединение установлено');
ServerSocket1.Open;
tmrSocket.Enabled:=True;
end;
 
procedure TfrmPingPong.tmrSocketTimer(Sender: TObject);
begin
    ServerSocket1.Socket.SendText(IntToStr(imgBall.Left));//то есть передаю положения картинки
end;

клиент:

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TfrmPing.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
ShowMessage('соединение установлено');
end;
 
procedure TfrmPing.tmrOsnTimer(Sender: TObject);
var Overlay: TRect;
begin
  imgBal.Left:=StrToInt(ClientSocket1.Socket.ReceiveText);
end;

установил Port на обоих сокетах в 2000 и Adress в ClientSocket1 127.0.0.1. сообщение про то, что соединение установлено показывает в обоих приложениях. после этого вылазит ошибка "Project raised exception class EConvertError with message "' is not a valid integer value'. Process stopped. Use Step or Run to continue." на первом приложении и "Windows socket error: Запрос на отправку или получение данных (when sending on a datagram socket using a sendto call) no address was supplied (10057), on API 'send' " в нем же.
с сокетами работаю пару дней, толком не понимаю, что к чему. помогите мне понять, что здесь не так и исправить ошибку!

@mss · 14.05.2013, 17:37

Сообщение от Arkaniy

открытие сервера, насколько знаю. Это то же, что и ServerSocket.Active :=True

А ничего что сервер в этот момент уже активен, раз он уже принял клиентское подключение, о чем собственно и свидетельствует его событие OnClientConnect ?

Сообщение от Arkaniy

после открытия попробуй слип что-ли. Просто клиент еще не подключился, а сервер уже гонит сообщения

Ерунда полнейшая.

p.s.
А вся беда в том что справку по Send-методам TCustomWinSocket никто не штудирует.
Не царское это дело - справку штудировать.

@gylayko · 14.05.2013, 17:44 **[ТС]**

Сообщение от mss

А ничего что сервер в этот момент уже активен, раз он уже принял клиентское подключение, о чем собственно и свидетельствует его событие OnClientConnect ?

Ерунда полнейшая.

p.s.
А вся беда в том что справку по Send-методам TCustomWinSocket никто не штудирует.
Не царское это дело - справку штудировать.

то есть без того, чтобы выпендриваться уже никак?

Добавлено через 4 минуты
Arkaniy, спасибо. я просто увеличил шаг движения да и все. теперь мячик движется на бОльшие расстояния, зато все работает

@mss · 14.05.2013, 17:50

Сообщение от gylayko

без того, чтобы выпендриваться уже никак?

То есть без того чтобы спокойно проштудировать справку и понять суть "проблемы" , а не продолжать передирать бездумно чужой код таких же "нечитателей", уже никак ?

Добавлено через 2 минуты

Сообщение от gylayko

я просто увеличил шаг движения да и все

Стоит сетевым условиям передачи данных чуть ухудшиться (мало ли по каким причинам канал передачи может стать на время менее производительным) - и опять наступишь на те же грабли.

Новые блоги и статьи Все статьи Все блоги /
Лето уходит kumehtar 17.08.2026	Мысли в слух kumehtar 17.08.2026 Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .	Перемещение строк из ТЧ в другой документ с учетом текущего пробега Maks 17.08.2026 Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .	Саморегулирующийся социальный контракт для сервера cross-section. Hrethgir 14.08.2026 С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .