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?