IDUDP. Package Size Too Big

[Человек_Борща]

Может использовать SendBuffer?

[FataLL]

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

RecieveBuffer будет ждать ответа в случае посыла данных.

Если просто вызвать RecieveBuff, то будет ждать. А тут - уже сообщение пришло, что данные готовы, надо читать. RecieveBuff [а лучше в данном случае RecieveString] сразу прочитает и вернёт строку из буфера и очистит его, подготовив к новому приёму данных.

[Stilet]

Ну пипетццц
Простой код:

unit Unit1;

{$mode objfpc}{$H+}

interface

uses  IdUDPServer, IDGlobal,IdSocketHandle, IdUDPClient,
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { private declarations }
    serv:TIdUDPServer;
    cli:TIdUDPClient;
    procedure rea(AThread: TIdUDPListenerThread; AData: TIdBytes; ABinding: TIdSocketHandle);
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin
  serv:=TIdUDPServer.Create;
  serv.DefaultPort:=9981;
  serv.OnUDPRead:=@rea;
  serv.Active:=true;

  cli:=TIdUDPClient.Create;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  cli.Send('localhost',9981,TimeToStr(now));
end;

procedure TForm1.rea(AThread: TIdUDPListenerThread; AData: TIdBytes;
  ABinding: TIdSocketHandle);
var s:string;i:integer;
begin
 for i:=low(AData) to high(AData) do s:=s+chr(AData[i]);
 Caption:=s;
end;

end.

Четенько работает как ни в чем не бывало...
Короче я так понимаю что мне нужно искать проблему в самом проекте...

Кстати, а как у Синапса обстоит дело с UDP?
И еще попутно: INDY и Synapse есть для работы под линуксом?

[Человек_Борща]

Инди спокойно ставится в лазарус ровно как и синапс. А вот насчет линукса - это не знаю. Но должно быть решение. Базовый TCP есть в лазарусе.

TIdBytes потомок TBytes в поздних версиях delphi. Для них есть методы StringOf и BytesOf. Поищите в пакете индей.

[FataLL]

procedure TForm1.rea(AThread: TIdUDPListenerThread; AData: TIdBytes;
  ABinding: TIdSocketHandle);
var s:string;i:integer;
begin
 //for i:=low(AData) to high(AData) do s:=s+chr(AData[i]);
 s := serv.RecieveString(); // немедленно считает и очистит приёмный буфер
 Caption:=s;
end;

[Stilet]

Для них есть методы StringOf и BytesOf.

Тьху ты... Ну точно. Впрочем я выкрутился процедурой Move() как в старые добрые времена

немедленно считает и очистит приёмный буфер

А похоже не в нем дело было...
Где-то в проекте я чего-то не учел, поскольку на новом проекте пока что таких сбоев нет.