Programm stürtzt ab...

[DeddyH]

Du gibst den Stream ggf. 2 mal frei. Versuch es mal so:

Delphi-Quellcode:

procedure GetServerMap;
var
  s,bsize       : integer;
  a             : TBytes;
  Stream1       : TMemoryStream;
  map           : string;
begin
  Stream1 := TMemoryStream.Create;
  try
    s:=16384;
    SetLength(a,s);
    if Form1.sLabel3.Caption=('ON') then begin
      Form1.IdUDPClient1.Send('ÿÿÿÿTSource Engine Query');
      bsize := Form1.IdUDPClient1.ReceiveBuffer(a,s);
      Stream1.WriteBuffer(a,bsize);
      Stream1.Position:=Length(Form1.sLabel5.Caption)+7;
      ShowMessage(ReadString(Stream1));
    end
    else
      ShowMessage('Der Server ist momentan Offline');
  finally
    Stream1.Free;
  end;
end;