Witajcie, mam prośbę o podpowiedz.
Raczkuje dopiero w delphi więc problem zapewne jest tendencyjny ale jest dlatego zapytuje:
Próbuje ustanowić połączenie Client/Server w sieci lokalnej za pomocą Componentów IdTCPClient idTCPServer i IdIPWatch
Kod aplikacji Servera:
procedure TForm1.FormCreate(Sender: TObject);
begin
RichEdit1.Clear;
IdTCPServer1.DefaultPort := 8808;
if not IdTCPServer1.Active then
begin
IdTCPServer1.Active := TRUE;
if IdTCPServer1.Active = TRUE then
ShowMessage('Serwer oczekuje na polaczenie');
end;
end;
procedure Tform1.IdTCPServer1Connect(AThread: TIdPeerThread);
var
wiad_all : string;
wiad_adr : string;
local_ip : string;
begin
wiad_all := Athread.Connection.AllData;
wiad_adr := Athread.Connection.Socket.Binding.PeerIP;
IdIPWatch1.HistoryEnabled := false;
local_ip := IdIPWatch1.LocalIP;
IdIPWatch1.Free;
//odebranie wiadomości
if wiad_adr <> local_ip then
begin
RichEdit1.Lines.Add(wiad_all);
end;
end;
Kod aplikacji Clienta
procedure TForm1.FormCreate(Sender: TObject);
begin
IdTCPClient1.Port := 8808;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
IdTCPClient1.Host := '10.11.12.4';
IdTCPClient1.Connect(30);
if Form1.IdTCPClient1.Connected then
begin
IdTCPClient1.Write(Form1.edit1.Text);
IdTCPClient1.Disconnect;
end;
end;
Jeżeli chodzi o aplikacje serwera to po uruchomieniu i sprawdzeniu netstat -a TCP host:8808 jest widoczny i nasłuchuje.
Po uruchomieniu aplikacji clienta przy probie wyslania informacji pojawia sie ERROR:
Socket Error # 10049 Cannot assign requested adress.
Jeżeli chodzi o zapory itd. wszystko wylaczone
Prośba o podpowiedz w temacie. korzystając z przykładu na 4programmers.net takie same bledy w polaczeniu wystepuja.
Pozdrawiam