Как скачать файл из интернета[Delphi]?
Пользователи, просматривающие топик: none
|
Зашли как: Guest
|
Имя  |
| Сообщение |
<< Старые топики Новые топики >> |
|
|
Как скачать файл из интернета[Delphi]? - 2010-09-26 20:51:59.510000
|
|
|
geoanton1
Сообщений: 172
Оценки: 0
Присоединился: 2008-10-19 11:16:40.693333
|
Как скачать файл из интернета[Delphi]?
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-26 22:05:20.263333
|
|
|
kreol
Сообщений: 823
Оценки: 0
Присоединился: 2007-03-08 03:13:06.876666
|
http://www.google.com/search?ie=UTF-8&oe=UTF-8&sourceid=navclient&gfns=1&q=delphi+%D1%81%D0%BA%D0%B0%D1%87%D0%B0%D1%82%D1%8C+%D1%84%D0%B0%D0%B9%D0%BB
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-27 13:37:46.830000
|
|
|
geoanton1
Сообщений: 172
Оценки: 0
Присоединился: 2008-10-19 11:16:40.693333
|
не поучается
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-27 14:35:14.340000
|
|
|
rgo
Сообщений: 7170
Оценки: 281
Присоединился: 2004-09-25 05:14:25
|
Что не получается-то? По ссылке в гугл не перейти? И в чём это выражается: мышкой по ссылке не попасть, или просто гугл не грузится? Попробуй попинговать его. Расскажи о результатах сюда.
А вообще, тебе дать ссылку на документ "как правильно задавать вопросы"?
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-27 14:54:51.170000
|
|
|
yMa.hacKer
Сообщений: -1779
Оценки: 10
Присоединился: 2010-01-10 14:25:47.293333
|
Если на WinInet не получается, вот код если через Indy:
var
FS:TFileStream;
url,filename:string;
begin
filename='arhiv.rar';
url='http://yousite.com/arhiv.rar';
FS:=TFileStream.Create(filename,FMCreate);
Form1.IdHTTP1.Get(url, FS);
FS.free;
end;
Напиши чо, именно у тебя не получается, выше код на WinInet - полностью рабочий, ты чего-то не правильно делаешь.
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-28 12:58:54.906666
|
|
|
geoanton1
Сообщений: 172
Оценки: 0
Присоединился: 2008-10-19 11:16:40.693333
|
quote:
ORIGINAL: yMa.hacKer
Если на WinInet не получается, вот код если через Indy:
var
FS:TFileStream;
url,filename:string;
begin
filename='arhiv.rar';
url='http://yousite.com/arhiv.rar';
FS:=TFileStream.Create(filename,FMCreate);
Form1.IdHTTP1.Get(url, FS);
FS.free;
end;
Напиши чо, именно у тебя не получается, выше код на WinInet - полностью рабочий, ты чего-то не правильно делаешь.
Ошибка HTTP/1.1 301.
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-28 13:19:01.730000
|
|
|
Motorcode
Сообщений: 68
Оценки: 0
Присоединился: 2009-07-15 21:15:27.283333
|
quote:
ORIGINAL: geoanton1
quote:
ORIGINAL: yMa.hacKer
Если на WinInet не получается, вот код если через Indy:
var
FS:TFileStream;
url,filename:string;
begin
filename='arhiv.rar';
url='http://yousite.com/arhiv.rar';
FS:=TFileStream.Create(filename,FMCreate);
Form1.IdHTTP1.Get(url, FS);
FS.free;
end;
Напиши чо, именно у тебя не получается, выше код на WinInet - полностью рабочий, ты чего-то не правильно делаешь.
Ошибка HTTP/1.1 301.
У меня тоже код работает, какая у вас версия Indy?
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-28 13:54:24.743333
|
|
|
yMa.hacKer
Сообщений: -1779
Оценки: 10
Присоединился: 2010-01-10 14:25:47.293333
|
кинь ссылку на файл который ты хочешь скачать.
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-28 13:56:37.800000
|
|
|
dropout
Сообщений: 541
Оценки: 0
Присоединился: 2010-04-01 17:00:46.790000
|
поручи серверу прислать тебе нужный файл
когда нет был еще "плох" я так и поступал,Ю тогда даже картинку скачать впадлу было…..дорого+)
шлеш письмо с запросом на адрес сервера: тебе заведомо известно что файл на сервере есть, ну и путь до файла
C/document/library/law/barrister/etc.exe - как пример…. после некоторого ожидания получаешь письмо с нужным тебе файлом, пример
Open: ftp.destroit.com
mode binary: .zip
size: 1024 mb
cd win/C/document/library/law/barrister/etc.exe
get etc.exe
примерно такой текст письма делал, если не запямятовал+)
послал письмо, а потом жди пока ответ придет, если нужный файл не защищен от копирования и прочего использования, но это тоже можно обойти+)
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-28 18:34:05.266666
|
|
|
Davey
Сообщений: 45
Оценки: 0
Присоединился: 2010-03-24 14:51:57.760000
|
...
uses
URLmon...
function DownloadFile(SourceFile, DestFile: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(SourceFile), PChar(DestFile), 0, nil) = 0;
except
Result := False;
end;
end;
//Потом тебе надо скачать что-то там
...
if DownloadFile(SourceLink, PathToSave) then
begin
ShowMessage('Ура : мы загрузили файл!');
...
end else begin
ShowMessage('ERROR');
...
end;
end;
Капитанство, не? ;)
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-29 16:23:04.220000
|
|
|
geoanton1
Сообщений: 172
Оценки: 0
Присоединился: 2008-10-19 11:16:40.693333
|
Я качаю с народа
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-30 18:03:03.163333
|
|
|
Davey
Сообщений: 45
Оценки: 0
Присоединился: 2010-03-24 14:51:57.760000
|
quote:
ORIGINAL: geoanton1
Я качаю с народа
Ну и что? Разве не работает? >__>
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-09-30 20:30:19.766666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Капча,я так понимаю?)
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-10-01 19:32:31.270000
|
|
|
geoanton1
Сообщений: 172
Оценки: 0
Присоединился: 2008-10-19 11:16:40.693333
|
Кто нибудь может дать рабочиий пример с рабочей ссылкой???
|
|
|
|
|
RE: Как скачать файл из интернета[Delphi]? - 2010-10-01 21:55:54.246666
|
|
|
Genco
Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333
|
Хм. Спрошу без намеков. Ты не пытаешься ли скачать файл с яндекс-народа, оттуда где капчу спрашивают (без яндекс бара если руками)??
|
|
|
|
|
|
