|
|
property Status: LongWord property LoggedIn: Boolean property UIN: LongWord property Pasword: String property ICQServer: String property ICQPort: Word property ConvertToPlaintext: Boolean property ContactList: TStrings property VisibleList: TStrings property InvisibleList: TStrings |
procedure Login(Status: LongWord = S_ONLINE) procedure Disconnect procedure SendMessage(UIN: LongWord; Msg: String) procedure SendURL(UIN: LongWord; const URL, Description: String); function AddContact(UIN: LongWord): Boolean function AddContactVisible(UIN: LongWord): Boolean function AddContactInvisible(UIN: LongWord): Boolean RemoveContact(UIN: LongWord) procedure RemoveContactVisible(UIN: LongWord) procedure RemoveContactInvisible(UIN: LongWord) procedure RequestInfo(UIN: LongWord) procedure SearchByMail(Email: String) procedure SearchRandom(Group: Word) procedure SearchWhitePages(First, Last, Nick, Email: String; MinAge, MaxAge: Word; Gender: Byte; Language, City, State: String; Country, Company, Department, Position: String; Occupation, Past, PastDesc, Interests, InterDesc, Affiliation, AffiDesc, HomePage: String; Online: Boolean); procedure SetSelfInfoGeneral(NickName, FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip, Country: String; TimeZone: Byte; PublishEmail: Boolean); procedure SetSelfInfoMore(Age: Word; Gender: Byte; HomePage: String; BirthYear: Word; BirthMonth, BirthDay: Byte; Language1, Language2, Language3: String); procedure SetSelfInfoAbout(About: String); procedure RequestContactList; procedure DestroyUINList(var List: TList); procedure SendSMS(const Destination, Text: String); ICQClient1.SendSMS('+3739401111', 'Hello, World!'); procedure SendMessageAdvanced(UIN: LongWord; const Msg: String; ID: Word; RTFFormat: Boolean); |
OnAddedYou(Sender: TObject; UIN: String) OnAdvancedMsgAck(Sender: TObject; UIN: String; ID: Word; AcceptType: Byte; AcceptMsg: String) OnConnectionFailed(Sender: TObject) OnLogin(Sender: TObject) OnMessageRecv(Sender: TObject; MsgType: Cardinal; Msg, UIN: String) OnOfflineMsgRecv(Sender: TObject; MsgType: Word; Msg, UIN: String); OnPktParse(Sender: TObject; Buffer: Pointer; BufLen: Cardinal; Incoming: Boolean); OnServerListRecv(Sender: TObject; SrvContactList: TList); TUINEntry = record UIN: LongWord; //UIN in contact list Nick: ShortString; //Nick of this UIN, can be null(empty) CType: Word; //Type, can be U_NORMAL(Normal contact list entry), U_VISIBLE_LIST(user is in visible list) //, U_INVISIBLE_LIST(user is in invisible list), U_IGNORE_LIST(user is in ignore list) CTag: Word; //Reserved for internal use CGroup: ShortString; //Group, where UIN is located on end; Example: procedure TMainForm.ICQClient1ServerListRecv(Sender: TObject; SrvContactList: TList); var i: Word; UserInfo: TUINEntry; begin if SrvContactList.Count > 0 then for i := 0 to SrvContactList.Count - 1 do begin UserInfo := PUINEntry(SrvContactList.Items[i])^; Memo1.Lines.Add(UserInfo.Nick + ' is in group ' + UserInfo.CGroup + ' and his uin is ' + IntToStr(UserInfo.UIN)); end; ICQClient1.DestroyUINList(SrvContactList); end; OnStatusChange(Sender: TObject; UIN: String; Status: Cardinal); UserFound(Sender: TObject; UIN, Nick, FirstName, LastName, Email: String; Status: Word; Gender, Age: Byte;
SearchComplete: Boolean); UserGeneralInfo(Sender: TObject; UIN, NickName, FirstName, LastName, Email, City, State, Phone, Fax, Street, Cellular, Zip, Country: String; TimeZone: Byte; PublishEmail: Boolean); var S: String; <....> S := IntToStr(- ShortInt(TimeZone) div 2) + ':' + IntToStr(Abs(ShortInt(TimeZone) mod 2 * 30)); OnUserInfoAbout(Sender: TObject; UIN, About: String); UserInfoBackground(Sender: TObject; UIN: String; Pasts, Affiliations: TStringList); OnInfoInterests(Sender: TObject; UIN: String; Interests: TStringList); OnUserInfoMore(Sender: TObject; UIN: String; Age: Word; Gender: Byte; HomePage: String; BirthYear, BirthMonth, BirthDay: Word; Lang1, Lang2, Lang3: String); OnUserInfoMoreEmails(Sender: TObject; UIN: String; Emails: TStringList); OnUserNotFound(Sender: TObject); OnUserOffline(Sender: TObject; UIN: String); OnUserWorkInfo(Sender: TObject; UIN, WCity, WState, WPhone, WFax, FAddress, WZip, WCountry, WCompany, WDepartment, WPosition, WOccupation, WHomePage: String); |
|
(C) 2002, Alex Demchenko, Moldova, Chishinev