Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 19.11.2010, 17:05   #1
Chelovek1
 
Регистрация: 10.11.2010
Сообщений: 7
Репутация: 10
По умолчанию Локальный чат

есть код
Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    IdUDPServer1: TIdUDPServer;
    IdUDPClient1: TIdUDPClient;
    procedure Button1Click(Sender: TObject);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    procedure Button1Enter(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(Edit1.Text);
end;

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
 StringFormatedStream: TStringStream;
 s: String;
begin
    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.

Ошибка
Код:

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

кто подскажет как исправитьвсе перепробывал

Последний раз редактировалось Chelovek1; 19.11.2010 в 17:20.
Chelovek1 вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Delphi. Локальный чат Puzz1e Помощь студентам 2 04.06.2009 15:06
Ищу локальный чат [Smarik] Софт 5 26.05.2008 22:25
локальный хук vitalik007 Win Api 3 16.05.2008 09:08
Локальный чат. GAGARIN-NEW Софт 0 12.12.2007 23:43


09:48.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru