Здравствуйте!
Я новичок в работе с сетью. Сделал простейшую пару клиент - сервер.
Клиент передает сообщение:
with FOwner.IdTCPClient do
try
Connect;
try
IOHandler.Writeln('Привет, сервер!');
St := IOHandler.ReadLn;
ShowMessage(St);
finally
Disconnect;
end;
except
on E: EIdException do
begin
FOwner.lblResult.Caption := 'Communication Exception: ' + E.Message;
end;
end;
Сервер его принимает:
procedure TfmClientMain.IdTCPServerExecute(AContext: TIdContext);
var
St : String;
begin
St := AContext.Connection.IOHandler.Readln;
mmInput.Lines.Add(St);
AContext.Connection.IOHandler.WriteLn('Привет, клиент!');
end;
Все прекрасно работает на D2009 под Windows
Делаю аналог для планшета на Андроид на Delphi XE5.
Сервер при попытке активации
IdTCPServer.Active := true;
Генерирует ошибку:
EIdSocketError #98 address already in useС чем это может быть связано? куда копать?