Вывод ника в TICQ

@Usernews · Регистрация: 12.12.2009

Author24 — интернет-сервис помощи студентам

Вот никак не доходит сделал в компоненте TICQ от царя вывод в memo и хочу сделать чтобы записывало входящие сообщения в формате ник в асе: текст сообщения вот сам код:

Delphi

1	Memo1.Lines.Add(UIN + ': ' + Msg);

как я понял надо заменить UIN на .... прошу у вас помощи на что заменить???

@yamilramilev · 13.12.2009, 21:36

Вместе с компонентом есть модуль GetUserInfo.pas и там есть функция

Pascal

1	function GetNickFor(UIN : Cardinal) : ShortString;

а дальше уж сам как нить

@Usernews · 13.12.2009, 22:12 **[ТС]**

а чуть чуть по подробнее можно?

@yamilramilev · 13.12.2009, 22:14

Pascal

1	Memo1.Lines.Add(GetNickFor(UIN) + ': ' + Msg);

Как бы так, если компилятор не ругнется

@Usernews · 13.12.2009, 22:16 **[ТС]**

попробывал следующим образом:

Delphi

1	Memo1.Lines.Add(GetUserInfo.GetNickFor + ': ' + Msg);

но не работает не компилирует ругаетца

Добавлено через 33 секунды

Сообщение от yamilramilev

Pascal

1	Memo1.Lines.Add(GetNickFor(UIN) + ': ' + Msg);

Как бы так, если компилятор не ругнется

ругаетца

@Vladiator · 13.12.2009, 22:17

Сообщение от Usernews

GetUserInfo.GetNickFor

Конечно, параметры не указаны
Может GetUserInfo в uses добавить?

@yamilramilev · 13.12.2009, 22:19

В uses не надо добавлять, в компоненте она там уже есть.
Usernews, на что ругается компилятор?

@Usernews · 13.12.2009, 22:23 **[ТС]**

Вот тут не знаю я тока учусь работать с компонентом ... по этому прошу помощи у вас

Добавлено через 51 секунду

Delphi

1	[Error] Unit1.pas(75): Incompatible types: 'Cardinal' and 'String'

Добавлено через 2 минуты
ругается:

Delphi

1	[Error] Unit1.pas(75): Incompatible types: 'Cardinal' and 'String'

@yamilramilev · 13.12.2009, 22:24

А у тебя переменная UIN как string объявлена что ли?

@Usernews · 13.12.2009, 22:29 **[ТС]**

ну в обьявление процедуры да :

Delphi

1	procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);

@yamilramilev · 13.12.2009, 22:30

ну тогда попробуй

Pascal

1	Memo1.Lines.Add(GetNickFor(StrToInt(UIN)) + ': ' + Msg);

@Usernews · 13.12.2009, 22:32 **[ТС]**

тоже самое компилятор ругается и причем ругается как и тогда по той же ошибке...

@yamilramilev · 13.12.2009, 22:47

не может быть такого

@Usernews · 13.12.2009, 23:02 **[ТС]**

Delphi

1	[Error] Unit1.pas(75): Incompatible types: 'Cardinal' and 'String'

вот такая

Добавлено через 9 минут
ну так что не кто не знает чтоли?

Добавлено через 3 минуты
так ну после небольшого раздумия попробывал вот так:

Delphi

1	Memo1.Lines.Add(PUINNickItem(UINNickList.Items[i])^.Nick + ': ' + Msg);

но при старте при написание сообщений в ответ тишина то есь не отвечает бот

@yamilramilev · 14.12.2009, 12:19

Может выложишь свой код? Посмотрим)))

@Usernews · 14.12.2009, 13:58 **[ТС]**

так ладно это в принципе не так и важно вот таой вопрос ещё вот делаю команду ник <ник>:

Delphi

if Msg='íèê 'nickname''then
ICQClient1.SendMessage(icq, 'регистрация завершена')
  ini:=TIniFile.Create(ExtractFileDir(Application.ExeName)+ '\' + 'user.ini' );
  ini.WriteInteger('NEW USER', 'UIN', + StrToInt(UIN));
  ini.WriteInteger('NEW USER', 'ник', nickname);
  ini.Free;

идет запись значения в ini файл пользователя как указать "nickname" помогите)))

@amaroktmb · 03.01.2010, 22:33

вместе с компонентом есть пример, в котором описана эта функция. если у тебя нету то могу прислать

@yamilramilev 267 / 258 / 47 Регистрация: 08.10.2009 Сообщений: 554
	14.12.2009, 12:19	15
	Может выложишь свой код? Посмотрим))) 0

@Usernews 4 / 4 / 1 Регистрация: 12.12.2009 Сообщений: 55
	13.12.2009, 22:12 [ТС]	3
	а чуть чуть по подробнее можно? 0

@Vladiator 1574 / 645 / 79 Регистрация: 24.02.2009 Сообщений: 9,268
	13.12.2009, 22:17	6
	Сообщение от Usernews GetUserInfo.GetNickFor Конечно, параметры не указаны Может GetUserInfo в uses добавить? 0

@yamilramilev 267 / 258 / 47 Регистрация: 08.10.2009 Сообщений: 554
	13.12.2009, 22:19	7
	В uses не надо добавлять, в компоненте она там уже есть. Usernews, на что ругается компилятор? 0

@yamilramilev 267 / 258 / 47 Регистрация: 08.10.2009 Сообщений: 554
	13.12.2009, 22:24	9
	А у тебя переменная UIN как string объявлена что ли? 0

@Usernews 4 / 4 / 1 Регистрация: 12.12.2009 Сообщений: 55
	13.12.2009, 22:32 [ТС]	12
	тоже самое компилятор ругается и причем ругается как и тогда по той же ошибке... 0

@yamilramilev 267 / 258 / 47 Регистрация: 08.10.2009 Сообщений: 554
	13.12.2009, 22:47	13
	не может быть такого 0

@amaroktmb 9 / 9 / 0 Регистрация: 03.01.2010 Сообщений: 28
	03.01.2010, 22:33	17
	вместе с компонентом есть пример, в котором описана эта функция. если у тебя нету то могу прислать 0