как отправить файл?

[RUSlan48]

Подскажите пожалуйста, как сделать чтобы при запуске приложения отправлялся файл (или хотя

бы просто сообщение) по почте (или на какой-нибудь файлообменник, но чтобы на почту пришла

ссылка на него) без каких-либо видимых признаков этого процесса?

[RIO]

Скрыть приложение, если нужно... Потом юзать компонент TIdHTTP, подключиться с помощью него к файлооб. отправить нужные запросы, пропарсить страничку и взять от туда ссылку на файл, после этого отправить на почту используя компонент TIdSMTP

[RUSlan48]

Теоретически всё конечно понятно...

Но это всё только теоретически...

[MyIE]

А ты хочешь, чтобы тебе написали готовую программу? Нее, чувак, так дела не делаются, тут дают куски кода или алгоритм, но не пишут программы)

[RUSlan48]

Нее, я понимаю))

Мне хотя бы ссылку туда, где об этом поподробнее...

[Usov]

Много примеров: http://tinyurl.com/yafr4jf

А конкретнее заливка файла:

procedure TForm1.Button3Click(Sender: TObject);
var
Data : TIdMultiPartFormDataStream;
str: string;
begin
Data:=TIdMultiPartFormDataStream.Create;
data.AddFormField('uploadtype', '1');
data.AddFormField('method','file');
data.AddFormField('status', 'yes');
data.AddFile('userfile', edit1.Text, 'mime');
Data.AddFormField('Submit','1');
idhttp1.HandleRedirects := true;
idhttp1.Disconnect;
try
memo2.Text := idHTTP1.Post('http://ipicture.ru/Upload/', data); //stroka s otvetom
finally
data.free;
end;
end;

Пример отправки почты идет вместе с компонентами инди.

А скрыто отправить просто так не получиться, у нормальных людей фаервол об этом скажет.

[RUSlan48]

понял, спасибо