Thema: Delphi Indy-Netzwerk:Anfänger!

Einzelnen Beitrag anzeigen

mangaka

Registriert seit: 9. Apr 2005
44 Beiträge
 
Delphi 7 Personal
 
#1

Indy-Netzwerk:Anfänger!

  Alt 22. Apr 2005, 17:50
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
  Mit Zitat antworten Zitat