Service & on Execute

[value is NULL]

@alfold

Unbeholfen bin ich nur in den dingen die ich noch nie gemacht habe! Ich habe ja vorhin gesagt das ich mir eigentlich das ganze selbst beibringe. Bis dato habe ich Konsolen apps gebastelt und viel mit XML und Datenbanken zu tun gehabt das geht schon ziemlich easy! Einen dienst habe ich bis dato noch nie erstellt, gut wenn das die Aufgabenstellung gewesen wäre dann hätte ich keinen thread eröffnen müssen den das schaffe ich auch so aber das das mit dem timer brauchte ich noch nie! Wenn ich soetwas ähnliches gebraucht habe, habe ich mir immer die aktuelle zeit ausgelesen, 5 Minuten adiert, und in einer while schleife die aktuelle zeit verglichen. ABER wenn ich das bei einem Service mache geht mir die Maschine in die knie!

Deswegen kommt es euch vielleicht so vor als ob ich euch nerven möchte aber ich Hab Delphi weser gelernt noch sonst was

Tut mir leid falls ich Unruhe in dieses Forum bringe

[alfold]

Zitat von value is NULL:

...Tut mir leid falls ich Unruhe in dieses Forum bringe

ne ist es ja nicht
Nur wenn ich lese was Du schon alles gemacht hast(Programiert hast) und dann stollperst du über einen simplen Timer, den man nur draufpacken muss und doppelcklick dadrauf schon steht die Procedure, den rest da rein schreiben fertig. Dies haben die meisten Komponenten so ansich, mh...

Egal, nun weist Du ja wie man es macht

Gruss alfold

[value is NULL]

naja wie gesagt learning by doing

ich würde das jetzt so machen:

Delphi-Quellcode:

procedure test.ServiceExecute(Sender: TService);
const
  seconds = 60;
var
  Count: Integer;
begin
  Count := 0;
  while not Terminated do
  begin
    Inc(Count);
    if Count >= seconds then
    begin
      Count := 0;
      //DO THE SPECIAL THINGS ;)
    end;
    Sleep(1000);
    ServiceThread.ProcessRequests(False);
  end;
end;

is zwar kein timer aber schaut auch gut aus oder gibt es hier was einzuwenden?
wenn ja bitte so erklären das ich es verstehe wie ja alle schon gemerkt haben bin ich bzgl service etwas noobig

lg

[alfold]

Zitat von value is NULL:

naja wie gesagt learning by doing
ich würde das jetzt so machen:
...

Machen und ausprobieren, wenn es funct ist gut, wenn nicht, noch mal nachfragen

Gruss alfold

[value is NULL]

ja kanns leider erst morgen mache deswegen hab ich mir gedacht ich schreibe das mal vielleicht hat ja jemand was auszusetzen bzw. muss ich mir die ganze zeit den kopf zerbrechen.... das macht mich fertig

lg

edit: vorallem hab ich die timer komponente ja jetzt komplett weggelassen deshalb

[alfold]

Zitat von value is NULL:

ja kanns leider erst morgen mache deswegen hab ich mir gedacht ich schreibe das mal ..

ähm wie jetzt, Du schreibst Code mit nem Texteditor oder wie soll ich das jetzt vestehn

[value is NULL]

programmers notepad

hab delphi nur auf einem laptop und der liegt grad bei der freundin :/