Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.07.30;
Скачать: [xml.tar.bz2];

Вниз

Копирование методами 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.46 MB
Время: 0.01 c
4-1145133480
Volf_555
2006-04-16 00:38
2006.07.30
Как убрать значок программы с панели задач?


15-1151407839
DevilDevil
2006-06-27 15:30
2006.07.30
Скиньте Плиз Стандартный OpenGL.pas


15-1151639667
MrShadow_
2006-06-30 07:54
2006.07.30
Хелп!!!


2-1152364745
KaLLeKa
2006-07-08 17:19
2006.07.30
Работа с потоками...


1-1150365320
Baiji
2006-06-15 13:55
2006.07.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
Английский Французский Немецкий Итальянский Португальский Русский Испанский