VPF::UDP Chat на инди v10.1.5 - Форум программистов

Sanchezzz

Дата 21.2.2007, 20:05 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

Добрый день всем или ночь кто откликнулся на мою проблему…
Суть токая использую индейцев 10.1.5 компоненты idUDPClient и idUDPServer на одной форме тб клиент сервер в одном флаконе…
Свойства клиента
Active = True
BufferSize = 8000
BroadcastEnabled = True
OnConnected = ClientConnected
Host = '255.255.255.255' или 127.255.255.255
Port = 3000
ReceiveTimeout = 0

Свойства сервера есть 2 варианта второй мне больше нравится…
Active = True
BufferSize = 8000
BroadcastEnabled = True
Bindings = <> //я так понял не обязательное свойство походу он сам туда добавляет подключенных клиентов
DefaultPort = 3000

//Код Сервака
//Вариант 1:

Код


procedure TForm1.ServerUDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
var
Data:string;
begin
data:='';
Data:=server.ReceiveString(-1); //-1 это задержка если по хелпу смотреть..
Memo1.lines.add(‘Data’);
End;

//2 вариант:
procedure TForm1.ServerUDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
var
Data: string;
begin
data:='';
Data:= bytestostring(ADATA);
Memo1.lines.add(‘DATA’);
End;

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

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

DYUMON

Дата 10.3.2007, 21:34 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3

Забей на все в раздел uses подключаешь IdSocketHandle
а на событие принятия данных делаешь

Код


var 
s: string;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);
begin
StringFormatedStream:= TStringStream.Create('');
  StringFormatedStream.CopyFrom(AData,AData.Size);
  coolmemo1.Lines.Add(StringFormatedStream.DataString);
  Abinding.SendTo(Abinding.PeerIP,Abinding.PeerPort,s[1],Length(s));
  StringFormatedStream.Free;
end;

должно проканать

Это сообщение отредактировал(а) Girder - 28.3.2007, 12:44

--------------------

Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.

Sanchezzz

Дата 14.3.2007, 21:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1670
Регистрация: 19.11.2006
Где: Voronezh

Репутация: 1
Всего: 60

этот кад под 9 версию а уменя 10 я и добовлял IdSocketHandle и idClobal чтоб на TBytes не ругался
короче вопрос решон я реализовал на DXPlay там было проше и возможности тоже не плохие...

--------------------

Понравился ответ "+" по репе, не забываем закрывать тему, заказы в LS.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »