Rede - usando o UPD

Top  Previous  Next

// usando TNMUPD

 

 

procedure TFormUDP.UDPDataReceived(Sender: TComponent; NumberBytes: Integer; FromIP: String; Port: Integer);

var

  Dados   : TMemoryStream;

  Mensagem: string;

begin

  Dados := TMemoryStream.Create;

  try

    UDP.ReadStream(Dados);

    SetLength(Mensagem, NumberBytes);

    Dados.Read(Mensagem[1], NumberBytes);

    Label1.Caption := Mensagem;

  finally

    Dados.Free;

  end;

end;

 

procedure TFormUDP.EnviarMensagem(Mensagem: string);

var

  Stream: TMemoryStream;

  S     : string;

begin

  Stream:= TMemoryStream.Create;

  try

    Mensagem := 'vai a merica';

    Stream.Write(Mensagem[1],Length(Mensagem));

    UDP.ReportLevel := Status_Basic;

    UDP.RemoteHost := '196.0.1.222';

    UDP.SendStream(Stream);

  finally

    Stream.Free;

  end;

end;