Połączenie Client Server Indy Component

0

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

0

Na początek daj większy timeout połączenia. 30 ms może być zbyt mało. Jeśli nie pomoże spróbuj podłączyć się do serwera jakimś klientem telnet, np putty.

0

Źle się do tego zabierasz. Twój serwer jakiś dziwny jest. To się robi o wiele prościej. Poszukaj przykładów u wujka Google i cioci Bing.

0

Może jest lepszy sposób na to co ty tworzysz powiedz co chcesz przesyłać i jaką metodą...
bo to mi nie wygląda na TCP

1 użytkowników online, w tym zalogowanych: 0, gości: 1