[xdessx]

Код:

unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,XPMan, StdCtrls, OleCtrls, SHDocVw, IdUDPClient, IdBaseComponent,
  IdComponent, IdUDPBase, IdUDPServer, IdIPWatch;
 
type
  TForm2 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    IdUDPServer1: TIdUDPServer;
    IdUDPClient1: TIdUDPClient;
    IdIPWatch1: TIdIPWatch;
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Memo1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormCreate(Sender: TObject);
    procedure Memo1KeyUp(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form2: TForm2;
  c:integer;
  Preobr:TStringStream;
 
implementation
uses unit1,unit3;
 
{$R *.dfm}
 
procedure TForm2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
Sexit.ShowModal;
if sexit.ModalResult=mrOK then begin
   sexit.Close;
   canclose:=true;
   form1.Close;
   end;
if sexit.ModalResult=mrCancel then begin
   sexit.Close;
   canclose:=false;
   end;
if sexit.ModalResult=mrRetry then begin
   //прописать сохранение в txt файле,не забыть!!!
 
   sexit.Close;
   canclose:=true;
   form1.Close;
   end;
end;
 
procedure TForm2.Memo1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_CONTROL then c:=1;
if c=1 then
       if key=VK_RETURN then begin
       IdUDPClient1.send(memo1.text);//написать
       end;
end;
 
procedure TForm2.FormCreate(Sender: TObject);
begin
c:=0;
end;
 
procedure TForm2.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
if key=VK_CONTROL then c:=0;
end;
 
procedure TForm2.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
begin
Preobr:=TStringStream.Create('');
preobr.CopyFrom(AData, AData.Size);
memo1.Lines.Add(ABinding.);
end;
 
end.

делаю чат,смотрю в книгу,там код такой,но почему то дает ошибку на строке

Код:

procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);

ошибка такая --[Error] Unit2.pas(24): Undeclared identifier: 'TIdSocketHandle'

[Mrak]

в uses ниче не забыл?
так пробовал?
http://yandex.ru/yandsearch?text=pro...Handle)&lr=213

[xdessx]

Сообщение от Mrak

в uses ниче не забыл?
так пробовал?
http://yandex.ru/yandsearch?text=pro...Handle)&lr=213

Там все на английском а у меня плохо с ним
В юсес добавил все что сказала препод.

[Alegun]

Сообщение от xdessx

Там все на английском...

По-русски это звучит как - "добавьте в секцию uses к уже подключенным ещё и модуль IdSocketHandle"

[xdessx]

Сообщение от Alegun

По-русски это звучит как - "добавьте в секцию uses к уже подключенным ещё и модуль IdSocketHandle"

Ну я же добавил все что сказала учительница

[Alegun]

Сообщение от xdessx

Код:

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

Ну и где здесь вона модулька?