Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
ВнизКак програмно скачать из интернета заданный файл Найти похожие ветки
← →
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
← →
palva © (2005-01-17 22:18) [6]Вот теперь правильная ссылка. Кладем на форму кнопку и 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]Большое спасибо. Всего хорошего.
Вопрос закрыт. :)
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.01.30;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.031 c