VPF::скачать файл c сервера средствами winapi

BLACK_KOT

Дата 16.12.2010, 01:27 (ссылка)

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

Загрузка ...

Опытный

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

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

как сохранить на жёсткий файл с сайта с помощью winapi?

--------------------

.. я - демо версия Бога от Microsoft..

Rrader

Дата 16.12.2010, 06:53 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

http://forum.vingrad.ru/index.php?showtopi...st&p=702016

--------------------

Let's do this quickly!
Rest in peace, Vit!

BLACK_KOT

Дата 22.12.2010, 13:52 (ссылка)

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

Загрузка ...

Опытный

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

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

пытаюсь скачать файл размером 5200000 байт с сайта на narod.ru
Использовал функции:

Код


function DownloadFile(const Url: string): string;

var

NetHandle: HINTERNET;

UrlHandle: HINTERNET;

Buffer: array[0..1024] of char;

BytesRead: cardinal;

begin

Result := '';

NetHandle := InternetOpen('Delphi 5.x', INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);

 

if Assigned(NetHandle) then

   begin

 

     UrlHandle := InternetOpenUrl(NetHandle, PChar(Url), nil, 0, INTERNET_FLAG_RELOAD, 0);

 

     if Assigned(UrlHandle) then

{ UrlHandle правильный? Начинаем загрузку }

       begin

         FillChar(Buffer, SizeOf(Buffer), 0);

         repeat

           Result := Result + Buffer;

           FillChar(Buffer, SizeOf(Buffer), 0);

           InternetReadFile(UrlHandle, @Buffer, SizeOf(Buffer), BytesRead);

         until BytesRead = 0;

         InternetCloseHandle(UrlHandle);

       end

     else

       begin

{ UrlHandle неправильный. Генерируем исключительную ситуацию. }

         raise Exception.CreateFmt('Cannot open URL %s', [Url]);

       end;

 

     InternetCloseHandle(NetHandle);

   end

else

{ NetHandle недопустимый. Генерируем исключительную ситуацию }

   raise Exception.Create('Unable to initialize Wininet');

end;


...

begin
        AssignFile(f,'C:\1.txt');//запихиваю в текстовый файл
        rewrite(f);
        write(f,DownloadFile('http://blackkot32.narod.ru/DOTU/01_vvodnaia_1/20.txt'));
        CloseFile(f);
end;

и вторая

Код


procedure DLFile(DwFile, SvFile: string);
var
  hInternet: pointer;
  hFile: pointer;
  DataBuff: pointer;
  Size, Bytes: dword;
  hOut: dword;
begin
  try
    try
      hInternet := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
      hFile := InternetOpenUrl(hInternet, PChar(DwFile), nil, 0,
                               INTERNET_FLAG_EXISTING_CONNECT, 0);
      if hFile <> nil then
      begin
        InternetQueryDataAvailable(hFile, Size, 0, 0);
        GetMem(DataBuff, Size);
        try
          InternetReadFile(hFile, DataBuff, Size, Bytes);
          hOut := CreateFile(PChar(SvFile), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, $20, 0);
          if hOut <> INVALID_HANDLE_VALUE then
          begin
            WriteFile(hOut, DataBuff^, Size, Bytes, nil);
            CloseHandle(hOut);
          end
        finally
          FreeMem(DataBuff);
        end;
      end;
    except
      MessageBox(0,'Íå ìîãó ïîäêëþ÷èòüñÿ ê ñåðâåðó','',MB_OK);
    end;
  finally
    InternetCloseHandle(hFile);
    MessageBox(0,pchar('ñêà÷àë '+inttostr(Size)),'',MB_OK);
  end;
  InternetCloseHandle(hInternet);
end;        

...

DLFile('http://blackkot32.narod.ru/DOTU/01_vvodnaia_1/20.txt','C:\0!.txt')

в обоих случаях файл не докачивается чтоли, его размер меньше. иль я его не правильно сохраняю?

--------------------

.. я - демо версия Бога от Microsoft..

BLACK_KOT

Дата 8.6.2011, 01:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Код


procedure DLFile(DwFile, SvFile: string);
var
  hInternet: pointer;
  hFile: pointer;
  DataBuff: pointer;
  Size, Bytes: dword;
  hOut: dword;
begin
  try
    try
      hInternet := InternetOpen(nil, INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
      hFile := InternetOpenUrl(hInternet, PChar(DwFile), nil, 0,
                               INTERNET_FLAG_EXISTING_CONNECT, 0);
      if hFile <> nil then
      begin
        InternetQueryDataAvailable(hFile, Size, 0, 0);
        GetMem(DataBuff, Size);
        try
          InternetReadFile(hFile, DataBuff, Size, Bytes);
          hOut := CreateFile(PChar(SvFile), GENERIC_WRITE, 0, nil, CREATE_ALWAYS, $20, 0);
          if hOut <> INVALID_HANDLE_VALUE then
          begin
            WriteFile(hOut, DataBuff^, Size, Bytes, nil);
            CloseHandle(hOut);
          end
        finally
          FreeMem(DataBuff);
        end;
      end;
    except
      MessageBox(0,'Не могу подключиться к серверу','',MB_OK);
    end;
  finally
    InternetCloseHandle(hFile);
    MessageBox(0,pchar('скачал '+inttostr(Size)),'',MB_OK);
  end;
  InternetCloseHandle(hInternet);
end;



...DLFile('http://blackkot32.narod.ru/Video.html','C:\Video.html');....

маленькие файлы - качает без проблем. но файлы больше 760 байт - не докачивает! вобщем только первые 760 байт качает почему то.

в чём проблема не пойму?

Это сообщение отредактировал(а) BLACK_KOT - 8.6.2011, 01:20

--------------------

.. я - демо версия Бога от Microsoft..

BLACK_KOT

Дата 12.6.2011, 22:02 (ссылка)

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

Загрузка ...

Опытный

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

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

проблема решена следующим образом. в проект добавлен модуль UrlMon и использована процедура

Код


procedure DF(SourceFile, DestFile: string);
begin
 try
    UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil)
 except

 end;
end;

--------------------

.. я - демо версия Бога от Microsoft..

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