Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.26;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
3-84873
SuperVK
2002-08-05 09:00
2002.08.26
TStringField.EditMask - сохранение части шаблона ввода в базе


1-84973
Дмитрий Иванов
2002-08-15 03:25
2002.08.26
прога проге


1-85013
AntonV
2002-08-15 18:29
2002.08.26
Вопрос по файлам


4-85289
svmagnum
2002-05-29 04:33
2002.08.26
kak ubrat scroll bari v twebbrowsere.


6-85144
pfox
2002-06-14 23:07
2002.08.26
SMTP server