Главная страница
    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.044 c
3-1104093610
Константинов
2004-12-26 23:40
2005.01.30
Как сменить пароль ( Vfster Password ) таблицы Paradox?


1-1105951569
slart
2005-01-17 11:46
2005.01.30
Inno Setup


3-1103996779
Russko
2004-12-25 20:46
2005.01.30
InterBase не хочет сохранять изменения (


4-1102446781
Pomestnik
2004-12-07 22:13
2005.01.30
програмно нажать кнопку на приложении


1-1105595266
Unknown
2005-01-13 08:47
2005.01.30
Проблема с регистром букв расширения файла





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский