Hola,
estoy usando el componente UDPSocket en Delphi 7
y funciona muy bien,
pero tengo un problema,
mientras la aplicacion está funcionando de a poco comienza a ocupar memoria en el servidor
a las 15 horas aprox. comienza a funcionar muy lento porque ocupa en memoria como 200Mbyte y sigue aumentando.
No sé como corregirlo, porque no sé que es lo que se va guardando en memoria y tampoco puedo hacer muchas pruebas porque en mi máquina no recibo datos por udp solo en el servidor que es un servidor remoto alquilado.
es una aplicación que recibe datos de un gps por el puerto 1009 con el protocolo UDP.
el procedimiento que recibe los datos de udp es el siguiente:
Código Delphi
[-]procedure TForm1.UDPSocketDataAvailable(const Sender: AUDPSocket);
var
Buf, s , s2,ids ,cmd, cmd2, largo, nombre: String;
Address : TSockAddr;
size1 , largo2 : Integer;
FMaxPacketSize : Integer;
alarm : Boolean;
begin
timer1.Enabled := false;
FMaxPacketSize := DefaultMaxUDPPacketSize;
size1 := 300;
SetLength(String(Buf), FMaxPacketSize);
Sender.ReadPacket(Pointer(Buf)^, 4096, size1,Address);
s:= copy(Buf,1,Size1);
s2 := copy(Buf,5,7);
ids := copy(sacarId(s2),1,7);
cmd := sacarid(copy(Buf,12,2));
cmd2 := '';
if (cmd='9999') Then
Begin
alarm := true;
cmd2 := sacarid(copy(Buf,14,1));
End
else alarm := false;
largo := sacarid(copy(Buf,3,2));
largo2 := BaseToint(largo,16)-20;
if (alarm) Then Buf := copy(s,15,largo2) else Buf := copy(s,14,largo2);
if (Memo1.Lines.Count>300) Then
Begin
DateTimeToString(nombre,'YYMMDDHHmmss',now);
nombre := nombre + '.txt';
Memo1.Lines.SaveToFile(nombre);
Memo1.Lines.Clear;
End;
Memo1.Lines.Add ( (ids) + ' : ' + cmd + '(' + cmd2 + ') '+ ' : ' + Buf);
enviarPost(form1.Memo2.Lines.Strings[4],Buf,(ids),cmd + cmd2);
end;