[link993]

Ув. Pilot Red, подскажи как осуществить передачу команды между двумя програмами (Sockets). Пробовал писать игру не получилось...

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  DoubleBuffered := True; // двойная буфферизация, чтобы не моргали компоненты на форме
if Key = VK_RIGHT then
  Shape1.Left := Shape1.Left + 1; // перемещаем вправо
if Key = VK_LEFT then
  Shape1.Left := Shape1.Left - 1; // перемещаем влево
if Key = VK_DOWN then
  Shape1.Top := Shape1.Top + 1; // перемещаем вверх
if Key = VK_UP then
  Shape1.Top := Shape1.Top - 1;  // перемещаем вниз
end;

Мне надо сделать так:

if Key = VK_UP then cокет посылает всем клиентам сообщение (команду) VK_UP , а клиенты уже на нее реагируют и двигают shape1 на своей форме вперед.

[Pilot_Red]

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

Ув. Pilot Red, подскажи как осуществить передачу команды между двумя програмами (Sockets). Пробовал писать игру не получилось...

Код:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  DoubleBuffered := True; // двойная буфферизация, чтобы не моргали компоненты на форме
if Key = VK_RIGHT then
  Shape1.Left := Shape1.Left + 1; // перемещаем вправо
if Key = VK_LEFT then
  Shape1.Left := Shape1.Left - 1; // перемещаем влево
if Key = VK_DOWN then
  Shape1.Top := Shape1.Top + 1; // перемещаем вверх
if Key = VK_UP then
  Shape1.Top := Shape1.Top - 1;  // перемещаем вниз
end;

Мне надо сделать так:

if Key = VK_UP then cокет посылает всем клиентам сообщение (команду) VK_UP , а клиенты уже на нее реагируют и двигают shape1 на своей форме вперед.

Завтра попробую что-нибудь накатать. Сегодня не получиться так как уже под пивандрием

[link993]

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

Завтра попробую что-нибудь накатать. Сегодня не получиться так как уже под пивандрием

Спасибо большое)))

[PhoeniX]

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

так как уже под пивандрием

Странно, на меня спиртосодержащие напитки действуют как катализаторы мозговой деятельности. Даже оптимизировать ничего не надо - сразу идеальный код рождается

[Pilot_Red]

Сообщение от DJ PhoeniX

Странно, на меня спиртосодержащие напитки действуют как катализаторы мозговой деятельности. Даже оптимизировать ничего не надо - сразу идеальный код рождается

Так такая же фигня, входишь в транс, начинаешь писать, а утром встаешь и ни хрена не понимаешь
Тем не менее, вчера уже кондиция нормальная была )

[PhoeniX]

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

ни хрена не понимаешь

Это да, но ведь оно ещё и работает

[Assistant]

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

[Pilot_Red]

запускаешь сервер, запускаешь несколько клиентов, вводишь ip-шник, подключаешься.
Управляя стрелками на серваке любуешься тем, как послушно двигаются клиентские Shape-ки
З.Ы.
Это сделано в качестве примера, чтобы понять как взаимодействуют ClienSocket и ServerSocket, так что само собой доработка за ВАМИ!

[Pilot_Red]

пример делался по пожеланию:

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

if Key = VK_UP then cокет посылает всем клиентам сообщение (команду) VK_UP , а клиенты уже на нее реагируют и двигают shape1 на своей форме вперед.

В общем ты хочешь чтобы клиенты двигались по полю и, при этом они должны видеть друг друга.

там немного по другому будет.
сервер будет принимать от клиентов команды, их обрабатывать и отсылать им ответы (например координаты).

Например:
Я один из клиентов. хочу двигаться вверх, нажимаю соответствующую клавишу. к серверу летит соответствующая команда. Сервер в свою очередь принимает ее, рассчитывает мои координаты. и отсылает их всем активным клиентам включая и мне. каждый клиент принимает эти координаты и на основе их рисует кружочки, квадратики в общем клиентов. Это одна из вариаций. Решений может быть много. Например клиент сам рассчитывает свои координаты и их соответственно отправляет на сервак. Но тогда клиента можно взломать каким-нибудь ArtMoney..

Как я писал выше тот пример, который я выслал, это некая почва для размышления. Так что разбирайся

[link993]

Pilot_Red, еще раз спасибо! Буду думать как сделать...