如何通过PB显示Windows文件复制进度对话框？

Question

我使用了 CopyFilea 和 ShFileOperation 函数。 CopyFileA 它复制了文件（大而繁琐的数据）。但它没有显示复制进度，并且还在 SHFileOperation api 中尝试过，这显示了错误。

PB 版本是 10.2.0 build 7516

错误消息：调用外部函数 %s

任何主体时出错 请给我一个解决方案？

Answer 1

在 sybase.public.powerbuilder 上有 关于 SHFileOperation 的讨论.一般。此代码块显示了如何正确设置结构，对于本例中的删除操作 - 有帮助吗？

type os_shfileopstruct from structure
        unsignedlong            hwnd
        unsignedlong            wfunc
        blob            pfrom
        blob            pto
        unsignedinteger         fflags
        unsignedlong            banyoperationsaborted
        unsignedlong            hnamemappings
        string          lpszprogresstitle
end type

//inside a function call:
// Arguments:    as_SourceFile - the file(s) to delete.
//               aui_flags     - file operation flags (0 - default)
//               aw_requestor  - the requesting window

os_shfileopstruct       lstr_FileOp
Integer li_rc

lstr_FileOp.hWnd                  = Handle(aw_requestor)
lstr_FileOp.wFunc                 = FO_DELETE
lstr_FileOp.pFrom                 = Blob( as_SourceFile + Space(2) )
BlobEdit( lstr_FileOp.pFrom, Len( as_sourcefile ) + 1, Char(0) )
BlobEdit( lstr_FileOp.pFrom, Len( as_sourcefile ) + 2, Char(0) )
lstr_FileOp.fFlags                = aui_flags
lstr_FileOp.hNameMappings         = 0
lstr_FileOp.lpszProgressTitle     = Space(10)

li_rc = SHFileOperationA( lstr_FileOp )
IF li_rc <> 0 THEN
        IF NOT IsNull( lstr_FileOp ) THEN
                IF lstr_FileOp.bAnyOperationsAborted = 1 THEN
                        RETURN 0
                END IF
        END IF
ELSE
        -1
END IF

RETURN 1 

来自 sybase.public.powerbuilder.general

Answer 2

您的操作系统是什么？ Windows Vista 中的 SHFileOperation 已被替换通过IFileOperation。