En counter i delphi

Skal brugerne logge ind når de vil chatte. Altså via dit program.?

For så kan du jo tælle hvor mange der har logget ind, og så trække fra, når folk logger ud igen.

Hvis du skal hjælpes, skal vi vide en del mere om hvordan du har opbygget din chat.

/SpEeDy

nej det er ikke på den måde og dog.
Med selve programmet kan man komme ind på min hjemmeside og ftp server uden at skulle logge på chatten er hvis man får problemer. Kan man ikke sige noget lignende at hver gang    onform.create
så +1 til label eller edit1.text hver gang på    form.exit eller hvad det nu hedder så label -1 eller edit.text -1

Det er lidt svært at forklare

Du bliver nok nødt til at forklare lidt bedre, hvordan systemet hænger sammen - tak!

okay så lad mig spørge sådan
kan jeg på nogen måder hvis jeg starter mit program og en anden som også har det starter se at der er en anden online...lad som om at jeg bare har en form og det eneste jeg skal er at indsætte nogle componenter som gør at når man kan se hvor mange gange programmet er blevet åbnet dvs hvor mange der bruger det..noget lignende eksperten

Lav en tabel med brugernavn/eller program kode der tæller et felt op og ned :

TableCount.fieldByname(\'OnlineUsers).asinteger :=  TableCount.fieldByname(\'OnlineUsers).asinteger +/- 1;

det er nok den bedste løsning, hvis ikke brugeren skal logge på, laver du bare noget koder der tæller op i \"MainFormen\'s\" onCreate og ned i OnDestroy.

/Martin

kan du ikke lige hvise mig den med on form create for en sikkerheds skyld..bare så ´jeg ikke klokker i det

kan den laves med spinedit?

procedure TForm1.FormDestroy(Sender: TObject);
begin
  TableCount.Open;
  TableCount.Edit;
  TableCount.FieldByName(\'OnlineUsers\').AsInteger := TableCount.FieldByName(\'OnlineUsers\').AsInteger - 1;
  TableCount.Post;
  TableCount.Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TableCount.Open;
  TableCount.Edit;
  TableCount.FieldByName(\'OnlineUsers\').AsInteger := TableCount.FieldByName(\'OnlineUsers\').AsInteger +1;
  TableCount.Post;
  TableCount.Close;
end;

Det virker men kan i meget sjælne tilfælde kan du komme ud for at du starter to programmer samtidig, men det sker ikke ofte da sådan en db update ikke tager mange sec.


/Martin

Kan du ikke lige lave eksemplet det i delphi og sende mig filerne? Jeg gjorde et eller andet forkert.
Send til Bilal@privat.dk

sender dem Imorgen

tusind tak for hjælpen martinlind

Så er det sendt.

så jeg fortjent nogle point ikk\' *S*

flot arbejde og tak for hjælpen*s*

Selv tak...

Den siger at jeg mangler en fil ved navn TableCount.db
er det fordi at jeg ikke har componentet

Nej det er fordi jeg ikke har lavet en database fil, på harddisken, jeg har lavet noget kode til der forventer en db.

når ja..den klarer jeg lige selv:)