调用Api函数GetOpenFileName来显示一个打开文件对话框时出错 (50分)

631229 · 2002-01-16

请看这个程序：（调用Api函数GetOpenFileName来显示一个打开文件对话框） unit Unit1; {$APPTYPE GUI} interface Uses   Messages,Sysutils,Commdlg,Windows; Const   AppName = 'File Editor'; Type   TFileName = Array[0..Max_Path] Of Char; Var   AMessage              : Msg;   HWindow,HStatus,HEdit : HWnd;   TheLogFont            : TLogFont;   TheColor              : DWORD;   FileName              : TFileName; implementation Function SelectFile(Var FName:TFileName; Open:Boolean): Boolean; Const   Filter : PChar = 'Text files (*.txt)'#0'*.txt'#0+                    'All files (*.*)'#0'*.*'#0#0;   Ext    : PChar = 'txt'; Var   NameRec : OpenFileName; Begin   FillChar(NameRec,SizeOf(NameRec),0);   FName[0] := #0;   With NameRec Do     Begin       LStructSize := SizeOf(NameRec);       HWndOwner   := HWindow;       LpStrFilter := Filter;       LpStrFile   := @FName;       NMaxFile    := Max_Path;       Flags       := OFN_Explorer Or OFN_HideReadOnly;       If Open Then         Begin           Flags := Flags Or OFN_FileMustExist;         End;       LpStrDefExt := Ext;     End;   If Open Then       SelectFile := GetOpenFileName(@NameRec)   Else       SelectFile := GetSaveFileName(@NameRec); End; ... ... 编译时显示这行出错：SelectFile := GetOpenFileName(@NameRec) [Error] Unit1.pas(75): Types of actual and formal var parameters must be identical 即：形参与实参类型不匹配，请帮助分析问题出在哪里？以下是Delphi的windows sdk帮助中 有关结构OPENFILENAME的定义，恕我愚笨，我看了很多Delphi的帮助，而且浏览了很多讲述Api 的英文网站，但还是没有搞明白。 typedef struct tagOFN { // ofn       DWORD         lStructSize;     HWND          hwndOwner;     HINSTANCE     hInstance;     LPCTSTR       lpstrFilter;     LPTSTR        lpstrCustomFilter;     DWORD         nMaxCustFilter;     DWORD         nFilterIndex;     LPTSTR        lpstrFile;     DWORD         nMaxFile;     LPTSTR        lpstrFileTitle;     DWORD         nMaxFileTitle;     LPCTSTR       lpstrInitialDir;     LPCTSTR       lpstrTitle;     DWORD         Flags;     WORD          nFileOffset;     WORD          nFileExtension;     LPCTSTR       lpstrDefExt;     DWORD         lCustData;     LPOFNHOOKPROC lpfnHook;     LPCTSTR       lpTemplateName; } OPENFILENAME;

631229 · 2002-01-16

而且在这个语句里：      LpStrFile   := @FName; 将@号去掉Delphi后编译时也不提示有问题，而这个错误提示照旧: Types of actual and formal var parameters must be identical

Ale. · 2002-01-17

我记不太清了，好象 TOpenFileName 和 OFN 中有一个变化，OFN 中的 Flags 在 TOpenFileName 中 改为了 TOpenOption ，不知是不是。

yzhshi · 2002-01-17

注意一下使用了var 变量，不能使用字符串，必须对应变量名。 unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,   StdCtrls, Commdlg; type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; const   AppName = 'File Editor'; type   TFileName = array[0..Max_Path] of Char; var   AMessage: Msg;   HWindow, HStatus, HEdit: HWnd;   TheLogFont: TLogFont;   TheColor: DWORD;   FileName: TFileName; implementation {$R *.DFM} function SelectFile(var FName: TFileName; Open: Boolean): Boolean; const   Filter: PChar = 'Text files (*.txt)'#0'*.txt'#0 +     'All files (*.*)'#0'*.*'#0#0;   Ext: PChar = 'txt'; var   NameRec: OpenFileName; begin   FillChar(NameRec, SizeOf(NameRec), 0);   FName[0] := #0;   with NameRec do   begin     LStructSize := SizeOf(NameRec);     HWndOwner := HWindow;     LpStrFilter := Filter;     LpStrFile := @FName;     NMaxFile := Max_Path;     Flags := OFN_Explorer or OFN_HideReadOnly;     if Open then     begin       Flags := Flags or OFN_FileMustExist;     end;     LpStrDefExt := Ext;   end;   if Open then     SelectFile := GetOpenFileName(NameRec)   else     SelectFile := GetSaveFileName(NameRec); end; procedure TForm1.Button1Click(Sender: TObject); var   a: TFileName; begin   a := 'C:/Autoexec.bat';   SelectFile(a, False); end; end.

yzhshi · 2002-01-17

对了，你的这个程序还有些小问题，输入了文件名，不能定位，但是能够返回文件名。 在Button1的Click时间中加入： ShowMessage(a)看看。

631229 · 2002-01-17

非常感谢！你说的是对的。但是我暂时还不想结束讨论，因为这个只是程序片段，整个程序本来是在 Dev-pascal环境下全部用API函数编写编辑器的（免费pascal和C++:http://www.freepascal.org/ 和http://www.bloodshed.net/devpascal.html ），Dev-pascal环境下编译通过并能运行，且编译出 来的可执行文件只有23k大小。但原来程序用的是Edit，它不能编辑大文件，所以我改用Richedit(先 Loadlibrary('Riched32.dll'),再用CreatewindowEx())，能编辑大文件了，后来又发现Dev-pascal不 支持中文，所以想转为Delphi(我有6.0个人版)。改动的除了uses部分外就是上述你指教的了，现在别 的部分还有些问题（不多了），如果你有兴趣我可以把整个程序发过去（贴出来也行，不算太大）。 希望能讲一下这些基本概念：（这些概念在我手上的清华大学的《Delphi4.0入门与提高》里没有或很不详细）: 符号'@'在变量前何意？符号'^'在变量前何意？在变量后又是何意？ Pchar是指针类型吗？如果是，则Const Ext : PChar = 'txt';这样的表达我很不理解。如C语言里 char mychara; char * p; p=&mychar; 如果愿意分析整个程序，除了送分外，如果你在长沙我还可以为你刻盘：我收集了kylix个人版、Delphi6.0个人版、 borland C++5.0编译器、上述Dev-pascal和dev-C++、Fortran for win32、Prolog for win32个人版（人工智能）、 图灵机等，除了borland C++5.0只有编译器外，其他都是全套Compiler、IDE、Debugger等。

631229 · 2002-01-17

上述我收集的东西全是免费的！不存在盗版问题。

631229 · 2002-01-19

多人接受答案了。

调用Api函数GetOpenFileName来显示一个打开文件对话框时出错 (50分)

631229

Unregistered / Unconfirmed

631229

Unregistered / Unconfirmed

Ale.

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

631229

Unregistered / Unconfirmed

631229

Unregistered / Unconfirmed

631229

Unregistered / Unconfirmed

Similar threads