Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.028 c