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

Вниз

Прогрес в операциях над файлами   Найти похожие ветки 

 
Ghost.   (2002-08-15 09:58) [0]

Ктонибудь знает как отслежить прогесс в операциях над файлами копирование перемещение удаление


 
Opuhshii   (2002-08-15 10:12) [1]

BOOL CopyFileEx(

LPCWSTR lpExistingFileName, // pointer to name of an existing file
LPCWSTR lpNewFileName, // pointer to filename to copy to
LPPROGRESS_ROUTINE lpProgressRoutine, // pointer to the callback function
LPVOID lpData, // to be passed to the callback function
LPBOOL pbCancel, // flag that can be used to cancel the operation
DWORD dwCopyFlags // flags that specify how the file is copied
);



 
Ghost.   (2002-08-15 10:27) [2]


> Opuhshii ©

Эту функцию я видел тока копировать не получается


 
dmtr   (2002-08-15 11:53) [3]


> Ghost. ©

Можно по точнее сформулировать вопрос?


 
Ghost.   (2002-08-15 12:31) [4]


> dmtr

а куда точнее? в винде когда копируется или переноситься файл выскакивает формочка и по ней бежит прогрессбар, вот хочется тоже самое, но передавать значения в свой прогрессбар


 
Opuhshii   (2002-08-15 13:50) [5]

function MyCopyProgressRoutine(TotalFileSize:int64;TotalBytesTransferred:int64;StreamSize:int64;StreamBytesTransferred:int64;dwStreamNumber:Dword; dwCallbackReason:Dword; hSourceFile:DWORD; hDestinationFile:DWORD; lpData:Pointer):DWORD;stdcall;

implementation

function MyCopyProgressRoutine(TotalFileSize:int64;TotalBytesTransferred:int64;StreamSize:int64;StreamBytesTransferred:int64;dwStreamNumber:Dword; dwCallbackReason:Dword; hSourceFile:DWORD; hDestinationFile:DWORD; lpData:Pointer):DWORD;
begin
Showmessage(inttostr(TotalBytesTransferred)+ " coped!" );
result:=PROGRESS_CONTINUE;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
calbackproc:pointer;
pbCancel:integer;
begin
calbackproc:=@MyCopyProgressRoutine;
pbCancel:=0;
if not CopyFileEx(pchar("C:\SourceFile.txt"),pchar("C:\DestenationFile.txt "),calbackproc,nil, @pbCancel , COPY_FILE_FAIL_IF_EXISTS) then
Showmessage(inttostr(GetLastError));
end;


 
Opuhshii   (2002-08-15 13:51) [6]

уж извини за оформление... %)


 
Ghost.   (2002-08-16 11:34) [7]

СПАСИБА ТЫ НАСТАЯЩИЙ ДРУГ



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

Форум: "Основная";
Текущий архив: 2002.08.26;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
3-84903
Nonam
2002-08-06 14:14
2002.08.26
Characterset for


14-85225
AL2002
2002-07-31 10:38
2002.08.26
Кто знает, что это за саундтрек?


1-85107
vsl1969
2002-08-15 08:24
2002.08.26
Ориентация страницы в MS Word


3-84905
Ильдар
2002-08-06 14:44
2002.08.26
В чем может заключается проблема?


14-85216
Kemtar
2002-07-30 03:59
2002.08.26
аритмия...





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский