как отправить файл через ICQClient1.SendFileDC в компоненте TICQClient 1.34.1

[KWNlnc]

и почему у меня выделяет красным

type
TForm1 = class(TForm)
ICQClient1: TICQClient;
procedure ICQClient1SendFileFinish(Sender: TObject; UIN: Cardinal;
SendFileRec: TSendFileRec; Aborted: Boolean);

ICQClient1.SendFileDC() не отправляет

[Пепел Феникса]

1)

uses ICQWorks

2)не работает оно

[KWNlnc]

Как мне решить передачу файла.

[W0LF]

Через ICQ - некак... Используй сторонние серверы, можно файлообменщики.
Вот, например, пример загрузки файла на сайт http://upwap.ru, но, а если понадобиться, то получении ссылки и загрузку файла можно реализовать - это легко и проблем несоздаст...

{--------------------------------------------------------------------}
{------------------- Copyright 4T(4team) © 2010 --------------------}
{--------------------------------------------------------------------}

uses
  IdMultipartFormData, IdHTTP;

function UploadFile_UNWAP(_filename, _info: string; const _password: string = ''): string;
var
  _F: TIdMultiPartFormDataStream;
  _Http: TIdHTTP;
  _Buff: string;
begin
  _Http := TIdHTTP.Create(nil);
  _Http.HandleRedirects := True;
  _Http.Get('http://upwap.ru/upload/');
  _F := TIdMultiPartFormDataStream.Create;
  if FileExists(_filename) then
    _F.AddFile('file', _filename, 'multipart/form-data')
    else begin
      Result :=  'Файл для загрузки ненайден!';
      Exit;
    end;
  _F.AddFormField('desc', UTF8Encode(_info));
  if _password <> '' then
    _F.AddFormField('password', UTF8Encode(_password));
  _F.AddFormField('send', UTF8Encode('Отправить!'));
  _Buff:=UTF8Decode(_Http.Post('http://upwap.ru/upload/', _F));
  if Pos('Файл размещен', _Buff) = 0 then
    Result := 'Ошибка...'
    else begin
      Delete(_Buff, 1, Pos('Файл размещен', _Buff) + Length('Файл размещен') + 18);
      Delete(_Buff, Pos('">', _Buff), Length(_Buff) - Pos('">', _Buff) + 1);
      Result := 'http://upwap.ru' + _Buff;
    end;
  _F.Free;
  _Http.Free;
end;

// Тестировалось только на Delphi 7

[Пепел Феникса]

Через ICQ - некак...

это почему это?
может через компонент никак всетаки?
берем сокет коннекта(компонент должен выдавать поидее) потом берем протокол и шлем нужный пакет.
или может компонент позволяет слать свои пакеты.

[KWN, lnc]

W0LF а как с помощью

function UploadFile_UNWAP(_filename, _info: string; const _password: string = ''): string;

получить файл. программно?

[Stilet]

Может ты имел ввиду функцию URLDownloadToFile?

[KWN, lnc]

Stilet, Да! вот выгрузил я файл с помощью функции function UploadFile_UNWAP

а теперь программно и с помощью пароля который я там ввел! скачать его, как?