VPF::IdUDPServer - Форум программистов

Keough

Дата 31.1.2008, 12:48 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.1.2008

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

В принципе нашел ответ на свою проблему здесь http://forum.vingrad.ru/topic-49495.html, но так и не понял, как подключить файл, который указан в последнем сообщении. Объясните пожалуйста. smile

Пытаюсь реализовать чат в сетевых шашках.
Код примерно следующий (пока только чат):

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, IdUDPServer, IdBaseComponent, IdComponent,
  IdUDPBase, IdUDPClient;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    GroupBox2: TGroupBox;
    Edit2: TEdit;
    Button2: TButton;
    Memo1: TMemo;
    Label3: TLabel;
    IdUDPClient1: TIdUDPClient;
    IdUDPServer1: TIdUDPServer;
    procedure Button2Click(Sender: TObject);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream; ABinding: TIdSocketHandle);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);
begin
 IdUDPClient1.Send(Edit2.Text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  StringFormatedStream: TStringStream;
  s: String;
begin
//Initialization
  StringFormatedStream := TStringStream.Create('');
//Копируем из простого потока в строковый
  StringFormatedStream.CopyFrom(AData, AData.Size);
//Выводим полученное сообщение
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
//Перенаправление сообщения дальше
  ABinding.SendTo(ABinding.PeerIP, Abinding.PeerPort, s[1], Length(s));
//Освобождаем строковый поток.
  StringFormatedStream.Free;
end;

end.

А ошибки выдает следующие:

Код


[Error] Unit1.pas(27): Undeclared identifier: 'TIdSocketHandle'
[Error] Unit1.pas(60): ')' expected but identifier 'PeerIP' found
[Error] Unit1.pas(60): 'END' expected but ')' found
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Это сообщение отредактировал(а) Keough - 31.1.2008, 13:21

Sanchezzz

Дата 31.1.2008, 19:53 (ссылка)

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

Загрузка ...

Эксперт

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

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

ты какую версию indy используешь 9 или 10 этот пример на 9 версию.
в uses добавь IdSocketHandle

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

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

Keough

Дата 31.1.2008, 21:22 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.1.2008

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

Спасибо, разобрался. Только вот теперь возникла проблема с другим - не могу реализовать сетевую игру. просто после вторых суток за ними мозг не соображает. Прикрепляю архив с материалами, может кто-нибудь поможет мне? Очень расчитываю! smile

З.Ы.: Indy использую 9-ю, по умолчанию встроенную в 7-ю Дельфю.

Это сообщение отредактировал(а) Keough - 31.1.2008, 21:25

Присоединённый файл ( Кол-во скачиваний: 9 )

_____2.rar 77,45 Kb

Sanchezzz

Дата 31.1.2008, 21:33 (ссылка)

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

Загрузка ...

Эксперт

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

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

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

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

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

Keough

Дата 31.1.2008, 21:45 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 31.1.2008

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

А де взять его?

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