Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.02.2010, 00:03   #1
designer999
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 187
По умолчанию Скачивания файла

Как сделать что бы при нажатии на кнопку файл закачивался с ссылки на компьютер и что бы можно было указать путь для сохранения.
Как это можно реализовать ?
designer999 вне форума Ответить с цитированием
Старый 22.02.2010, 00:09   #2
Kotofff
Участник клуба
 
Аватар для Kotofff
 
Регистрация: 11.01.2009
Сообщений: 1,917
По умолчанию

1) Ошибся разделом форума !!!
2) Забыл про поиск:
http://programmersforum.ru/showthrea...C+%F4%E0%E9%EB
http://www.programmersforum.ru/showthread.php?t=10448
"Заряженному танку в дуло не смотрят" @Dekmer in WoT
Kotofff вне форума Ответить с цитированием
Старый 22.02.2010, 00:46   #3
designer999
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 187
По умолчанию

вот нашол, но как сделать так что бы можно было выбрать путь для сохранения?
и как отобразить ход скачивания?
Цитата:
uses Wininet;

function GetInetFile(const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: string;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName );
hSession := InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG,
nil, nil, 0);
try
hURL := InternetOpenURL(hSession,
PChar(fileURL),nil,0,0,0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;
Цитата:
var FileOnNet, LocalFileName: string
begin
FileOnNet:='http://www.codenet.ru/export/forum.xml';
LocalFileName:='codenet.xml';

if GetInetFile(FileOnNet,LocalFileName )=True then
ShowMessage('Download successful')
else
ShowMessage('Error in file download')

помогите плиз

Последний раз редактировалось designer999; 22.02.2010 в 01:01.
designer999 вне форума Ответить с цитированием
Старый 22.02.2010, 09:53   #4
Usov
Форумчанин
 
Аватар для Usov
 
Регистрация: 29.09.2009
Сообщений: 228
По умолчанию

по сокетам не скажу, а вот при использовании TidHTTP для отображения процесса скачки можно использовать событие OnWork
Usov вне форума Ответить с цитированием
Старый 22.02.2010, 15:34   #5
designer999
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 187
По умолчанию

Цитата:
Сообщение от Usov Посмотреть сообщение
по сокетам не скажу, а вот при использовании TidHTTP для отображения процесса скачки можно использовать событие OnWork
А можно поподробнее, если вам не сложно.
И как можно по другому скачать файл и сохранить ?
designer999 вне форума Ответить с цитированием
Старый 22.02.2010, 15:39   #6
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

>>> тырк
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 22.02.2010, 16:00   #7
designer999
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 187
По умолчанию

вот сделал но какая то ошибка
Вложения
Тип файла: rar pro.rar (3.4 Кб, 21 просмотров)
designer999 вне форума Ответить с цитированием
Старый 22.02.2010, 16:04   #8
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,742
По умолчанию

эм... и где-же http.get() ?

upd
-------

Цитата:
в смысле ?
...вы оставили старый способ загрузки и просто скопировали код, относящийся к методам работы с компонентой idhttp
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation

Последний раз редактировалось raxp; 22.02.2010 в 16:37.
raxp вне форума Ответить с цитированием
Старый 22.02.2010, 16:18   #9
designer999
Форумчанин
 
Регистрация: 16.02.2010
Сообщений: 187
По умолчанию

в смысле ?
если несложно что и где неправильно или нужно дописать, просто опыта очень мало , а это очень мне нужно ))
designer999 вне форума Ответить с цитированием
Старый 22.02.2010, 16:42   #10
Usov
Форумчанин
 
Аватар для Usov
 
Регистрация: 29.09.2009
Сообщений: 228
По умолчанию

тебе ж вот уже все готовое дали:
Цитата:
Сообщение от raxp Посмотреть сообщение
осталось малое - создай проект, положи на форму TidHTTP, TIdAntiFreeze, TGauge и дальше по примеру.
Usov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ProgressBar для скачивания KoBRaAndrey Работа с сетью в Delphi 5 04.04.2011 23:52
Защита от скачивания armref Безопасность, Шифрование 2 27.09.2009 14:03
Скорость скачивания Терминатор Свободное общение 3 30.03.2009 19:03
проблема с функцией скачивания файла из интернета ZeitGeist7 Работа с сетью в Delphi 2 27.02.2009 19:43
Контроль скачивания файлов kormax PHP 4 02.10.2008 15:39