Tim

In EDBMan V1b6

Suggestion first - can we have a create new folder button when browsing for a directory for the database?

I go to create a new database, select folder. The one I want isn't there, no create folder button so I bring up explorer, create the directory, switch back to EBDMan and type the path into the select folder dialogue then press enter


Access violoation at address 004564AC in module edbmgr.exe read of address 0000004.

Roy Lambert

Roy,

<< Suggestion first - can we have a create new folder button when browsing
for a directory for the database? >>

You don't need one.  Just specify the path and EDB will create it as needed.

<< I go to create a new database, select folder. The one I want isn't there,
no create folder button so I bring up explorer, create the directory, switch
back to EBDMan and type the path into the select folder dialogue then press
enter

Access violoation at address 004564AC in module edbmgr.exe read of address
0000004. >>

Okay, got it.  I think I'm going to toss out the shell folder components
anyways because they leak memory and are just crap.

--
Tim Young
Elevate Software
www.elevatesoft.com

"Tim Young [Elevate Software]" <timyoung@elevatesoft.com> wrote in
news:B0D44EBC-D21A-4691-A64A-FC2B2DE5408F@news.elevatesoft.com:

> Okay, got it.  I think I'm going to toss out the shell folder
> components anyways because they leak memory and are just crap.

standard Delphi components?

If so:
- should we do likewise?
-what should we replace them with, in your opinion?
--
Chris
(XP-Pro + Delphi 7 Architect + DBISAM 4.24 Build 1)

Chris


For that particular one I use PBFolderDialog

Roy Lambert

Chris,

<< standard Delphi components?  >>

Well, not entirely.  They aren't part of the standard VCL and are on the
Samples page, which basically means that Borland gets to claim that they're
extras and it doesn't matter if they don't work.

<< - should we do likewise?
-what should we replace them with, in your opinion? >>

The standard browse for folder dialog in Windows:

function BrowseCallback(Wnd: HWND; uMsg: UINT; lParam,lpData: LPARAM):
Integer; stdcall;
begin
  Result:=0;
  if (uMsg=BFFM_INITIALIZED) then
     begin
     if (StrLen(PChar(lpData)) > 0) then
        SendMessage(Wnd,BFFM_SETSELECTION,1,lpData);
     end;
end;

function GetDirectory(var DirectoryStr: string): Boolean;
var
  WindowList: Pointer;
  Buffer: array[0..MAX_PATH] of Char;
  ItemIdList: PItemIDList;
  BrowseInfo: TBrowseInfo;
begin
  Result:=False;
  with BrowseInfo do
     begin
     hwndOwner:=Screen.ActiveForm.Handle;
     pidlRoot:=nil;
     pszDisplayName:=Buffer;
     lpszTitle:='Select the directory';
     ulFlags:=(BIF_RETURNONLYFSDIRS+BIF_EDITBOX+BIF_NEWDIALOGSTYLE);
     lpfn:=BrowseCallback;
     lParam:=Integer(PChar(DirectoryStr));
     end;
  WindowList:=DisableTaskWindows(0);
  try
     ItemIdList:=ShBrowseForFolder(BrowseInfo);
  finally
     EnableTaskWindows(WindowList);
  end;
  if (ItemIDList=nil) then
     Exit;
  if SHGetPathFromIDList(ItemIDList,@Buffer) then
     begin
     Result:=True;
     DirectoryStr:=StrPas(@Buffer);
     end;
end;

--
Tim Young
Elevate Software
www.elevatesoft.com

Roy Lambert <roy.lambert@skynet.co.uk> wrote in news:A62E6437-D41B-4F61-
88A2-A6F2DAD77ADA@news.elevatesoft.com:

> For that particular one I use PBFolderDialog
>

Thanks for that, Roy. I'd never heard of Bak-O-Soft before!

--
Chris
(XP-Pro + Delphi 7 Architect + DBISAM 4.24 Build 1)