Скачивание файла

[Lemo]

Как программно скачать файл с файлообменника?!
Вот я только что залил на файлообменник простелнький файл...

http://slil.ru/27862203

Тойсть на форме расположена кнопка, клик на которую дает скичивание этого файла...
Ps^ файл-к без капчи!

[Levsha100]

Вот в этом блоке лежит ссылка.

<p align="center"> 
Закачка файла начнется через 10 секунд, или воспользуйтесь <a href="/27862203/2e267eba.4a6e9188/1.txt">ссылкой</a> 
<br>

Вернее здесь

href="/27862203/2e267eba.4a6e9188/1.txt"

А дальше смотрите на нижнею часть страницы! Там многое есть!!!
//--

Ну а программно как мне это можно организовать?

Поиск никто не отменял! )

[Lemo]

Ну а программно как мне это можно организовать?

[Levsha100]

Общий алгоритм:
Просим ссылку у пользователя.
Загружаем страницу, парсим код, получаем адрес закачки.
Загружаем файл по адресу закачки.
Все три шага подробно описывались/обсуждались на форуме. Поищите. Либо задавайте конкретные вопросы. Никто ничего за Вас делать не будет.

[Stilet]

Просим ссылку у пользователя.

Вот тут могут быть затыки в виде "Введите код который вы видете"

[Levsha100]

Ну аффтар же, вроде, сказал что защиты нету

[lennon]

нейро сеть нада. у меня где то была, я делал давно, обученая немного

[Lemo]

слишком уже как то тяжело ты предлогаешь...
Разберем простой пример:
Я кликаю по кнопке, в ходе выполнения береться адресс из едита(он отвечает за ссылку), например туда вбита ссылка

http://slil.ru/27864432

или с хешем

http://slil.ru/27864432/37c08027.4a6fd9a8/Текстовый_документ.txt

Так вот я клицаю на кнопку, браузер открытый, передомной появляеться:

И автоматически нажимаеться "Сохранить" и в некоторую директорию...
Можно ли представить такую операцию кодом?! Какие будут советы...

[lennon]

ну я честна незнаю тогда что будешь делать с частью где нужно ввести код с картинки. это ведь это протокол http, почитай как организовываеться скачивание файла, сложного нету ничего абсолютно. и пишу я токо на винапи без билдеров и дельфей и темболее мфц. могу наваять тебе класс для работы с http, за огромное огромное спасибо, но это токо на С++ ) мож самому потом и понадобиться.

[Lemo]

загуглил и по форуму еще прошелся, нашел примерно:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
  uses WinInet;


function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
{   Result:=False; }
   sAppName := ExtractFileName(Application.ExeName);
   hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
         nil, nil, 0);
   try
      hURL := InternetOpenURL(hSession,
      PChar(fileURL),nil,0,0,0);
      try
         AssignFile(f, FileName);
         Rewrite(f,1);
         repeat
            InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
            BlockWrite(f, Buffer, BufferLen)
         until BufferLen = 0;
         CloseFile(f);
         Result:=True;
      finally
      InternetCloseHandle(hURL)
      end
   finally
   InternetCloseHandle(hSession)
   end
end;
procedure TForm1.Button1Click(Sender: TObject);
var FileOnNet, LocalFileName: string;
begin
   FileOnNet:='http://slil.ru/27864432/37c08027.4a6fd9a8/Текстовый_документ.txt';
   LocalFileName:='MyFile.txt';

   if GetInetFile(FileOnNet,LocalFileName)=True then
      ShowMessage('Download successful')
   else
      ShowMessage('Error in file download')

end;



end.

Не долго длилось счастье =(((