Главная Главная страница форума Регистрация Вход
Новые сообщения Участники форума Правила форума Поиск
Страница 1 из 11
Модератор форума: Ekz 
Форум » Все о Delphi » Интернет и сети » Загрузка файла по заданному url
Загрузка файла по заданному url
skycarДата: Суббота, 22.11.2008, 10:15 | Сообщение # 1
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
здраствуйте, вот у меня такая проблемка
Code

unit Unit1;

interface

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

type
    TForm1 = class(TForm)
      location: TEdit;
      path: TEdit;
      Button1: TButton;
      Label1: TLabel;
      Label2: TLabel;
      procedure Button1Click(Sender: TObject);
    private
      { Private declarations }
    public
      { Public declarations }
    end;

var
    Form1: TForm1;

implementation

{$R *.dfm}

function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
    try
      Result:=UrlDownloadToFile(nil,PChar(SourceFile),PChar(DestFile),0,nil)=0;
    except
      Result := False;
    end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  DownloadFile(location.Text, path.Text);
end;

end.

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


Сообщение отредактировал skycar - Суббота, 22.11.2008, 10:26
 
AdminДата: Суббота, 22.11.2008, 11:11 | Сообщение # 2
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
Есть вопрос, но не по поводу кода. Вам нужно именно скачать этот файл на диск или потом вам нужно будет использовать его содержимое? просто есть возможность попробовать скачать этот файл в память.
Сейчас погляжу чего с кодом не так.


Не оказываю помощь через личные сообщения и ICQ
 
skycarДата: Суббота, 22.11.2008, 15:08 | Сообщение # 3
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
Quote (codelab)
Вам нужно именно скачать этот файл на диск или потом вам нужно будет использовать его содержимое?

Скачать на диск)
 
AdminДата: Суббота, 22.11.2008, 16:40 | Сообщение # 4
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
У меня все работает. Может вы перепутали очередность параметров процедуры? Первый - откуда качать. Второй - куда сохранять на диске (например C:\1.txt)

Не оказываю помощь через личные сообщения и ICQ
 
skycarДата: Суббота, 22.11.2008, 23:21 | Сообщение # 5
Ранг 6
Группа: Проверенные
Сообщений: 116
Награды: 5
Репутация: 31
Статус: Offline
Нет, все правильно вроде делаю
Первое поле location - там я пишу url файла, во втором - путь и имя файла, куда нужно сохранить.
Но по нажатию кнопки ничего не происходит.
Может быть такое, что скачка связана с установленным флажком в IE "Работать автономно?"
 
AdminДата: Воскресенье, 23.11.2008, 11:30 | Сообщение # 6
Ранг 10
Группа: Пользователи
Сообщений: 1268
Награды: 16
Репутация: 2
Статус: Offline
И вправду зависит. Пробую ставить галочку не хочет работать. Если так не пойдет то могу предложить следующее Получить код HTML страницы. Только придется его еще сохранить вручную. Этот код может получить и содержимое любого доступный файла. Можно получить и не в Memo а например в строку. Вобщем этот способ немного посложнее, зато больше возможностей.

Не оказываю помощь через личные сообщения и ICQ
 
Форум » Все о Delphi » Интернет и сети » Загрузка файла по заданному url
Страница 1 из 11
Поиск:

Copyright DelphiDevelop.ru © 2008-2018
Хостинг от uCoz