VPF::ICQClient - транспорт файлов между клиентами

Alex_bochkov

Дата 3.12.2006, 15:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.9.2006

Репутация: нет
Всего: нет

Прошу прощения за ламерство, но самостоятельно сообразить не могу - как в самодельном ICQ-клиенте, (используя класс ICQClient) принять файл от другого клиента.
У класса есть несколько событий:

Код


procedure TForm1.ICQClient1FTStart(Sender: TObject; StartRec: TFTStartRec;
  FileName: String; FileSize, Speed: Cardinal);
begin
end;

procedure TForm1.ICQClient1FTRequest(Sender: TObject;
  RequestRec: TFTRequestRec);
begin
//при попытке отправки файла данному клиенту срабатывает данная процедура
ICQClient1.FTResponse(RequestRec, True, ''); <- в help-е была указана подобная процедура для принятия файла, но она вызывает ошибку:
//Could not add user for sending/receiving files
end;

procedure TForm1.ICQClient1FTInit(Sender: TObject; UIN, FileCount,
  TotalBytes, Speed: Cardinal; NickName: String);
begin
end;

procedure TForm1.ICQClient1FTFileData(Sender: TObject; UIN: Cardinal;
  Data: Pointer; DataLen: Cardinal; LastPacket: Boolean);
begin
end;

Может кто-нибудь поделиться собственными разработками, буду премного благодарен...

Snowy

Дата 4.12.2006, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Это потому что его нет в твоём контакт листе.
До приёма файла, ты должен добавить его в свой контакт-лист

Код


  AddContact(UIN); // здесь UIN - число (не string)

И вот только после этого можно обмениваться файлами.
Вот только нужно ли тебе это smile

Direct Connection - редкостная насквозь дырявая гадость.

Alex_bochkov

Дата 4.12.2006, 17:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.9.2006

Репутация: нет
Всего: нет

Необходимо для некоторой автоматизации процесса обновления программы:
Я встроил ICQ клиента в свою программку, используемую в организации... а из-за большого территориального разброса, и абсолютной компьютерной неграмотности пользователей, хотелось бы минимизировать их участие...
например, отправляю своему клиенту какую-нибудь служебную команду, при положительном ответе кидаю ему файл, он сам его принимает, распаковывает их архива, и запускает, свой процесс закрывает, программа установки выполняет необходимые действия и заново ее запускает.
Просто добавляю что-нибудь новое постоянно, а раскидывать обновления каждую неделю на 40 точек, и объяснять как обновлять как-то влом, особенно учитывая частую сменяемость кадров...

Snowy

Дата 4.12.2006, 17:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 53
Всего: 484

Оригинально.
Никогда не слышал о таком применении ICQ smile

Не проще было бы самому написать передачу файлов?
Или автоапдейт с http?
Зачем завязку на сервер ICQ делать?!

Alex_bochkov

Дата 4.12.2006, 18:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 13
Регистрация: 1.9.2006

Репутация: нет
Всего: нет

Так я могу одновременно еще и сообщения отправлять, придумать какие-нибудь команды и изменять настройки на удаленных точках.
С HTTP не хотелось бы связываться... я задолбаюсь заливать эти обновления, тем более для каждой точки они будут немного разные.
А нет ли какого-нибудь конкретного примера?... ну не соображаю я... а очень хочется сделать...
Из очень обширного "help" ничего не понятно, добавление пользователя в контакт лист сделал, теперь программа вообще ничего не выдает, ни ошибок, ни каких-либо сообщений.
Как непосредственно начать передачу файла?

Это сообщение отредактировал(а) Alex_bochkov - 4.12.2006, 18:37

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »