Hallo
Ich hab ein problem!!
Warum funktioniert die folgende Procedure nicht?
procedure TInstServer.serveractivClick(Sender: TObject);<br>
begin<br>
server.port := Port;<br>
server.open;<br>
serveractiv.Checked:=true;<br>
serverclose.Checked:=false;<br>
StatusBar1.Panels[0].text := 'Aktiv';<br>
StatusBar1.Panels[1].text := 'Server IP: ' + Server.Socket.LocalAddress;<br>
end;<br>
Und zwar gibt mir diese procedure in StatusBar1.Panels[1] die IP 0.0.0.0 aus, anstatt der richtigen IP!! Was mache ich falsch??
MFG
Daniel
Ich hab ein problem!!
Warum funktioniert die folgende Procedure nicht?
procedure TInstServer.serveractivClick(Sender: TObject);<br>
begin<br>
server.port := Port;<br>
server.open;<br>
serveractiv.Checked:=true;<br>
serverclose.Checked:=false;<br>
StatusBar1.Panels[0].text := 'Aktiv';<br>
StatusBar1.Panels[1].text := 'Server IP: ' + Server.Socket.LocalAddress;<br>
end;<br>
Und zwar gibt mir diese procedure in StatusBar1.Panels[1] die IP 0.0.0.0 aus, anstatt der richtigen IP!! Was mache ich falsch??
MFG
Daniel
Comment