delphi SelectDirectory 出错？求助【恢复】

lin28

procedure TForm1.Button1Click(Sender: TObject);



var

  Dir: string;

begin

  if SelectDirectory(TForm1.Handle,'请选择要保存接收数据的目录',' ',Dir) then

   edit1.Text := Dir;

end;









Function SelectDirectory(const Caption: string; const Root: String;

        out Directory: String): Boolean;  这个函数怎么写呢





编译出错  SelectDirectory没控件的吧？        哪位大哥做过 给个例子参考下 谢谢！

lin28

从MEMO 或 txt 读回数据   怎么放到一维数组里呢 BYTE  A[0] , A[1], A[2], A[3]...



能给个源码吗  谢谢

lin28

多谢！  顺便贴下刚搜到的  可以用





我用Delphi7試過用SelectDirectory，在Delphi7中的SelectDirectory是可以有預設的，所以我將Delphi7的SelectDirectory的原代碼改在Delphi5內測試，改了函數的名稱叫SelectFolder，經過我改動後，新的SelectFolder函數是可以做到我預期的效果了，以下是我的編碼

unit Unit1;



interface



uses

    Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

    filectrl, StdCtrls;



type

    TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1Click(Sender: TObject);

    end;



var

    Form1: TForm1;



implementation



uses

    ShlObj, ActiveX;



{$R *.DFM}



function SelectDirCB(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall;

begin

    if (uMsg = BFFM_INITIALIZED) and (lpData <> 0) then

    SendMessage(Wnd, BFFM_SETSELECTION, Integer(True), lpdata);

    result := 0;

end;



function SelectFolder(const Caption: string; const Root: WideString;

    var Directory: string): boolean;

var

    WindowList: Pointer;

    BrowseInfo: TBrowseInfo;

    Buffer: PChar;

    OldErrorMode: Cardinal;

    RootItemIDList, ItemIDList: PItemIDList;

    ShellMalloc: IMalloc;

    IDesktopFolder: IShellFolder;

    Eaten, Flags: LongWord;

begin

    Result := False;

    if not DirectoryExists(Directory) then

    Directory := '';

    FillChar(BrowseInfo, SizeOf(BrowseInfo), 0);

    if (ShGetMalloc(ShellMalloc) = S_OK) and (ShellMalloc <> nil) then

    begin

    Buffer := ShellMalloc.Alloc(MAX_PATH);

    try

        RootItemIDList := nil;

        if Root <> '' then

        begin

        SHGetDesktopFolder(IDesktopFolder);

        IDesktopFolder.ParseDisplayName(Application.Handle, nil,

        POleStr(Root), Eaten, RootItemIDList, Flags);

        end;

        with BrowseInfo do

        begin

        hwndOwner := Application.Handle;

        pidlRoot := RootItemIDList;

        pszDisplayName := Buffer;

        lpszTitle := PChar(Caption);

        ulFlags := BIF_RETURNONLYFSDIRS;

        if Directory <> '' then

        begin

        lpfn := SelectDirCB;

        lParam := Integer(PChar(Directory));

        end;

        end;

        WindowList := DisableTaskWindows(0);

        OldErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);

        try

        ItemIDList := ShBrowseForFolder(BrowseInfo);

        finally

        SetErrorMode(OldErrorMode);

        EnableTaskWindows(WindowList);

        end;

        Result := ItemIDList <> nil;

        if Result then

        begin

        ShGetPathFromIDList(ItemIDList, Buffer);

        ShellMalloc.Free(ItemIDList);

        Directory := Buffer;

        end;

    finally

        ShellMalloc.Free(Buffer);

    end;

    end;

end;



procedure TForm1.Button1Click(Sender: TObject);

var

    ss: string;

begin

    ss := 'D:\BURN';

    if SelectFolder('Choose Folder','',ss) then

    showmessage('Your Choose is ' + ss);

end;



end.

Anyway, 多謝各位的幫忙

ilymy

txt里可以用TStringList保存和读取

memo直接读他的内容就行了呀

本贴被 ilymy 编辑过,最后修改时间：2008-09-18,20:57:14.

lin28

顺便问下   怎么从MEMO 或 txt 读回数据 放到数组里呢？ 我要把保存的数据画图 用Tchar    谢谢！

lin28

procedure TForm1.Button5Click(Sender: TObject);

var

  S:string;



begin



  S := edPath.Text;

  if not DirectoryExists(S) then

    CreateDir(S);  

  S:=S+'dt'+ edit2.text+'.txt';

  Memo1.Lines.SaveToFile(S);

  Application.MessageBox(pchar(s+#13#13#9+'已保存'),'信息',MB_ICONWARNING or MB_OK);

   END;





我是把COM来的数据显示到MEMO 再保存到txt    像串口调试助手的界面  就是不能得到路径



ilymy 你说的是 dialogs 的 SAVE控件吗 ？   

ilymy

是啊，很好用的，简单

ilymy

为什么不用它自带的保存控件？