Последние записи

made in programmersforum 5

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

20th
Фев

Скачать видео с сайта

Posted by micher under Delphi

Как скачать flash видео с сайта?

FaTaL

Когда то писал качалку для Flash Video с некоторых сайтов. Качает хоть по несколько гигов. Вот код потока:



// процедура скачки

procedure DownLoadThread.Execute;

var

  F: File;

  BufferLen: DWORD;

  hSession, hURL: HInternet;

  Buffer: array[1..1024] of Byte;

  err: boolean;

  FileUrl : PChar;

begin

   MainForm.DownloadProgressBar.Position := 0;

   DwnldSize := 0;

   if Copy (MainForm.SaveDlg.FileName, Length(MainForm.SaveDlg.FileName) - 3,

    Length(MainForm.SaveDlg.FileName))'.flv' then

   AssignFile(F, MainForm.SaveDlg.FileName + '.flv') else

   AssignFile(F, MainForm.SaveDlg.FileName); //Свяжемся с файлом

 {IF FileExists(Edit2.Text) then //Есть ли на диске этот файл

   begin

     Reset(f,1); //Ax, есть? Откроем!

     ResumePos := FileSize(F); //Откуда докачать

     Seek(F, FileSize(F)); //А писать будем в конец

   end else} ReWrite(f,1); //А раз нет, так создадим

   MainForm.StopDwnld := false; //Надо качать...

   //Открыли сессию

   hSession := InternetOpen(PChar(ParamStr(0)), PRE_CONFIG_INTERNET_ACCESS, nil, nil, 0);

   //И наш УРЛ

   FileUrl := PChar (MainForm.LinkEncodedEdit.Text);

   hURL := InternetOpenURL(hSession,FileUrl,nil, 0, 0, 0);
   {if ResumePos>0 then //Если докачиваем,

     begin

          lnternetSetFilePointer(hURL,ResumePos,nil,0,0); //То сместимся

     end;}

   REPEAT //Качаем

     err:= InternetReadFile(hURL, @Buffer,SizeOf(Buffer),BufferLen); //Читаем буфер

     IF err= false then //Ошибка чтения

       begin

         MessageBox (MainForm.Handle, 'Файл не доступен. Проверьте интернет cоединение.', 'Ошибка',

          mb_OK or mb_IconError); //Сообщим и выходим

         InternetCloseHandle(hURL); //<-|закрываем

         InternetCloseHandle(hSession); //<-|сесcии

         CloseFile(f); //<-|и файл

         MainForm.DownLoadBtn.Enabled := true;

         MainForm.DecodeBtn.Enabled := true;

         MainForm.StopBtn.Enabled := false;

         MainForm.SpeedTimer.Enabled := false;

         exit;

       end;

     BlockWrite(f, Buffer, BufferLen); //Пишем в файл

     // Показываем на прогресс

     Inc(DwnldSize);

     MainForm.SizeOfDownloading := DwnldSize;

     Synchronize (UpdateProgress);

     Synchronize (DownSizeView);
   UNTIL (BufferLen= 0) Or (MainForm.StopDwnld = true); //Качаем, пока не все или надо

   InternetCloseHandle(hURL); //<-|закрываем

   InternetCloseHandle(hSession); //<-|сесcии

   CloseFile(f); //<-|и файл
   Synchronize (ShowBaloon);

   MainForm.SpeedLabel.Caption := '0 КБ/с';

   MainForm.DownLoadBtn.Enabled := true;

   MainForm.DecodeBtn.Enabled := true;

   MainForm.StopBtn.Enabled := false;

   MainForm.SpeedTimer.Enabled := false;
end;