IP-Eingabe Komponente erstellen
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] |
Re: Brauche drigend Hilfe für Komponente
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 :-) ...:cat:... |
Re: Brauche drigend Hilfe für Komponente
Zitat:
also... weit... nun ja... ich bin so weit dass ich quasi bei null bin... beginnen wollte ich mit der zuweisung der maske
Delphi-Quellcode:
aber selbst das klappt nicht. kurz gesagt es ist meine allererste komponente... :oops:
constructor TIPCheck.Create(AOwner:TComponent);
begin inherited Create(AOwner); EditMask:='991.991.991.991'; end; |
Re: Brauche drigend Hilfe für Komponente
Wie wäre es mit einem Tutorial zum Thema?
|
Re: Brauche drigend Hilfe für Komponente
so was hab ich schon ich habe hier ein buch von addison-wesley...
aber dennoch danke... |
Re: Brauche drigend Hilfe für Komponente
Zitat:
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:
Und von hier einfach weiter machen - und natürlich wieder "hallo" sagen, wenn es zu Problemchen kommt ;-)
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; ...:cat:... |
Re: Brauche drigend Hilfe für Komponente
klar doch...
thx very viel :spin: |
Re: Brauche drigend Hilfe für Komponente
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 ;-) ...:cat:... |
Re: IP-Eingabe Komponente erstellen
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 :hi: |
Re: IP-Eingabe Komponente erstellen
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. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:45 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz