Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.06.2008, 20:25
Аватар для Genry
Genry Genry вне форума
Начинающий
 
Регистрация: 14.04.2008
Адрес: с. Россия, г. Курган
Сообщения: 160
Версия Delphi: 7
Репутация: 10
Вопрос Как передать текстовые данные с одного компьютера на другой?

Два компьютера. (допустим) Один компьютер x, а другой y. На обоих есть и запущена эта программы. Как передавать на с одной программы компьютера x другой компьютера y, и обратно? Что-то типа чато, но передаваться будут координаты.
Ответить с цитированием
  #2  
Старый 05.06.2008, 20:50
Аватар для }{ОТТ@БЫЧ
}{ОТТ@БЫЧ }{ОТТ@БЫЧ вне форума
Прохожий
 
Регистрация: 07.05.2008
Сообщения: 41
Репутация: 10
Сообщение Сложного мало...

Я делаю это с помощью компонента TSocketServer/Client. В Delphi7 установить: delphi7\bin\dclsockets70.bpl. Компоненты>Установить пакет, в окне кликай на "Добавть" ищи по этому пути. После установки они появятся во вкладке Internet.
сервер:
Код:
.....
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
  Socket: TCustomWinSocket); //Принятие текста
 var s:string;
begin
s:=Socket.ReceiveText;
ShowMessage(s);
end;
...
procedure TForm1.Button1Click(Sender: TObject); //Посылка всем
var i:integer; s:string;
begin
s:='Delphi';
for i := 0 to ServerSocket1.Socket.ActiveConnections-1 do
    ServerSocket1.Socket.Connections[i].SendText(s);
end;
...
Клиент аналагично:
Код:
....
procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket); //Принятие от сервера
  var s:string;
begin
s:=Socket.ReceiveText;
ShowMessage(s);
end;
...
procedure TForm1.Button1Click(Sender: TObject); //Посылка
var s:string;
begin
s:='Delphi';
ClientSocket1.Socket.SendText(s);
end;
...
Есть еще Indy компоненты... но мне стандартные больше Но это дело каждого...
Ответить с цитированием
  #3  
Старый 05.06.2008, 21:08
Аватар для Genry
Genry Genry вне форума
Начинающий
 
Регистрация: 14.04.2008
Адрес: с. Россия, г. Курган
Сообщения: 160
Версия Delphi: 7
Репутация: 10
Вопрос Спасибо.

Я правильно понял, что для сервера одна прога , а для клиенты другая?
Ответить с цитированием
  #4  
Старый 05.06.2008, 21:20
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Не совсем. Тебе никто не мешает и сервер и клиента реализовать в одной программе. Более того, у тебя одна прога может слать сама себе сообщения.

ЗЫ. Я бы делал через Indy.
Ответить с цитированием
  #5  
Старый 05.06.2008, 21:27
Аватар для Genry
Genry Genry вне форума
Начинающий
 
Регистрация: 14.04.2008
Адрес: с. Россия, г. Курган
Сообщения: 160
Версия Delphi: 7
Репутация: 10
По умолчанию

А как через Indy? И можно ли так, чтобы я как бы создавал сервак, а мой друг подключался и мы играли? (я делаю мини игру)
Ответить с цитированием
  #6  
Старый 06.06.2008, 13:26
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,096
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну если тебе передавать какие-то данные просто, то используй TCmdTCPServer/TCmdTCPClient (кажется так называются). Они удобны тем, что ты просто задаешь команды и работвешь уже с данными. Если будешь передавать бинарные данные, то запакуй их в Base64 (Компоненты соответсвующие у индюка есть). В программе при старте выбираешь режим - клиент или сервер. Все.

Да, демки можно посмотреть на www.indyproject.org.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 09:59.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025