Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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
3-1103809388
Бульбаш
2004-12-23 16:43
2005.01.30
Обработка исключения Oracle


1-1106075626
Aleks
2005-01-18 22:13
2005.01.30
как из сторки скопитовать заданный символ


1-1105613951
WhiteGuy
2005-01-13 13:59
2005.01.30
Отлов ошибок


3-1104065212
swinole
2004-12-26 15:46
2005.01.30
Инсталяция BDE


1-1105691362
vvv_spb
2005-01-14 11:29
2005.01.30
key=#9





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский