|
hola
o teu codigo utiliza o protocolo HTTP e eu queria utilizar o protocolo UDP
o meu codigo
procedure TForm1.ButtonSendClick(Sender: TObject);
var
MyStream: TmemoryStream;
Begin
IdUDPServer1.Active:=true;
MyStream:=TMemoryStream.Create;
MyStream.Position:=0;
IdUDPClient1.Host:=Edit1IP.Text;
IdUDPClient1.Port:=strtoint(Edit2port.Text);
jpg.JPEGNeeded;
jpg.SaveToStream(MyStream);
IdUDPClient1.SendBuffer(MyStream.memory^,MyStream.size)
end;
mas da um erro ao tentar enviar
message too long
Saludos
|