| Admin | Дата: Среда, 10.02.2010, 10:13 | Сообщение # 16 |
Ранг 10
Группа: Администраторы
Сообщений: 1263
Награды: 16
Репутация: 2
Статус: Offline
| я не разу не работал да и первый раз слышу про эту библиотеку. Видемо msg нужно передавать в первый параметр функции GetReplyTo.
Не оказываю помощь через личные сообщения и ICQ
|
| |
| |
| boreun | Дата: Четверг, 11.02.2010, 21:03 | Сообщение # 17 |
Ранг 1
Группа: Пользователи
Сообщений: 6
Награды: 0
Репутация: 3
Статус: Offline
| Всё, решение найдено. Если кому интересно: Code procedure TForm1.ICQClient1MessageRecv(Sender: TObject; Msg, UIN: String);
var
OutText : PChar;
Len : integer;
Res : Pchar;
s:string;
begin
OutText := AllocMem(2048);
Len := 2048;
Res := GetReplyTo(PChar(msg), OutText, Len);
icqclient1.SendMessage(StrToInt(UIN),OutText);
Memo1.Lines.Add(UIN + ':..' + Msg);
Memo1.Lines.Add('БОТ:........'+ Res);
FreeMem(OutText, Len);
end;
Сообщение отредактировал boreun - Четверг, 11.02.2010, 21:04 |
| |
| |
