IP-Eingabe Komponente erstellen

[akira1983]

Guten Tag zusammen,

ich habe da ein ganz großes Problem.

Ich arbeite gerade an eine Komponente, die auf MaskEdit basiert und eine IP-Adresse überprüfen soll. Die Maske ist 991.991.991.991

Kann mir da jemand weiterhelfen?
Die Komponente muss folgendes können:
- Rückgabe des Wertes als IP komplett (z.B. 0.0.0.0)
- Rückgabe der einzelnen Byte, also jede Zahl einzeln
- Prüfung der Adresse als Ganzes (mit Fehlermeldung z.B. bei 299.155.155.155)

für Antworten bedanke ich mich im Voraus

mit Gruß aus Krefeld
akira1983

[edit=sakura]Überschrift angepasst Mfg, sakura[/edit]

[sakura]

Hi und herzlich willkommen und der Delphi-PRAXiS,

darf man fragen, wie weit Du schon bist, an welcher Stelle Du Probleme hast oder ob Du das erste Mal an einer Komponente arbeitest. Das wird dann bestimmt helfen konkretere Antworten zu geben

......

[akira1983]

Zitat von sakura:

Hi und herzlich willkommen und der Delphi-PRAXiS,

darf man fragen, wie weit Du schon bist, an welcher Stelle Du Probleme hast oder ob Du das erste Mal an einer Komponente arbeitest. Das wird dann bestimmt helfen konkretere Antworten zu geben

......

danke...

also...
weit... nun ja...

ich bin so weit dass ich quasi bei null bin...
beginnen wollte ich mit der zuweisung der maske

Delphi-Quellcode:

constructor TIPCheck.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  EditMask:='991.991.991.991';
end;

aber selbst das klappt nicht. kurz gesagt es ist meine allererste komponente...

[Tom]

Wie wäre es mit einem Tutorial zum Thema?

[akira1983]

so was hab ich schon ich habe hier ein buch von addison-wesley...

aber dennoch danke...

[sakura]

Zitat von akira1983:

aber selbst das klappt nicht. kurz gesagt es ist meine allererste komponente...

Keine Grund zur Peinlichkeit

Dann lass mich Dir einerseits mein (noch nicht fertiges) Tutorial zur Erstellung von Komponenten ans Herz legen und andererseits, laß mich Dir einen kleinen Start geben

Delphi-Quellcode:

type
  TIPCheck = class(TCustomMaskEdit)
  private
    function GetIP: String;
    procedure SetIP(const Value: String);
  protected
  public
    constructor Create(AOwner: TComponent); override;

    property IP: String
        read GetIP
        write SetIP;
  end;

{ TIPCheck }

constructor TIPCheck.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  EditMask := '991.991.991.991;1; ';
end;

function TIPCheck.GetIP: String;
var
  I: Integer;
  Temp: String;
begin
  Temp := Text;
  Result := '';
  for I := 1 to Length(Temp) do
    if Temp[I] in ['0'..'9', '.'] then
      Result := Result + Temp[I];
end;

procedure TIPCheck.SetIP(const Value: String);
begin
  Text := Value;
end;

Und von hier einfach weiter machen - und natürlich wieder "hallo" sagen, wenn es zu Problemchen kommt

......

[akira1983]

klar doch...


thx very viel

[sakura]

Ach da fällt mir noch eine kleine Bitte ein -> das nächste mal noch eine etwas besser zutreffende Überschrift auswählen. Das hilft uns allen weiter

Ausserdem schiebe ich das ganze mal gen Rubrik "VCL", da es eher um das Thema Komponente, als um IP/Internet Dinge gehen wird

......

[flomei]

Lad dir doch auch mal die Jedi´s runter und installier die. Da ist auch ne IPEdit Komponente bei. Guck dir doch mal deren Soßen an. Vielleicht hilft dir das ja...

MfG Florian

[Chewie]

Eine Alternative wäre, die Komponente auf Grundlage des Win-SysIPAddress32-Controls zu entwickeln, also mit anderen Worten eine Komponente zu schreiben, die diesen Control-Typ kapselt.
Der Nachteil ist hier nur, dass auf dem System, auf dem das eingesetzt wird, mindestens der IE 4.0 installiert sein muss.