Forum: Netzwerke
Delphi
by Cöster,
6. Jul 2006
Danke, jetzt läuft's. Auf dem Formblatt befinden sich ein Edit-Feld, ein Button und die Komponente TIdSNTP. Hier der Quelltext:procedure TForm1.Button1Click(Sender: TObject);
begin
IdSNTP1.Host:='129.69.1.153';
Edit1.Text:=DateTimeToStr(IdSNTP1.DateTime);
end;
Es gibt allerdings immer noch ein Problem:
Wenn ich oft hintereinander auf den Button klicke, hängt sich das Programm...
Forum: Netzwerke
Delphi
by Cöster,
5. Jul 2006
Es gibt die Komponenten IdNNTP, IdSNTP und IdNNTPServer. Die Komponenten IdTimeServer und IdDayTimeServer gibt es auch. Ich weiß aber nicht, welche ich davon benötige und wie der Quelltext dann aussieht.
Wenn ich auf der Form ein Label, einen Button und die Komponenten IdDayTimeServer(active auf true setze) und IdDayTime platziere bekomme ich durch procedure TForm1.Button1Click(Sender: TObject);...