| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Скачивание файла с сервера [D7]

Shamansky ©   (2004-12-03 17:07:00) 

Возникла проблема, есть файл на сервере, доступный для скачивания, через IE скачивается, а через urldownloadtofile не хочет, точнее на 3 компьютерах нормально скачивает, а на 2 нет. Winda XP Proffesional SP1a & Home Edition.

---

Shamansky   (2004-12-05 15:10:00) [1]

Оно то конечно хорошо, через сокеты, но времени разбираться нету, уже реализовал через Indy FTP, закачивается немного дольше, но качается, а в чем глюк в системе так и не нашел. Спасибо!

---

Virus.exe   (2004-12-05 11:54:00) [2]

ИМХО сокеты рулят...Правда,приходиться изучать конкретный протокол,но это даже хорошо.

---

Xaker   (2004-12-05 02:27:00) [3]

Virus.exe ©   (04.12.04 22:39) [3]
у меня urldownloadtofileглючила .. я реализовывал на сокетах ..

---

Virus.exe   (2004-12-04 22:39:00) [4]

На всех компах такая система? Если да,то значит дело не в коде,
а в настройках компа...

---

Shamansky   (2004-12-03 17:33:00) [5]

Но почему на 3 компах работает, а на 2 нет?
Да и пример кода:
function TForm1.Download(sourcefile, targetfile: string): boolean;
begin
 try
   result:=urldownloadtofile(nil, pchar(sourcefile),pchar(targetfile),0,nil)=0;
 except
   result:=false;
 end;
end;

procedure TForm1.Downloadfile(objnum,savefile: string);
var
sourcefile:string;
const
destfile='c:\windows\tmp001.txt';
begin
sourcefile:=objnum;
if download(sourcefile,destfile) then
 try
   showmessage('Download succesful');
 except
   showmessage('Error while decoding file '+savefile);
 end
else showmessage('Error while downloading file '+sourcefile);
end;
адрес файла проверен.

---

Reindeer Moss Eater   (2004-12-03 17:21:00) [6]

У тебя ошибка в программе

---

Наверх