Indy-Netzwerk:Anfänger!

[mangaka]

Moin,
wie ihr schon im betreff lesen könnt, bin ich in sachen netzwerk noch ein totaler newbie.
ich habe mir vor ein paar tagen indy9 rutner geladen und versucht eine einfache verbindung zwischen meinen rechner und einem im netzwerk zu erstellen.
soweit so gut-das hatte ich geschafft, aber ich habe die server ip über die delphi-id eingeben gehabt.
so toll wie ich bin wollte ich dann, dass die server ip = die locale ip wird.
aber das krieg ich einfach nicht hin, es kann eigentlich nur an den bindings liegen...
könnt ihr mal schauen?

Delphi-Quellcode:

unit serverq;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdBaseComponent, IdComponent,
  IdTCPServer, IdResourceStrings, IdStack, IdGlobal, IdSocketHandle,
  IdIPWatch;

type
  TForm1 = class(TForm)
    IdTCPServer1: TIdTCPServer;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    IdIPWatch1: TIdIPWatch;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  Binding : TIdSocketHandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Label1.Caption := idIPWatch1.LocalIP + ' :';
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPServer1.Bindings.Clear;
  Binding := IdTCPServer1.Bindings.Add;
  Binding.IP := idIPWatch1.LocalIP;
  Binding.Port := 9099;
  Button1.Enabled := false;
end;

end.

ps.:kennt ihr evtl gute indys tuts? oder einfach seite wo die begriffe erklärt werden(muss nicht deutsch sein->aber englisch^^)

thx/mfg
mangaka

[mangaka]

k habs schon gelöst

[mr47]

Zitat:

Zitat von mangaka

k habs schon gelöst

und wie?

[mangaka]

Ich habe einfach nur vergessen den server zu aktivieren nachdem die ip eingestellt wurde:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdTCPServer1.Bindings.Clear;
  Binding := IdTCPServer1.Bindings.Add;
  Binding.IP := idIPWatch1.LocalIP;
  Binding.Port := 9099;
  Button1.Enabled := false;
  IDTCPServer1.Active := true;
end;

verstehst du?
also ich hatte davor eingestellt, dass das der server von anfang an aktiviert ist, aber da war noch keine ip eingestellt.
jetzt habe ich es am anfang deaktiviert und wenn die ip eingestellt ist aktiviert.

[mr47]

Achso. Schreib bitte in Zukunft immer die Lösung hin, dass andere auch was davon haben :wink:

mfg, schönen Sonntag mr47 :hi: