Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: Сети
Войти
Регистрация
Восстановить пароль
 
саша40
-47 / 290 / 47
Регистрация: 14.08.2012
Сообщений: 2,565
1

Проблемы с загрузкой файла

08.10.2012, 21:42. Просмотров 380. Ответов 2
Метки нет (Все метки)

Привет. Есть небольшая проверка. Испытывал всякие способы загрузки и всё таки остановился на WinInet. Получился такой кодик:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
function TForm1.GetInetFile(const fileURL, FileName: String): boolean;
var
   hSession, hURL: HInternet;
   Buffer: array[1..1024] 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); 
         Application.ProcessMessages;
       until
         BufferLen = 0; 
       CloseFile(f); 
       Result:=True; 
     finally
       InternetCloseHandle(hURL); 
     end;
   finally
     InternetCloseHandle(hSession); 
   end;
end;
И применение:
Delphi
1
2
if GetInetFile('http://yadi.sk/d/GZ_cVc5C05gCK',ExtractFilePath(Application.ExeName) + 'Файл.txt')=true  then
ShowMessage('Файл скачался');
И тут по словам компилятора всё робит, а вот в итоге нет. Загрузил на Яндекс.Диск обычный файл с текстом: "Привет. Файл скачался. Всё прошло удачно!". Типо для проверки, но после скачивание файл как положено открылся, но вместо этого текста в файле исходный код(язык HTML, язык разметки) как у сайтов. Подскажите что тут не то? И как исправить эту ошибку?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2012, 21:42
Ответы с готовыми решениями:

Проблемы с названием файла при использовании copyfile
использую copyfile(типа адрес и название файла,котрый надо скопировать, и адрес и название файла,...

ошибка с загрузкой фотографии
вот код программы(JPEG фотка):

Проблемы с загрузкой файла на сервер.
Добрый день. Будьте добры, помогите, пожалуйста. Необходимо загрузить файл на сервер. Для этого...

Проблемы с загрузкой
Здравствуйте. У меня есть такая проблема. Я установил Windows 8, перезагрузил, и тут же у меня...

Проблемы с загрузкой HDD
Ребутнул ноут на днях, теперь не грузит систему с диска. БИОС определяет веник все как надо быть,...

2
Nutserus
210 / 169 / 24
Регистрация: 24.04.2012
Сообщений: 607
08.10.2012, 23:16 2
Забудь, для тебя это непосильной задачей будет.
0
саша40
-47 / 290 / 47
Регистрация: 14.08.2012
Сообщений: 2,565
09.10.2012, 13:29  [ТС] 3
Цитата Сообщение от Nutserus Посмотреть сообщение
Забудь, для тебя это непосильной задачей будет.
Я кажись понел что тут нето. Я качаю файл страницы, а не сам файл. Так значит надо его найти на странице.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.10.2012, 13:29

Проблемы с Загрузкой Вин 7
В общем такое дело. При включении компьютера, выдает один сигнал, биос загружается, далее, как...

Проблемы с загрузкой DLL
Здравствуйте! Скачал отсюда библиотеку: phash.org Создал консольный проект проект( в Visual...

Проблемы с загрузкой Windows 8
Здравствуйте. Сегодня поставил Windows 8. Установил бета-драйвера для видеокарты, и программу...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru