[Delphi] HGG i jeden problem

0

cześć koledzy i koleżanki.

Mam problem. Był on już na forum ale nie dokończone. Jak odczytać opis z numeru pobranego z label1.caption ? Jeszcze jak pobrać status także z numeru z label1 ?

Opis będzie się pojawiał w Label2 a status to tylko podajcie mi komendę a ja sobie zrobię odpowiednie kolorowanie w label3 ;) Np. gdy będzie niedostępny to kolor czerowny ale z tym sobie poradzę.

Już mówię że szukałem, w helpie nic nie jest napisane jak odczytać te dwie rzeczy.

Proszę o pomoc ;)

0

Czy nikt nie umie mi pomóc ? :-O

0

Odświeżam - proszę o pomoc :)

0

Nikt nie odpisuje, bo to za proste.
Dodajesz numer do listy przy pomocy HGG.Users.Add podajże, status wyciągasz przy pomocy HGG.Users.User[index].Status, gdzie index to numer elementu w tablicy.

0

No tak. A co dać w nawiasie w Hgg.Users.Add(?????); ?

0

Ehh... Help tak bardzo gryzie czy co???

0

manfredek tak niegrzecznie mówiąc powiem to czemu walisz w huja ??

0

Strasznie nam pomogłeś. Normalnie dostaniesz od nas karnet na basen może być ?

Czekam nadal ;) :D

0

Weźcie się uspokójcie, ten plik .html dołączony do THGG to nie był śmieć tylko pomoc, poza tym przecież Code Insight z Delphi poda ci wymagane parametry... Co się dzieje z wami, że nawet do helpa zajrzeć się zachce tylko trzeba zawracać innym dupę???

0

No dobra.

Mam taki kod:

hgg1.Users.Add(4542156,'test',true);
Label1.Caption := GGg.Users[0].Description+' '+IntToStr(GGg.Users[0].GGNumber);

Ok. Ładnie pobiera się numerek ale niestety nie widać opisu. Na 100% ta osoba ma ustawiony opis np. LoL

Czy w tym kodzie jest błąd że źle jest podawany opis(że go wcale nie ma) :)

0
  • sprawdź czy na pewno jesteś połączony. (twój klient GG musi być zalogowany)
  • sprawdź czy obsłużyłeś zdarzenia (być może wykonujesz te dwie linie krok po kroku - czyli program przejedzie dalej, ale opis nie zdążył się jeszcze pobrać). Zauważ, że są do tego specjalne zdarzenia:

OnUserChangeStatus: procedure(Sender: TObject; UserIndex: Integer; GGNumber: Integer; Status: TUserStatus; Description: string) of object;
Użytkownik na liście kontaktów zmienił status, parametry to:
UserIndex - numer index użytkownika na liście kontaktów
GGNumber - numer GG
Status - nowy status
Description - nowy opis

OnUsersListChange: TNotifyEvent;
Występuje w przypadku jakiejkolwiek zmiany na liście kontaktów (np. dodanie, usunięcie użytkownika itd).</span>

0

Próbowałem na różne sposoby. Podłączony jest na 100% bo gdy połączenie jest to mam:

Label1.Caption:='Połączono'

I wyświetla to że połączyło mi :)

Teraz dalej:

procedure TForm1.Button12Click(Sender: TObject);
begin
hgg1.Users.Add(543165,'test',true);
end;

procedure TForm1.Button13Click(Sender: TObject);
begin
Label18.Caption := hgg1.Users[0].Name;
end;

I tak. Jeśli w tym buttonie wezmę odczyt nazwy to odczytuje mi test (no z tego co dodawałem). Jeśli wezmę opis a na pewno jest ustawiony to Label18 jest pusty. Jeśli wezmę IP to także jest pusty. Odczytuje mi tylko te parametry które dodałem w hgg1.Users.Add(543165,'test',true); :)

Deti , zacząłeś mi coś opisywać ale nie rozumiem co mam z tym zrobić ? wytrzaskać kod czy ogólnie opisywałeś. Jeśli kod to się poddaje i jak możesz to puść go tutaj :)

1 użytkowników online, w tym zalogowanych: 0, gości: 1