Параметр [pbCancel] в WinAPI.CopyFileEx

@Vabos · Регистрация: 12.12.2011

Студворк — интернет-сервис помощи студентам

Объясните, в чем причина такого поведения? Все директории и файлы существуют.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
procedure TForm5.Button1Click(Sender: TObject);
var
  SourceFN, DestFN, CurrentDir: string;
  Result: Boolean;
  FlCancel: Boolean;
  LastError: DWORD;
begin
  CurrentDir := ExtractFilePath(ParamStr(0));
 
  SourceFN := CurrentDir + 'Source\123.txt';
  DestFN := CurrentDir + 'Dest\123.txt';
 
  //ShowMessage: Fail! E:1235 (Запрос был прерван)
  Result := CopyFileEx(PChar(SourceFN), PChar(DestFN), nil, nil, @FlCancel, COPY_FILE_RESTARTABLE or COPY_FILE_ALLOW_DECRYPTED_DESTINATION);
 
  //ShowMessage: Ok!
  Result := CopyFileEx(PChar(SourceFN), PChar(DestFN), nil, nil, nil, COPY_FILE_RESTARTABLE or COPY_FILE_ALLOW_DECRYPTED_DESTINATION);
 
  if Result then
    ShowMessage('Ok!')
  else begin
    LastError := GetLastError;
    ShowMessage('Fail! E:' + IntToStr(LastError) + ' (' + SysErrorMessage(LastError) + ')');
  end;
end;

@Vabos · 05.02.2020, 22:19 **[ТС]**

northener, FlCancel: LongBool; решает проблему! Все встало на свои места. Спасибо! Тупанул...

Добавлено через 2 минуты

Сообщение от AzAtom

я этот момент не понял, но если задать

А вот теперь дружно идем курить мануалы про boolean, bool и longbool!

Добавлено через 7 минут
GunSmoker уже курил энту тему

@AzAtom · 05.02.2020, 22:23

После просмотра окна процессора понял разницу между bool и boolean. Bool занимает 4 байт, а boolean занимает 1 байт. Таким образом, если используем boolean, то функция копирования считывает подряд 4 байта, 3 из которых принадлежат другим переменным и не равны 0 в общем случае.

ЗЫ. С таким же успехом можно передать туда и integer, предварительно обнулив его.

Добавлено через 1 минуту

Сообщение от Vabos

А вот теперь дружно идем курить мануалы про boolean, bool и longbool!

Ну да. А ещё лучше было сразу объявлять bool, как запрашивает функция.

Но тема полезная оказалась, я ведь раньше думал, что boolean тоже занимает 32 бит.

@northener · 06.02.2020, 02:39

Сообщение от Vabos

northener, FlCancel: LongBool; решает проблему! Все встало на свои места.

Тогда мой совет вам на будущее. Изучая WinAPI функции не ограничивайтесь только документацией. По крайней мере первое время. Порой очень полезно взглянуть как та или иная функция объявлена в модуле Windows.pas.

@AzAtom · 06.02.2020, 09:15

Сообщение от northener

полезно взглянуть как та или иная функция объявлена в модуле Windows.pas

Это написано в подсказке, когда открываешь скобку.

@northener · 07.02.2020, 03:21

Не по теме:

Сообщение от AzAtom

Это написано в подсказке, когда открываешь скобку.

Терпеть не могу эту подсказку! Толку от неё никакого!
Мало того что она появляется когда я смотрю только на клаву, так она еще и исчезает как только я оборачиваю свой взгляд на введенный мною код на экране!
:)

@D1973 · 07.02.2020, 04:14

Не по теме:

Сообщение от northener

она появляется когда ... так она еще и исчезает как только ...

Вы ее не любите - вот она и вредничает...

@AzAtom · 07.02.2020, 04:54

А мне нравится подсказка. Запоминать все параметры всех функций, их типы и порядок - не моё.

И не пропадает обычно. Пропадает только если пошёл гулять по другим строкам.

Новые блоги и статьи Все статьи Все блоги /
[golang] Двоичная куча, min-heap alhaos 20.05.2026 Двоичная куча Двоичная куча — структура данных, которая всегда держит самый важный элемент наготове. Представьте очередь к хилеру в игре, и очередь из игроков в приоритете те у кого меньше. . .	[golang] Breadth-First Search alhaos 19.05.2026 BFS (Breadth-First Search) — это базовый алгоритм обхода графа в ширину, который поуровнево исследует все связанные вершины. Он начинает с выбранной точки и проверяет всех соседей, прежде чем. . .	[golang] Алгоритм «Хак Госпера» alhaos 17.05.2026 Алгоритм «Хак Госпера» Хак Госпера (Gosper's Hack) — алгоритм нахождения следующего по величине числа с тем же количеством установленных бит. Придуман Биллом Госпером в 1970-х, опубликован в. . .	Рисование бинарного древа до 6-го колена на js, svg. russiannick 17.05.2026 <svg width="335" height="240" viewBox="0 0 335 240" fill="#e5e1bb"> <style> <!]> </ style> <g id="bush"> </ g> </ svg> function fn(){ let rost;/ / высота древа let xx=165,yy=210,w=256;
FSharp: interface of module DevAlt 16.05.2026 Интерфейс модуля F# позволяет управлять доступностью членов, содержащихся в реализации модуля. По-умолчанию все члены модуля доступны: module Foo let x = 10 let boo () = printfn "boo" . . .	Хитросплетение родственных связей пантеона греческих богов. russiannick 14.05.2026 Однооконник, позволяющий узреть и изучить отдельных героев древней Греции. <!DOCTYPE html> <html lang="ru"> <head> <meta charset="UTF-8"> <meta http-equiv="X-UA-Compatible". . .	[golang] Угол между стрелками часов alhaos 12.05.2026 По заданным значениям часа и минуты необходимо определить значение меньшего угла между стрелками аналогового циферблата часов. import "math" func angleClock(hour int, minutes int) float64 { . . .	Debian 13: Установка Lazarus QT5 ВитГо 09.05.2026 Эта инструкция моя компиляция инструкций volvo https:/ / www. cyberforum. ru/ blogs/ 203668/ 10753. html и его же старой инструкции по установке Lazarus с gtk2. . .

@AzAtom Модератор 4150 / 2360 / 813 Регистрация: 15.11.2015 Сообщений: 9,487
	07.02.2020, 04:54
	А мне нравится подсказка. Запоминать все параметры всех функций, их типы и порядок - не моё. И не пропадает обычно. Пропадает только если пошёл гулять по другим строкам. 0