Page 1 of 2 1 2 LastLast
Results 1 to 15 of 18

Thread: Verkrijg MSN-lijst

  1. #1

    Verkrijg MSN-lijst

    Een vraagje: de zoveelste

    Hoe krijg ik M'n MSN-lijst te zien in een TListView.

    deze code werkt niet:

    Code:
    procedure TFHoofd.MSNAllListsDone(Sender: TObject);
    var
    i2: Integer;
    LijstItem: TListItem;
    begin
    for i2 := 1 to MSN.ForwardList.UserCount do
      begin
      LijstItem:=Lijst.Items.Add;
      LijstItem.Caption := MSN.AllowList.Users[i2].Displayname;
      end;
    end;

  2. #2
    Je zit in twee verschillende lijsten te graven, namelijk de ForwardList en de AllowList. Waarschijnlijk moet je de ForwardList hebben. Het item dat je opvraagt is een TMSNUser of een TMSNBuddyUser. Beide hebben uberhaupt geen displayname property. (of heb ik nog een oude versie?)
    1+1=b

  3. #3
    Originally posted by GolezTrol
    Je zit in twee verschillende lijsten te graven, namelijk de ForwardList en de AllowList. Waarschijnlijk moet je de ForwardList hebben. Het item dat je opvraagt is een TMSNUser of een TMSNBuddyUser. Beide hebben uberhaupt geen displayname property. (of heb ik nog een oude versie?)
    Die property heb ik inderdaad een andere naam gegeven. Zie hiervoor de version history. Tevens zijn er in de tussentijd al meer dingen aangepast.

    Verder is dit de juiste code:
    Code:
    procedure TForm1.NLDMSNP1AllListsDone(Sender: TObject);
    var
      i2: Integer;
      LijstItem: TListItem;
    begin
      for i2 := 0 to NLDMSNP1.ForwardList.UserCount - 1 do
      begin
        LijstItem:=Lijst.Items.Add;
        LijstItem.Caption := NLDMSNP1.ForwardList.Users[i2].Displayname;
      end;
    end;
    Je moet inderdaad de juiste lijsten pakken en je moet je for lus starten bij nul en eindigen bij het aantal users minus 1, anders krijg je een "List index out of bounds" exception. Dit is redelijk standaard in Delphi: de meeste lijsten beginnen bij 0 (zero based).
    Last edited by Vos; 04-May-03 at 02:53.

  4. #4
    Ja hij werkt, en dat was inderdaad de fout die ik kreeg

    Bedankt
    "Wanneer u een ding kent, en kunt doen als een die het kent, en wanneer u een ding niet kent en kunt erkennen dat u het niet kent, dat is Kennis."

  5. #5
    Code:
    procedure TForm1.msnlist(Sender: TObject);
    var
      i2: Integer;
      LijstItem: TListItem;
    begin
      for i2 := 0 to msn.ForwardList.UserCount - 1 do
      begin
        LijstItem:=Lijst.Items.Add;
        LijstItem.Caption := msn.ForwardList.Users[i2].Displayname;
      end;
    end;
    als ik dit probeer krijg ik:

    undeclared identifier: 'TlistItem'
    undeclared identifier: 'Fowardlist'
    'DO' expected but identiefier 'UserCount' found

    kan iemand mij even opweg helpen ?

  6. #6
    Ex-Student
    Join Date
    Feb 2004
    Location
    Leeuwarden
    Posts
    2,409
    je eerste error word vrijwel zeker veroorzaakt, omdat er een unit in de uses ontbreekt. Welke dat is, zou ik je niet kunnen vertellen, omdat het waarschijnlijk een eigen unit is. (dus een unit door jou gemaakt)

    ForwardList is denk ik een onbekende field/functie (typo?) zodra je deze fout hebt opgelost is de derde foutmelding waarschijnlijk ook opgelost

  7. #7
    hmm

    misschien dat iemand even in t kort kan laten zien, hoe dat ik mijn buddy lijst verkrijg ?

  8. #8
    of in ieder geval even een richting geven waar ik moet zoeken ?

  9. #9
    als ik dit probeer krijg ik:

    undeclared identifier: 'TlistItem'
    Originally posted by Redboy
    je eerste error word vrijwel zeker veroorzaakt, omdat er een unit in de uses ontbreekt. Welke dat is, zou ik je niet kunnen vertellen, omdat het waarschijnlijk een eigen unit is. (dus een unit door jou gemaakt)
    TListItem is een item in een TListView (ComCtrls.pas)
    DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden

  10. #10
    Vroeger hield het component zelf de lijsten bij, dit is niet meer zo. Je moet het event OnUserIsInList gebruiken om te weten welke buddy in welke lijst voorkomt.

  11. #11
    maar hoe haal ik dan alle buddy's uit mijn buddylist en stop die in een listbox?
    Want als ik het goed begrijp moet je nu elk mogelijke e-mail adres controleren of deze bestaat in je buddylist?

  12. #12
    Nee, OnUserIsInList geeft je een parameters mee voor de informatie. Je weet dmv die parameters op welke lijsten die user voorkomt. Zo kun je zelf de 4 lijsten opbouwen die je nodig hebt.

  13. #13
    maar je moet dus eerste de e-mail adres weten om vervolgens er achter te komen op welke lijst die persoon staat?

  14. #14
    Nee, op het moment dat jij je aanmeld op het MSN netwerk stuurt de server jou contactlijst. Dit betekend dus alle users op alle lijsten. Per user krijg jij een event (OnUserIsInList) met de gebruiker (displayname en e-mail adres) en op welke lijst(en) (blForwardList, blReverseList, blAllowList, blBlockList) hij voorkomt. Op die manier weet je precies op welke lijst een bepaalde user voorkomt.

  15. #15
    Okey ik snap het!

    maar nu wil ik de mensen uit mijn blAllowList in m'n listbox hebben.

    Code:
    if Lists = ?? then
    begin
      ListBox1.Items.Add(User.Passport);
    end;
    Ik heb deze code geprobeerd maar weet niet wat er op de plek van de ?? moet staan

Page 1 of 2 1 2 LastLast

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Lijst run-time packages project options
    By Ramon in forum Algemeen
    Replies: 2
    Last Post: 09-Mar-04, 14:11
  2. MSN protocol versie
    By rckoenes in forum NLDMSNP
    Replies: 19
    Last Post: 18-Jan-04, 19:55
  3. MSN Code's (lijst ofzo)
    By sn0x0r in forum Koffiehoek
    Replies: 1
    Last Post: 24-Feb-03, 19:43
  4. Vraagje over rekenmachine in Delphi
    By E_Motion in forum Algemeen
    Replies: 7
    Last Post: 21-Nov-02, 19:44

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •