сетевая игра

[cheef]

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

[KORN]

конечно, передаешь информацию о пользователях, координаты картинок и т.д. и все будет нормально работать... воспользуйся сокетами для этого дела

[cheef]

спасибо.
Но я только поавчера стал изучать сокеты и дадумался только до своего чата нет ли исходников я так понимаю с примером буфера обмена между сокетами.?

[KORN]

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

[cheef]

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

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

Искал по форуму ничего про буфер обмена в сокетах ненашёл...

[Stilet]

ничего про буфер обмена в сокетах ненашёл.

И не найдешь. Нет такого понятия как "Буфер обмена в сокетах", ну а если есть это скорее вольный перевод.
Загляни в Хелп, в компоненты FastNet там примеры хорошие. Еще посмотри в папку Demos твоего Делфи. Я лично все что мне нужно было для сетевого приложения там нашел.

[cheef]

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

И не найдешь. Нет такого понятия как "Буфер обмена в сокетах", ну а если есть это скорее вольный перевод.
Загляни в Хелп, в компоненты FastNet там примеры хорошие. Еще посмотри в папку Demos твоего Делфи. Я лично все что мне нужно было для сетевого приложения там нашел.

У меня хелп на ангилийском, а посмотреть демки щас попробую.

[Stilet]

У меня хелп на ангилийском

У меня тоже, это не помешало мне попутно буржуинский выучить )))
Я серьезно, там все описано с примерами - прям для копи-пасте.

[cheef]

порыскал но у меня примеров мало всего 20 штук и неодного с сокетами((
вот как я пытаюсь через попу отправить картинку через буфер..

procedure TForm2.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
 var
  len: Byte;
begin
len:=Socket.ReceiveLength;
  Socket.ReceiveBuf(Bufx,len);
// применим изменения к своему Shape
  image1.Top:=Bufx[0];
  image1.Left:=Bufx[1];
end;

это чтобы у всех конектов менялось местоположение пользователей...
procedure TForm2.Timer1Timer(Sender: TObject);
begin
If ServerSocket1.Socket.ActiveConnections>0 then
    Begin
    Bufx[0]:=image1.Left;
  Bufx[1]:=image1.Top;

end;
If ServerSocket1.Active=True then
     ServerSocket1.Socket.Connections[i].SendBuf(Bufx,2);
end;

я конечно сильно чёт намутил при проверке вылазит ошибка list index out of bound (0) или (2)... хз чё это делал можно сказать с закрытыми глазками без примеров с бофером.

[cheef]

http://www.rtfm.4hack.com/articles.php?id1=2&id2=63 - тут случайно не решение моей проблемы??