Как програмно скачать из интернета заданный файл

← →
Aleks (2005-01-17 20:56) [0]

Как програмно скачать из интернета заданный файл
Например URL: http://www.gee.ru/pic.php?id=62553&razdel=animals&t=1105984155
какие компоненты нужны.

← →
palva © (2005-01-17 21:05) [1]

Зависит от того, какую вы пишете программу: консольную или Windows и какая у вас версия Delphi.

← →
wicked © (2005-01-17 21:17) [2]

хм... щелкнул по ссылке... написало мне:
Вы пытаетесь скачать обои минуя страниц нашего сайта! Увидеть обою можно только перейдя к ней непосредственно с нашего сайта, т.е. нажав по её уменьшенной копии на страничке с превьюшками!
т. е., если только для этого сайта, то может не надо?.... ;)
насчет компонент - Indy или ICS, зависит от задачи, хотя в этом случае и те, и другие хороши...

← →
Aleks (2005-01-17 21:17) [3]

у меня 7 delphi пишу под windows хочеться скачивать понравившиеся картинки без лишнего бутера например
URL: http://www.gee.ru/pic.php?id=62553&razdel=animals&t=1105984155-это один рисунок
URL: http://www.gee.ru/pic.php?id=62553&razdel=animals&t=1105984156-Это другой
я только начинаю писать программы Помогите пожалуйсто
если можно по подробней :).

← →
Aleks (2005-01-17 21:21) [4]

Извените я просто дал эту ссылку для примера. Хотя сли её ввести в качалку Download Express то он её спокойно скачает.
Есть много сайтов где можно скачать простым вводом адреса картинки.

← →
Aleks (2005-01-17 21:28) [5]

Например вот http://www.pixpapers.com/images2/space_girls_2005_1024.jpg

Вот теперь правильная ссылка. Кладем на форму кнопку и IdHTTP со вкладки Indy Clients.
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP; type TMainForm = class(TForm) IdHTTP1: TIdHTTP; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var MainForm: TMainForm; implementation {$R *.dfm} procedure TMainForm.Button1Click(Sender: TObject); var s: String; f: File of char; i: Integer; begin s := IdHTTP1.Get("http://www.pixpapers.com/images2/space_girls_2005_1024.jpg"); AssignFile(f, "c:\space_girls_2005_1024.jpg"); Rewrite(f); For i:=1 to length(s) do Write(f, s[i]); CloseFile(f); end; end.

← →
Aleks (2005-01-17 22:29) [7]

Большое спасибо. Всего хорошего.
Вопрос закрыт. :)

Как програмно скачать из интернета заданный файл Найти похожие ветки