VPF::UDP сервер-клиент - Форум программистов

Serik

Дата 25.2.2007, 20:10 (ссылка)

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

Загрузка ...

Новичок

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

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

Смотрите такая проблема.
Первая форма.

Код


unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Memo1: TMemo;
    IdUDPServer1: TIdUDPServer;
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
      ABinding: TIdSocketHandle);
   


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

var
  Form2: TForm2;

implementation

{$R *.dfm}









procedure TForm2.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
begin
memo1.Lines.LoadFromStream(adata);
end;

end.

Вторая:

Код


unit Unit3;

interface

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

type
  TForm3 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    IdUDPClient1: TIdUDPClient;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
idudpClient1.Send(edit1.Text);
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
form3.Show;
end;

end.

Ошибку выдает в первой форме.
Почему-то ссылается на тип TByte в процеДУРЕ IdUDPServer1UDPRead.
Ниче не понимаю.Этоже он сам стандартный шаблон процеДУРЫ ставит. И сам ругается.

DYUMON

Дата 25.2.2007, 20:47 (ссылка)

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

Загрузка ...

Опытный

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

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

Если я понял правильно то тебе надо в мемо выводить данные из потока.
попробуй так

Код


procedure TForm2.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);
var
stringformatedstream: TStringStream;
begin
stringformatedstream:=TStringStream.Create('');
stringformatedstream.copyfrom(adata,adata.size);
memo1.lines.add(stringformatedstream.datastring);
stringformatedstream.free;
end;

данный код используется в чате.

M
Alexeis

Модератор: используйте подсветку кода http://forum.vingrad.ru/index.php?showtopic=126445

Это сообщение отредактировал(а) Alexeis - 26.2.2007, 10:26

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

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

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