Klasör adresi belirleme (Ağ ortamınıda tarama, I/O 123 Err)

[muskut]

Bir dosyayı farklı bir alana kaydedebilmesi için hedef yol belitmek için izleyebileceğim bir yol var mı? Dialogs paletindeki SaveAs bileşeni ile bunu yapabilirmiyim? SaveAs bileşenini kullanırken, yeni isim falan vermem gerekiyor. Benim istediğim tek şey, bileşen execute edildiğinde sadece hedef yol belirlensin sonra ok densin ve o hedef yolu alabileyim,

örneğin:

c:\hebele\muskut\

klasörü gibi.

iyi çalışmalar

[mkysoft]

sizin aradığınız folder dialog.

Kod: Tümünü seç

if SelectDirectory('Select a folder:', 'C:\', DirSelected) then

gibi çağırabilirsiniz.

[muskut]

peki bu selectdirectory hangi bileşende veya hangi unitte bulabilirim?

[rsimsek]

Kesin bulmuşsundur ama SelectDirectory F1 deyince QDialogs çıkıyor

[muskut]

Sanırım biraz yorgunluk, biraz orucun etkisi, kafada fosfor tükendi F1 e basmak aklıma gelmedi

[muskut]

peki bu cevaba ek olarak, directory listesinde AĞ üzerindeki bağlantılarıda göstermem mümkün mü? Yada bu cevaba alternatif olabilecek başka bir çözüm öneriniz varmıdır (ağ bağlantılarınıda gösterebileceğim dialog penceresi)

[muskut]

kodu kullandığım formda birtanede opendialog bileşeni var. Bu bileşeni ;

Kod: Tümünü seç

  if opndlgFrom.Execute then
  begin
    Nerden := opndlgFrom.FileName;
    edtFrom.Text := Nerden;
  end;

şeklinde çalıştırdıktan sonra, başka bir buton ile

Kod: Tümünü seç

var
  Dir: string;
begin
  Dir := 'C:\';
  SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP);

kodunu çalıştırdığımda;

EInOutError with Message 'I/O error 123'

şeklinde bir hata mesajı alıyorum. Opendialog bileşenini hiç execute etmeden diğer selectdirectory işlemi sorunsuz çalışıyor. Herşey opendialogun execute olması ile oluyor. Varmı bir fikriniz?

[hbahadir]

123 = ERROR_INVALID_NAME

http://www.delphipages.com/threads/thre ... 4&G=164325

[mrmarman]

Tamamen ezber bir çözümdür. Referans ve kod yazıcam...

Kod: Tümünü seç

function BrowseDialog
 (const Title: string; const Flag: integer): string;
var   // Uses ShlObj
  lpItemID    : PItemIDList;
  BrowseInfo  : TBrowseInfo;
  DisplayName : array[0..MAX_PATH] of char;
  TempPath    : array[0..MAX_PATH] of char;
begin
  Result := '';
  FillChar(BrowseInfo, sizeof(TBrowseInfo), #0);
  with BrowseInfo do begin
    hwndOwner      := Application.Handle;
    pszDisplayName := @DisplayName;
    lpszTitle      := PChar(Title);
    ulFlags        := Flag;
  end;
  lpItemID := SHBrowseForFolder(BrowseInfo);
  if lpItemId <> nil then begin
    SHGetPathFromIDList(lpItemID, TempPath);
    Result := TempPath;
    GlobalFreePtr(lpItemID);
  end;
end;

Ref : http://delphi.about.com/od/windowsshell ... 70400a.htm

[muskut]

referanstaki link (http://delphi.about.com/od/windowsshell ... 70400a.htm) işimi fazlasıyla gördü, ilgilenen herkeze teşekkürler.