Delphi中record结构体定义发送接收传递使用

Dear 丶 2023-10-08 11:51 10阅读 0赞

定义消息结构体TMsg：

type
      PMsg = ^TMsg;
      TMsg = record
          FontName      :string[20];
          FontColor     :Integer;
          FontSize      :Integer;
          FontStyle     :string[4];
          Content       :array[0..4096] of Char;   //不能超过UDP包长
      end;

通过UDP协议发送结构体及将结构体成员赋值给RichEdit控件属性：

procedure TForm1.btnSendClick(Sender: TObject);
    var
      Smsg:TMsg;  //发送消息结构
      OldCount:integer;
    begin
      //发送
      Smsg.FontName:=RichEdit2.Font.Name;
      Smsg.FontColor:=RichEdit2.Font.Color;
      Smsg.FontSize:=RichEdit2.Font.Size;
      Smsg.FontStyle:=DeStyle(RichEdit2.Font.Style);
      StrPCopy(Smsg.Content,ConvertMsgToCmd(RichEdit2));
      IdUDPServer1.SendBuffer(edtRemoteIP.Text,4001,Smsg,SizeOf(Smsg));
      //本机显示
      RichEdit1.SelStart:=MaxInt;
      RichEdit1.Paragraph.FirstIndent:=0;
      RichEdit1.SelAttributes.Color := clGreen;
      RichEdit1.Lines.Add(DateTimeToStr(Now)+' : 你对 xxx 说 ：');
      RichEdit1.Paragraph.FirstIndent:=18;
      OldCount:=Length(RichEdit1.Text);
      RichEdit1.SelStart:=MaxInt;
      RichEdit1.SelAttributes.Color :=Smsg.FontColor;
      RichEdit1.SelAttributes.Name:=Smsg.FontName;
      RichEdit1.SelAttributes.Size:=Smsg.FontSize;
      RichEdit1.SelAttributes.Style:=EnStyle(Smsg.FontStyle);
      ConvertMsgToFace(RichEdit1,Smsg.Content,OldCount);
    end;

通过UDP协议接收结构体及将结构体成员赋值给RichEdit控件属性

procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
      ABinding: TIdSocketHandle);
    var
      Rmsg:TMsg;  //接收消息结构
      OldCount:integer;
    begin
      //接收到的数据流直接可以传递给TMsg结构体，然后可以直接获取成员值
      AData.ReadBuffer(Rmsg,AData.Size);
      RichEdit1.SelStart:=MaxInt;
      RichEdit1.Paragraph.FirstIndent:=0;
      RichEdit1.SelAttributes.Color := clBlue;
      RichEdit1.Lines.Add(DateTimeToStr(Now)+' : 来自 '+ABinding.PeerIP+' 的消息 ：');
      RichEdit1.Paragraph.FirstIndent:=18;
      OldCount:=Length(RichEdit1.Text);
      //showmessage(rmsg.FontName);
      //showmessage(rmsg.FontStyle);
      //showmessage(rmsg.Content);
      RichEdit1.SelStart:=MaxInt;
      RichEdit1.SelAttributes.Color :=Rmsg.FontColor;
      RichEdit1.SelAttributes.Name:=Rmsg.FontName;
      RichEdit1.SelAttributes.Size:=Rmsg.FontSize;
      RichEdit1.SelAttributes.Style:=EnStyle(Rmsg.FontStyle);
      ConvertMsgToFace(RichEdit1,Rmsg.Content,OldCount);
    end;