31-12-2019, Saat: 02:57
(Son Düzenleme: 31-12-2019, Saat: 02:57, Düzenleyen: Kerembacioglu.)
Merhaba;
Masaüstü için bir projem var fakat FMX'de TFiledialog yok.
Amacım kullanıcının seçtiği klasöre excel veya txt olarak herhangi bir kayıt yapmak.
Nette Tfiledialog yerine kullanabileceğim bir kod buldum fakat FolderDialog.Show(Handle); kısmında derleme sırasında aşağıdaki hatayı alıyorum. Çözüm konusunda nasıl bir yol izlemeliyim?
[dcc32 Error] Main.pas(763): E2010 Incompatible types: 'HWND' and 'TWindowHandle'
[dcc32 Error] Main.pas(770): E2003 Undeclared identifier: 'ConfigPathEdit'
[dcc32 Error] Main.pas(770): E2066 Missing operator or semicolon
[dcc32 Error] Main.pas(770): E2014 Statement expected, but expression of type 'PWideChar' found
[dcc32 Error] Main.pas(786): E2003 Undeclared identifier: 'FDConnectionServer'
[dcc32 Error] Main.pas(799): E2029 '.' expected but ';' found
[dcc32 Fatal Error] BGConvert.dpr(6): F2063 Could not compile used unit 'Main.pas'
Masaüstü için bir projem var fakat FMX'de TFiledialog yok.
Amacım kullanıcının seçtiği klasöre excel veya txt olarak herhangi bir kayıt yapmak.
Nette Tfiledialog yerine kullanabileceğim bir kod buldum fakat FolderDialog.Show(Handle); kısmında derleme sırasında aşağıdaki hatayı alıyorum. Çözüm konusunda nasıl bir yol izlemeliyim?
[dcc32 Error] Main.pas(763): E2010 Incompatible types: 'HWND' and 'TWindowHandle'
[dcc32 Error] Main.pas(770): E2003 Undeclared identifier: 'ConfigPathEdit'
[dcc32 Error] Main.pas(770): E2066 Missing operator or semicolon
[dcc32 Error] Main.pas(770): E2014 Statement expected, but expression of type 'PWideChar' found
[dcc32 Error] Main.pas(786): E2003 Undeclared identifier: 'FDConnectionServer'
[dcc32 Error] Main.pas(799): E2029 '.' expected but ';' found
[dcc32 Fatal Error] BGConvert.dpr(6): F2063 Could not compile used unit 'Main.pas'
procedure TForm1.FileDialogAdress(Sender: TObject); var FolderDialog: IFileDialog; Hr: HRESULT; IResult: IShellItem; FileName: PChar; Settings: DWORD; begin if Win32MajorVersion >= 6 then begin Hr := CoCreateInstance(CLSID_FileOpenDialog, Nil, CLSCTX_INPROC_SERVER, IFileDialog, FolderDialog); if Hr = S_OK then begin FolderDialog.GetOptions(Settings); FolderDialog.SetOptions(Settings or FOS_PICKFOLDERS); FolderDialog.GetOptions(Settings); FolderDialog.SetOptions(Settings or FOS_FORCEFILESYSTEM); FolderDialog.SetOkButtonLabel(PChar('Select')); FolderDialog.SetTitle(PChar('Select a Directory')); Hr := FolderDialog.Show(Handle); if Hr = S_OK then begin Hr := FolderDialog.GetResult(IResult); if Hr = S_OK then begin IResult.GetDisplayName(SIGDN_FILESYSPATH, FileName); ConfigPathEdit.Text := FileName; end; end; end; end; end;