Programm stürtzt ab...

[wayne312]

So hab das ganze jetzt mal ein wenig umgeschrieben :

Delphi-Quellcode:

procedure GetServerMap;
var
s,bsize       : integer;
a             : TBytes;
Stream1       : TMemoryStream;
map           : string;
begin
Stream1 := TMemoryStream.Create;
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));
Stream1.Free;
end
else
ShowMessage('Der Server ist momentan Offline');
Stream1.Free;
end;

So und ich bin durchgegangen : Die ganze Procedure läuft durch und die Nachricht mit "map" wird auch angezeigt, nur bei der zeile "end;" bekomm ich die
Fehlermeldung : "Access violation at address 00405AE4 in module 'Project1.exe'.Write of address FFFFFFF7."

Aber wieso?