Текущий архив: 2006.07.30;
Скачать: CL | DM;

Вниз

Копирование методами Windows с ftp   Найти похожие ветки 

← →
SamProf ©   (2006-06-19 14:52) [0]

Существует функция копирования файлов методами Windows на компе:

function WindowsCopyFile(FromFile, ToDir : string) : boolean;
var F : TShFileOpStruct;
begin
 F.Wnd := 0; F.wFunc := FO_COPY;
 FromFile:=FromFile+#0; F.pFrom:=pchar(FromFile);
 ToDir:=ToDir+#0; F.pTo:=pchar(ToDir);
 F.fFlags := FOF_ALLOWUNDO or FOF_NOCONFIRMATION;
 result:=ShFileOperation(F) = 0;
end;

Есть ли возможность вызвать стандартное копирование windows, но с ftp!?

---

← →
TUser ©   (2006-06-19 18:11) [1]

> Есть ли возможность вызвать стандартное копирование windows, но с ftp!?

Использовать стандартную программу ftp. Имхо - проще использовать ICS.

---

← →
SamProf ©   (2006-06-19 18:17) [2]

Что такое ICS?

---

← →
Dmitrij_K   (2006-06-19 19:14) [3]

internet component сьют

---

← →
Dmitrij_K   (2006-06-19 19:25) [4]

http://www.google.com/search?ie=UTF-8&hl=ru&q=%69%63%73%20%64%65%6C%70%68%69

---

← →
Pavia ©   (2006-06-20 00:40) [5]

uses WinInet;

---

← →
SamProf ©   (2006-06-20 13:24) [6]

мне нада, что файл скачала сама винда, т.е появилось стандартное окошко копирования файла и винда преспокойно сама скачала файлик!

---

← →
Дмитрий Белькевич ©   (2006-06-21 01:10) [7]

wininet крайне не рекомендую. за ics не скажу - не работал. работаю с indy девяткой, всё замечательно работает. саму винду не рекомендую по той же причине, так как через wininet и работает.
причина очень простая: на разных машинах установлен разный explorer, а wininet растёт именно из него. получается такая беда: ftp везде немного разный, какие-то эксплореры работают с одними ftp, но не работают с другими и наоборот, короче, посде третьего эксплорера, под который пришлось подстраиваться, я плюнул на это всё счастье мелкософтовское и переписал всё на indy, что бы уже точно ни от чего не зависеть. С тех пор проблем не было.

---

← →
palva ©   (2006-06-21 10:36) [8]

Методами Windows? Тогда можно разгрузить файл с ftp так:
{$APPTYPE CONSOLE}
function URLDownloadToFile(
 pCaller: Longword;
 szURL: PChar;
 szFileName: PChar;
 dwReserved: Longword;
 lpfnCB: Longword
): Longword; StdCall; external "urlmon.dll" name "URLDownloadToFileA";

var
 ret:Longword;
begin
 ret := URLDownloadToFile(0,
   "ftp://login:password@ftp.narod.ru/filename.jpg", "logo.jpg", 0, 0);
 if ret<> 0 then
   WriteLn("Error")
 else
   WriteLn("OK");
end.


---

Страницы: 1 вся ветка

Текущий архив: 2006.07.30;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.029 c