IDNY ругается на AData.size при копировании из простого потока в строковый

[Loligan]

вот собственно сам код

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdUDPServer, IdBaseComponent,
  IdComponent, IdUDPBase, IdUDPClient, Vcl.StdCtrls, IdGlobal, IdSocketHandle;

type
  TForm1 = class(TForm)
    IdUDPClient1: TIdUDPClient;
    IdUDPServer1: TIdUDPServer;
    Memo1: TMemo;
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure IdUDPServer1UDPRead(AThread: TIdUDPListenerThread;
      const AData: TIdBytes; ABinding: TIdSocketHandle);
  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(AThread: TIdUDPListenerThread;
  const AData: TIdBytes; 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.

Ругается на эту строчку а именно на AData.size

[dcc32 Error] Unit1.pas(47): E2003 Undeclared identifier: 'StringFomatedStream'

StringFormatedStream.CopyFrom(AData , AData.size);

[Пепел Феникса]

в коде одно название, а в вашей ошибке у переменной не хватает буквы.

[Loligan]

Сообщение от Пепел Феникса

в коде одно название, а в вашей ошибке у переменной не хватает буквы.

в смысле? не понял

Вот все ошибки

[dcc32 Error] Unit1.pas(47): E2010 Incompatible types: 'TStream' and 'TIdBytes'
[dcc32 Error] Unit1.pas(47): E2029 '(' expected but ')' found
[dcc32 Error] Unit1.pas(49): E2066 Missing operator or semicolon
[dcc32 Error] Unit1.pas(51): E2250 There is no overloaded version of 'SendTo' that can be called with these arguments
[dcc32 Fatal Error] Project1.dpr(5): F2063 Could not compile used unit 'Unit1.pas'

[Stilet]

Incompatible types: 'TStream' and 'TIdBytes'

StringFormatedStream.WriteBuffer(AData[0],Length(AData));

[Loligan]

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

StringFormatedStream.WriteBuffer(AData[0],Length(AData));

Спасибо) Сработало. А почему так? ну что бы знать на будущее


И ещё. Дальше появилась ошибка в строке

ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s [1] , Length(s));

[dcc32 Error] Unit1.pas(51): E2250 There is no overloaded version of 'SendTo' that can be called with these arguments

[kta87]

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

Спасибо) Сработало. А почему так? ну что бы знать на будущее

Что бы проще понималось: типы потоки, буферы у них есть параметр - размер (Size) Как бы аналог этого для массивов - длинна (Length)

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

ошибка в строке
[dcc32 Error] Unit1.pas(51): E2250 There is no overloaded version of 'SendTo' that can be called with these arguments

Вы посмотрите на параметры, их типы и количество функции "SendTo":

function SendTo(s: TSocket; var Buf; len, flags: Integer; var addrto: TSockAddr; tolen: Integer): Integer; stdcall;

[Stilet]

А почему так?

Ну так потому что AData этосамый найобычнейший массив байт, а не класс. В Хелпе Инди это написано.

kta87

А это не та функа
Автору другая нужна.

procedure SendTo(
const AIP: string;
const APort: Integer;
const ABuffer: TIdBytes;
const AIPVersion: TIdIPVersion = ID_DEFAULT_IP_VERSION
);

Скорее всего нужно это:
http://docwiki.embarcadero.com/CodeE...f_%28Delphi%29

Соответственно как-то так:

ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, BytesOf(s) , Length(s));

Или я вот так мучу:

var ...
   m:TMemoryStream; a:TIdBytes; cli:TIdUDPClient;  sz:Cardinal;
begin
 m:=TMemoryStream.Create;
 cli:=TIdUDPClient.Create;
...
  m.Position:=0;
  if length(a)<>m.Size then  SetLength(a,m.Size);  sz:=m.Size;
  m.ReadBuffer(a[0],m.Size);
  cli.SendBuffer(host,ClientPort,a);except end;
  m.Clear;
 cli.Free;
end;

Т.е. через стрим и SetLength() наполняю массив.