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; |