send receive TMemorystream over UDP

with Indy you'd use SendBuffer(Buffer, count) and Read(Buffer, count_)

here's a very simple example I wrote using a TStringStream...
using a TMemoryStream is similar, but a stringstream is easier to demonstrate

procedure TForm1.eSendKeyPress(Sender: TObject; var Key: Char);
var
  s: string;
  Buffer: Array [0..maxBufferSize] of Byte;
  count: Integer;
  stream: TStringStream;
begin
  if ord(Key) = vk_Return then
  begin
    Key := #0;
// now send this
 
    s := eSend.Text;
 
    IdUDPClient1.Host := 'localhost';
    IdUDPClient1.Port := StrToIntDef(eClientPort.Text, 1234);
 
    stream := TStringStream.Create(S);
 
    stream.Seek(0, soFromBeginning);
    stream.Read(Buffer, Stream.Size);
    IdUDPClient1.SendBuffer(Buffer, stream.size);
 
// you can also use the methof below
// or of course you can just use IdUDPClient1.Send(AData: string)
{
    s := eSend.Text;
    count := length(s);
    move(s[1], Buffer, count);
    IdUDPClient1.Host := 'localhost';
    IdUDPClient1.Port := StrToIntDef(eClientPort.Text, 1234);
    IdUDPClient1.SendBuffer(Buffer, count);
}
  end;
end;

Select allOpen in new window

thanks for reply, i am beginner of delphi, could wrap that code to a methode like:
procedure sendstream(aMemoryStream: TMemorystream) as easy as : nmUDP1.sendstream(myMemorystream)

and how about the listener ?

show me your exact example of what you ant (i.e. your nmUDP code)
and I will show you how to do the equivalent in Indy.
The bit I need to understand is if you need to send the "size" of the stream first, or if you do not need the size

procedure TMainModule.SendRecordValue(FRemoteHost: String; FPort: Integer);
var FMemoryStream: TMemoryStream;
    i : Byte;
    FValue : Single;
begin
   FMemoryStream := TMemoryStream.Create;
   try;
      for i := 0 to (record.Count-1) do
      begin
        FValue := record.Value[i];
        FMemoryStream.Write(FValue, SizeOf(FValue));
      end;

      NMUDP1.RemoteHost := FRemoteHost;
      NMUDP1.RemotePort := FPort;
      NMUDP1.SendStream(FMemoryStream);

   finally
      FMemoryStream.Free;
   end;
end;






procedure TfrmMonitoring.NMUDP1DataReceived(Sender: TComponent;
  NumberBytes: Integer; FromIP: String; Port: Integer);
var
    FMemoryStream : TMemoryStream;
    FValue : Single;
    I : Integer;
begin
   if NumberBytes > 0 then
   begin
      FByteReceived := FByteReceived + NumberBytes;
      FMemoryStream := TMemoryStream.Create;
      try
         NMUDP1.ReadStream(FMemoryStream);
         FMemoryStream.Position := 0;
         i := 0;
         repeat
            FMemoryStream.Read(FValue, SizeOf(FValue));
            ClientRecord.Value[i] := FValue;
            Inc(i);
         until (FMemoryStream.Position >= FMemoryStream.Size);
      finally
         FMemoryStream.Free;
      end;
   end;

I mostly use a TStringList to send strings ...

you may need to check if ClientRecord.RecordCount works

procedure TForm1.SendRecordValue(aRemoteHost: String; aPort: Integer);
var i : Byte;
    List: TStringList;
begin
  List := TStringList.Create;
  try
    for i := 0 to (record.Count-1) do
      List.Add(Record.Value[i]);
    IdUDPClient1.Send(aRemoteHost, aPort, List.Text);
  finally
    List.Free;
  end;
end;
 
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
  ABinding: TIdSocketHandle);
var
  I : Integer;
  List: TStringList;
  Stream: TStringStream;
begin
  ClientRecord.RecordCount := 0;
  if AData.Size > 0 then
  begin
    List := TStringList.Create;
    try
      Stream := TStringStream.Create('');
      try
        Stream.CopyFrom(AData, AData.Size);
        List.Text := Stream.DataString;
      finally
        Stream.Free;
      end;
      ClientRecord.RecordCount := List.Count;
      for I := 0 to List.Count - 1 do
        ClientRecord.Value[i] := List[I];
    finally
      List.Free;
    end;
  end;
end;

Select allOpen in new window

on idUDP server, i doubleclick at onUDPRead Event then on editor:
procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
  ABinding: TIdSocketHandle);


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

it's raises error, the parameters AData should be Tbytes instead TStream.
then i forced to change the parameters type to TStream as you suggest, application compiled successfully, i set a breakpoint  at this event, nothing fired when the client has sent a udp packet?


i am using indy10, D2007 default packages

oops, that was for Delphi 7

this is for Delphi 2007

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes; ABinding: TIdSocketHandle);
var
  I : Integer;
  List: TStringList;
  Stream: TStringStream;
begin
  //ClientRecord.RecordCount := 0;
  if Length(AData) > 0 then
  begin
    List := TStringList.Create;
    try
      Stream := TStringStream.Create('');
      try
        Stream.Read(AData, Length(AData));
        List.Text :=  Stream.DataString;
        ClientRecord.RecordCount := List.Count;
        for I := 0 to List.Count - 1 do
          ClientRecord.Value[i] := List[I];
      finally
        Stream.Free;
      end;
    finally
      List.Free;
    end;
  end;
end;
 
procedure TForm1.SendRecordValue(aRemoteHost: String; aPort: Integer);
var i : Byte;
    List: TStringList;
begin
  List := TStringList.Create;
  try
    for i := 0 to (record.Count-1) do
      List.Add(Record.Value[i]);
    IdUDPClient1.Host := aRemoteHost;
    IdUDPClient1.Port := aPort;
    IdUDPClient1.Send(List.Text);
  finally
    List.Free;
  end;
end;

Select allOpen in new window